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Unwandlung des Alpha-Registers in Speicherregister 41c 


Jedem 41C Pesitzer iet das Alpha-Register bekannt. Es trägt mit dazu bei, daß 
der hp-41c als momentan leistungefähigster Taschenrechner auf dem Weltmarkt an- 
gesehen werden darf, Die Vorteile des Alpha-Registere sind jedem Anwender mehr 
oder weniger bekannt. 

Was aber ist mit Programmen oder kurzen Routinen, die dieses Register nicht be- 
nutzen? In diesem Fall 1äßt eich das Alpha-Register völlig gefahrlos in 5 Spei- 
cherregister verwandeln. Diese Register heißen STOM , STON , STOO. 

Die Verwendung dieser Regieter möchte ich an einem von mir entworfenen Programm 
zur Berechnung von Größtem gemeinsamen Teiler und Kleinatem gemeinsamen Vielfa- 
chen ( GGT & KGV ) erläutern. 

Zur KGV Berechnung ist ein Register zum Abspeichern eines Zwischenwertes erfor- 
derlich. Wird diese Routine aber von einem anderen Programm aufgexufen, so wird 
der Inhalt des verwendeten Registers zerstört und das Hauptprogramm wird fehler- 
haft fortgesetzt. 

Dieses läßt eich umgehen, indem zur Zwischenspeicherung das Register M verwandet 
wird, da keine Alpha-Operation während der KGV Berechnung durchgeführt wird. 

Das GGT & KCV Programm lautet sodanns 


Lb1l CGT 
MOD So weit, so schön, Aber wie lassen sich mın diese 
LAST X Befehle erzeugen? 
XOY Sofern die Gerätenummer Ihres Rechners Über 1950 
X40? liegt - Gar nicht. Sie können sich dann die Befeh- 
GTO GGT le mır von mir auf Magnetkarte schicken lassen und 
RDN dann einlesen, was allerdings auch wesentlich be- 
RTR quener ist. 
Lb1 KGV Sollte Ihre Gerätemimmer kleiner gleich 1950 sein, 
STzY so geben Sie folgendes Programm ein, nachdem Sie 
X<>Y Master Clear durchgeführt habenı 
Son 01 + i 
I<>Y 

03 + 
xEQ GGT 
RCLM 0R.+ 
xer . (200 mal "+") 
END 200 + 

201 + 

202 999 
ae Ra seen a 203 STO 00 

204 1.917585 


205 STO IND 0 


Positionieren Sie den Rechner mittels GTO.000 und drücken Sie R/S. Nach einigen 
sec. Rechenzeit können Sie nach Zeile 170 gehen und werden dort den Befehl STO M 
vorfinden. 

Sie können auch die folgenden Befehle erzeugen, indem Sie genau wie oben vorgehen, 
jedoch in Zeile 204 schreibens 1,907585 für RCLM 1,917685 für STO N ; 
1,907685 für RCL N 1,917785 für STO 0 1,907795 für RCL.O . 


Dies ist zugegebener Maßen eine äußerst umständliohe Methode, Wünschen Sie daher, 
alle Befehle auf Magnetkarte zu erhalten, so schicken Sie mir bitte ( egal welche 
Gerätenummer Ihr Rechner hat ) eine Magnetkarte und überweisen aie Ubliche Pau- 
echale von 1,50 IM auf das Ihnen bekannte momentane Konto des Clubs, Sie werden 
dann zusammen nit den nächsten Clubinformationen eine Kopie der obenstehenden 
Befehle zuzügl, XOM X<>N X&)0 erhalten. Weitere Tricks dieser Art in den 
nächsten Clubinfos. . OLIVER RIETSCHEL , EUTIN 


Referenz: William C. Wickes ; Bericht in PPC Journal Oct. 1979 , Seite 32 
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Fortsetzung: Umwandlung des Alpha-Registers in Speisherregisirr ‚„4lec 


Im Prisma 2 wurde die Erzeugung der Befehle STO M,N,O und RCL Ii,N,O beschrieben. 
Es lassen sich weitere : Befehle auf diese Art und Weise erzeugen, indem in Zei- 
le 204 des aufgeführten Programmes folgende Codes geschrieben 'erdeni 


Allgemeine Form: 1,9XY285 


X gibt hierbei die Art des Be.echles ar 
YZ gibt den Code für dam Regiu:er an. 


X=0 ergibt RCL YZ = 66 ergibt ı. gister A 
1 STO 67 B 
2 9T+ 68 c 
3 ST- 69 D 
4 STx ı 70 T 
5 sr/ m 7 
6 ISG 72 Y 
7 DSE 2 x 
8 VIEW 74 L 
9 ZREG 75 M 

76 N 
7 0 
78 pP 
79 qQ 


VORSICHTI! Nicht alle Befehle lassen eich uneingeschr'inkt verwenden, 
Es ist möglich, daß z.B. Flags, Programme, Tastenbelegungen u...w, verändert 
werden, 

Bisher habe ich folgendes festgestellt: 

M,N,O,P sind Alpha-Register ( Vorsicht bei P ) 

X,Y,2,7,L sind Stacke und Iast X 


Dieses Thema ist hiermit sicherlich noch längst nicht angeschlossen, doch hai= 
ich somentan nichts wesentliches mehr auf Lager. Immer noch s:.:cken Geheimizsc 
in unseren Eimunävierzigern, Deshalb bitte ich Sies Schreiber uch Sie Ihre Fr- 
fahrungen und Entdeckungmiilf Mich besohliftigt folgendes Prc ;iem sehr: 

Wie kann man diese Befehle irgenäwslohen Tasten zuordnen??? 1? 


OLIVER RIETSCHEL „ EUTIN 
GERT-JUR:EN GRÜNLER „ BERLI 


PS: Die Befehle zu den Registern M,N,O sind bereits auf Karte für alle Rechner 
erhältlich. Außerdem nooh die Austauschbefehle X gegen M,N oder O0 !! 


v 
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Pr‘grame 4lc 


Mondphasen/ Finsternisse ;} Anmitätentilgungsplan ; Telefongebüihrenzähler 3; 
y und Uhr 

I 

Phasen/ Finsternisse berechnet nach Eingabe von JJJJ,Jj durch "A" die nächste 
Finsterniss, durch "3" die nächste Phase, 

"C" = Wiederholung der Anzeige mit Datur, Uhrzeit, Bedeckungsgrad und Angabe 
des Ereignisses, j 

"En = nächstes Ereigniss ( von A oder B ) 


Dieses Programm ist ein 67 - Programm von H. Schnepf und Lunnebach, das ich für 
5” 41c umschrieb und mit Text versah. 

2 

Tilgungsplan: Achtung: Nach Prompting (Bedeutung wie Standardsammlung) nicht 
R/S drücken! Aber: Wenn, zügig die geforderten Werte eingeben! 


Restschuld,, PMT, Summe der Zinsen und Anteil der Zinsen von PV in %, Effektiv- 
ee bei Damnun,. 

3 

Telefongebührens RTN „ R/S „ Sekunden/Einheit eintippen (zügig!) und war- 
sn bis "/ R/S". Dieses (R/S) dann tun, wenn der Teilnehmer sich meldet. 

4 R 

Uhrs Eingabe (vor erreichter Zeit): RH,MSS 3; dann "A" und für endgültigen 
Sa schließlich; R/S 

5 

Timer: Piepst nach Ablauf der eingestellten Zeit (wie oben) u. "E" „ R/S 


Sie finden die Programmlistings auf den beiden folgenden Seiten | 
GUNTER LELARGE 


f 


———— nn | 


Ein Vorschlag: 

Um umständliche Bestellung und Verwaltungsaufwand von Programmen zu vermeiden, 
könnten diese gleich mit den Infos abgedruckt werden. Dabei sollte os dem Er- 
steller überlassen bleiben, ob er bloß eine Bedienungsanleitung beifügt, oder 
eine "Seninararbeit" abliefert, die die Zeitereparnisa durch das Programm zunich- 


eh GÜNTER LELARGE 
Hierzus . . 
Prinzipiell stimme Ich diesem Vorschlag zu, doch frage ich nich, welchen Reiz 
es für Mitglieder haben soll, wenn Programme nicht vergütet werden (können) . 
Wie ist Ihre Meiming hierzu ? 

OLIVER RIETSCHEL 


LLL———— Bee 


Wieviel Mitglieder ? 


Mich würde interessieren, wieviel Mitglieder unser Club bisher hat und wieviele 
aus dem Aurland kommen ! EIMUND WEITZ 


Am 11/05 besaß der Club genau 25 Mitglieder. Einen Österreicher, einen Italiener 
und einen Franzosen, der wegen 'Kommunikationsschwäerigkeiten' wieder ausgetreten 
ist. O.R. 


PHRSEN? 

FINSTERNISSE 
STARTDATUM: III. 

JAHRE CDEZINAL) 

A: FINSTERNISSE 

B: MOKDPHASEN 

EC: NIEDERHOL. D. ANZEIGE 

E: NAECHSTES EREICHIS 

PRP .. 


oleLBL 14 

d2+LBL "HEITER” 

@JeLBL E 
FS? 08 PHASEN“ FC? 86 
"FINSTERNISSE:® FC? 55 
AYIEN RCL 81 KCL 82 
SIR + ST+ 08 


IS+LBL 83 
9,1. $T0 25 XEO 88 
ENTER? 156 25 
REL IND 25 + .2 PR 
156 25 RCL IND 25 + 
xoY STO4 * + 
sı0 85 XEO 88 STO 83 
Ken 88 STO 82 - + + 
SIR 32% * RCLG4 + 
ST+ 03 RCL 83 RCL 84 
RÜL 24 D-R 7 + 
ST« 82 RCLB2 .7 
STe 04 PR I + * 
Ste 03 RCL 63 RCL 05 
+3 LH PR 2 DR - 
” ST+ 03 RCL 83 
RCL 64 XEO 08 - + 
STO 84 ENTER? + SIN 
9% 7 - 57:05 RCL 86 
RCL 65 TAN ATAN ABS 
K=Y? 670 12 LASTK 
ReL62 CO 8 - * 
z $Te 08 CTO 83 


183+LBL 88 

156 25 RCL IND 25 
REL 68 ® 156 25 
RL IND 25 + RIN 


112°LBL “PHASEN” 
FC? 84 XEO J SF 88 
CF 83 "PHRS: * CTO 84 


119LBL "FINSTE* 
FC? 84 XER I FIRST: * 
SF 03 CF 08 


125+LBL 84 

SF 28 CF 29 ARCL X 
FC? 55 AVIEM RCL 23 » 
RÜL 21 - STO 98 

To 63 


137eLBL 12 

136+LBL "HIN" 

139 LLC 

cf 82 RL 9 RL 4 
SIR ® REL 65 ENTER? 
RM - SUN T/ 
+ R8S RCLES COS 
x8? SF 82 FS? 08 

co 81 KL * - 
RÜL 82 C0S KLUG * 
RL? + - 09 

CIO 14 LASTK RCL 21 
FRC #7 BEEP FSX 82 
GTO 89 -SOHNF:" CTO 13 


103+LBL 89 
can NONBF: “ 


186+LBL 13 
FR2 MAX FNS' 
AYIEN PSE PSE 


193LBL 01 

RCL 88 INT ENTER 
ENTER? RÜL 22 - 

RC 23 7 INT ST0 5 
RL 23 ® INT - 
ENTERt ENTER? RL 24 
+ INT STO 28 RC. 24 


“NT - 12 RU 1, 


- x? CTOR2 KOT 
1865 


Z27+LBL 82 

IR RL 
IE 7 * RL 22 FRC 
+ FS?C 82 CTO 10 

FS? 83 610 11° KEUN:* 
gro 1 


245eLBL 18 
- VOLLM:" 


247ALBL 11 
BEEP "HAM" FIX 6 
ARCL X AVIEN PSE PSE 


255eLBL 12 

CLR RCL 98 FRC 24 ® 
MS FIX 2 FS? 61 RTH 
"Fin" ARLX r HR“ 
AVIEN CF 61 FC2 55 
RTN CTO 14 


1/68 


271er 
SF 84 STOL CLRG 
14.765 STO 01.97 
STO 86 1.23 STO 07 
.2? STO 88 5.145286 
STO 89 693986.43 

STO 21 122.0819 STO 22 
365.25 STO 23 38.6081 
STO 24 -.995647 STO 18 
142.9 STo It 282.2 
STO 12 9.6 STO1J 
13.176398 ST0 14 
153.17 STO 15 -.111487 
STO 16 32.83 STO 17 
-,852952 STO 18 262.49 
ST0 19 RCLL 

°  _ ReadY* TGNE 5 
F£C7 55 AVIEM „END. 


ANNUITRETEN- 
TILGUNGSPLAN 


MIT DAMNUM 


BI+LBL -TILG“ 

CF 28 °FV?° XEQ 14 
STO 81 29° XEQ 14 
$To 02 N?" XEQ 14 
$T0 03 -AUS2. IN x 
XEO 14 ST0O 84 RU 01 
KEo BI / KL ® 
STo 15 "PAT=" ARCLX 
PROMPT STO 10 RCL 15 
- RL IE 7 
RCL EI ® *Xeff=* 
AvIEN STO 89 9 STO 15 


ANNYITRETEN-TILGUNGSPLAH 
FORTSETZUNG 


37+LBL 88 

RCL 15 ST+ 08 XEQ 89 
RCL 10 RCL 12 RL N 
® RL II 7 RCLBI * 
- RL II RCLI4 * 
RCL O3 ® RCLI2 + 
ReL II © RELH 

RCL IE ® RCL I © 
RCL 63 8 - RCL 13 
xt? 7 RCLOI € / 
STH 15 nBS 1 E-5 
Xt=Y? CTO 98 REL 15 
ST» 98 RCL 8.1 - 
1E2 ® ARCLX PROMPT 
G10 88 


63+LBL 89 

RCL 88 STE 11 RLL 83 
yix STo 12 STO 13 
RCL BB 7 STO 14 1 
ST- 11 ST- 13 RN 


182-LEL 81 

ka 182 / 1 + 
STO @8 RCL 93 YtX 
stoıı 1 - RCLOB 1 
- ı/ RUN 


11%eLBL 08 
RCL 93 STO13 8 
sTo 14 


124+LBL 86 

1 5Te 14 Ach” 

FIX e RL IE ARLL 14 
“ JAHR:" AYIEM FSE 
FIX 2 STO 14 STO 3 
xep Bi RCL IA e CHS 
RL II RCLBI ® + 
tıLa ARLLX "+ DR 
AYIEW PSE PSE PSE 
PSE X? CIA 66 

REL IB RCLIe » + 
°f=° APCLX RYIEM PSE 
PSE RL EI XOY ICH 
RCL 13 STO 92 REN 
"zV.PV=° ARCLK AYIEM 
STOP 


1741 BL 14 
AVIEN 


176+LeL 15 
Pse FS?t 22 RTN 
cro 15 CTO 14 .END. 
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TIMER: E 


TELEFONGE- 
BUEHRENZAEH- 
LER 
PROMPT OHNE R/S * END- 
GYELTIGER START DANN MIT 


R/S 
pRP 


e1+LBL "TEL 
"SEK/EIRHEITY" AYIEN 


04+LBL 11 

PSE FÜRC 22 6GT0 1 
8.7 0 183 7 FIX3 
RnD FIX 2 STO 82 CIX 
cua STO 81 "t R/S” 
TONE 9 PROMPT CIO 01 


23+LRL 95 
xoY 156 88 GTO 85 


27+LBL Bl 

.23 sSteeı din” ° 
ARCL OR "HdR" TONE 4 
AVIEN RCL 92 STO 68 
CTo 05 END 


EINGABE: HH-MNSS, R/S 
UHR: A 


e1rLEL A 
CLRG 46 STO2ı FIX 4 
RTH RDN 


BöeLbL 85 
VIEHK NR 728 1X + 
STo 28 RCL 21 REL 25 
+ INT STO 25 


28+LBL 91 
DSE 25 CTO 81 RCL 28 
uns GTO 05 


26+LBL E 
STo 84 INT 68 * 262 
® RC 94 FRC STOM 
1E2 # IKT 22° + 
re it 1 E2 * FRC 
LE2 » 68 / 262 © 
+ INT STo 25 STOP 
FIX 8 


STeLeL 83 
view 25 15E 25 61093. 
16 STE 18 


63+LBL 84 
TOHE 9° TONE @ DSE 10 
GTO 84 .END. 


Kiy 
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Bei meinen Programmen, die alle auf Drucker ausgelegt sind, kommt es zu 


immer wiederkehrenden Programmteilen: 


4). LEL FT 
2) LeL PS 
3) LBEL SZ 
4) LE — 


Formstieren der Ausgabe 
Test,ob Drucker vorhanden 
Test»ob genuegend Datenregister vorhanden (wird ndch PS 


automatisch mit durchgeführt) 


unterstreichen einer ganzen Zeile 


Der Druckertest ist nicht unbedingt notwendig, da beim erster Drucker- 
befahl (ausgenommen ADV) sowieso NONEXISTENT aufteucht, Dar Speicartest 
iet eher wichtig, da SIZE nnn innerhalb eines Unterprogrammes ausgeführt, 
die Rücksprungadressen löscht. Formatieren ist für den Druck von Tabellen 


schön. 


BL. 2: us 


@i+LeL “FT* 
K0Y STOZ ABS RND 


KOY 


07+LBL 88 
tetXk X=Y? CT 01°” 
ACA RDN LASTK BSE X 


6T0 88 


17«LBL 01 
RÜCL Z RND ACK LASTX 


RTN 


23+LBL PS“ 
FS? 55 610 "SZ" 


"PRINTER" 


cr ii 


SF It PROMPT 


"I8rLAL *SZ° 

SF 25 RCL IND X RDN 
FS? 25 RIN Rt FIX O 

1 + »SIzE" 18 %Y? 
"Ha xt? MY? "FO 
-RIN ARCLK SF 27 RIN- 


SIsLBL *—* 


SFi2 ” 


-_ RSTOL 


ARCLL PRA CF 12 END 


LBL'PS 
LBL"SZ 
“ LBL’-- 
END 


‚End. 


LBL’FT 


rer 


128 BYTes 
BE DNTEe 


Wirkungeweise und Programmablauf 


FT: Der zu druckende Wert steht im Y-Register, 
im X-Reg ist die Anzahl der vor dem Dezimal- 
komma (oder -punkt) -2 bereitzuhaltenden 
Druckpositionen, 2, B.: die Zah!. 4562.65 

soll mit 7 Stellen vor dem Punk‘. geschrieben 
werdens 4562.65 ENTERSXEQ "Fr" PNEUF 

FT wird jetzt 5-mal durchlaufer, oder solange, 
bie 10" kleiner-gleich der zu d. uckenden Zahl 
ist. Bei jedem Durchlauf wird eına Leerstelle 
in das Druckpuffer gegeben. Die Zahl wird auf 
die eingestellte Nachkommastelle gerundet 
ausgegeben, die "Originslzahl! steht In LAST X. 
Positive und negative Werte werten bearbalitet, 


Es wird nur im Stack gearbeitet. 


PS: Ist der Drucker vorhanden, wird zu "SZ" 
verzweigt. Sonst wird Flag 11 gasetzt, und 
PRINTER in die Anzeige gebracht. Da zum fi 
setzen das Druckersteckers der i!echner aus- 
geschaltet werden soll (muDl), :äuft das 
Programm nach dem Einschalten automatisch 


waiter mit 


SZ: Im X-Register steht die A'resse der hüchster 


Speichaeradresse. Ist dieser Speicher vorhanden 


prisma 10 / 6-80 


(Flag 25 bleibt gesetzt) wird ins Hauptprogramm zurückgegangen, sonst 
wird SIZE nnn im Alpha-Register aufgebaut, wobei nnn die Anzahl der 
erforderlichen Speicher darstellt und der USER-Modus eingeschaltet, 


Darauf erfolgt Rücksprung ins Hauptprogramm. 


—: Es wird eine Druckzeile mit 12 — in Breitschrift susgageben 


Beispiel: 
PRP "PAK"" 
NEE Es werden 4 Speicher (0 bis 3) benötigt. 
LEL -Ppar» 
3 XEO -PS- FO%C 25 Sind diese nicht vorhanden Ist Flag 25 
PRONPT CF 27 AD gelöscht und über PROMPT SIZE 004 
FIX 2 ADV SF 12 u f 
“PLATTE AK“ PRA CF 12 angezeigt. Nach Änderung des Speicher- 
ABV "GELAGERT" KEO 82 : \ 
= {M:> PROMPT bereiches muß mit R/S weitergemacht 
RSTO 83 ACA ACK PRBUF werden. Der USER-Modus wird abgestellt. 
te Sen Die Schritte 2 bis 6 sind dafür zwingend 
ARTL 03 PROMPT ACA 
ACKX  PRBUF notwendig. 
an Schritt 62 druckt die Unterstreichungen. 
"MCKNMD: °  PRONPT Die erste Zahl der folgenden Zeilen 
N 5 ns aM wird mittels ARCL X und ACA in den Druck- 
sta cHS 1 + 1/X puffer geladen.Dadurch kann die erste 
cn ei 0 ar 8 Stelle ebenfalls besetzt werden (Radien 
SKFCHR °M PHI" ACA bis 999.99 m). Die folgenden Zahlen 
mn können 6 Stellen vor dem Dezimalpunkt 
63+LBL 81 haben . Beispielausdruck; 
8 "RAM: » PROMPT B 
x=8? CO 94 CLA ( a xEa "FT" ). Bee ou ie A 
re f Der Druck der 
FE 

sto0 MS ı + zeile wird durch PLATTE 4 K 
RL 03 * 4 XEQ °FT* hritt 93 GELAGERTER RAND 
RCLB3 1 RELB2 + * auu (s8 ) R (m: 5.06 
4 XEQ FT“ ADY CTO BI gesteuert. FREIER RAND 

R m: 15.08 
9SeLBL 82 {LAGER-JRAHDNONENT 
"HER RAND“ PRA RTN M{KHN/M): 258.08 
MeLBL 84 R Mm Men 
Eu 


5.08 258.08 -312,50 
18.08 39.06 -181.56 
15.08 0.08 -62.58 


Dipl. Ine. GFARG RAABE 
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Liebe Mitglieder I 


Ich habe mich sehr über die bisherige Resonanz auf unsere Clubgrüriung gefreut. So 
kommt es auch, daß prisma 6-80 sehr umfangreich ausgefallen ist.Auheriem liegt echorn 
Material für prisma 7-80 vor, 

Wenn auch Ihnen unser Club gefallen hat, so möchte ich Sie bitter, in den nächsten 
Wochen dem Mitgliedsbeitrag von 9,--IM für das zweite Halbjahr 1°° zu überweisen. 
Nach Zahlungseingang erhalten Sie sodann prisma 7-80. Beachten Sie aber bitte, daß 
Überweisungen von Banken und Sparkassen bis zu 14 Tagen dauern! rrisma 6-80 liest 
daher eine Zahlkarte für_gebührenfreie Finzahlung bei jedem Posts: bei. Diese Ist 
für Sie besondere dann nützlich, wenn Sie gar kein eigenes Konta : sitzen. Weitere 
Zahlkarten können Sie auf Wunsch erhalten. "LIVER RIETSCHEL 


ROP 


NOP kann von einer 32 ( Bug 2 -- Serienmummer unter 1951 ) - Masc.iine erzeugt wer- 

den. Andere 41c ohne diese Möglichkeit können dieses "Programm" be: n Club erhalten. 

Bisher waren nur einige ein- oder zwei-Byte ROP-Befehle bekannts 

1Byte: AOFF (wenn 2 nicht aktiv) ; AON (wenn 2 nicht aktiv) 5 DES ; RAD ; GRAD ; 
CLD ; LBL oo = 14 ; ADY 

@dytes X<>X 4 STOX ; RCLX 


"Alle diese Befehle können aber Auswirkungen auf den Wert im X-Reg: ver haben, Aus 


der Hex-Code Tabelle des hp-41c geht hervor, daB er die Lücken zwischen Programn- 
echritten mit einem Spare-Code filllt: der Hex-Code ist Fo. 

NOP kann nun wie folgt erzeugt werden: 1) Folgendes Programm mit ira Beginn des 
Speichers eingeben’ [ alle MM herausnehmen ): 


01 LBLA 06 ENTER 162 ENTER 167 DEEP 
02 999 07 ENTER 163 0 166 END 
03 CIA 08 ENTER 164 LBLE 

04 ARCL IND X R 165 ASTO IND X 

05 GTOE ; 166 STOP 


2) PACKEN „ USER-Mode setzen 
a3) 
4) PR@IS 167 BEEP ,„ 1x "CLEAR" drücken ([]) und RCL IND T eingeben 
5) RUN und E drücken 
6) wieder PRGM-Mode: 167 BEEP „ 1 x SST drücken. Dann müßte NOP ala "" bzw. T 
in der Anzeige erscheinen. 
7) Die ersten 167 Programmsahritte können gelöscht werden und NÜP zıf eine Karten- 
seite kopiert werden. Werf dieser Programmschritt fortan benötigt wirä, kann ROP 
mit "MRG" an das unfertige Programm angehängt werden. Dieses NOP wird im Key- 
Assingnent Program in den Programmlinien 52 und 99 verwendet, 
DETLEV BOCK 
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Erstellen von Listings für Andere 


Ich bin gerne bereit, Programe anderer auszudrucken. Als Kostenbeitrag schlage 
ich folgende Regelung vor: Pro Zeile 0.5 Pfennig, incl. Rückporto, mindestens 
aber das Rückporto. Der so ermittelte Preis wird auf volle 0.50 IM- oder ganze 
IM-Beträge gerundet. Anschrift: Brotweg 10 ; 3320 Salzgitter 

Dipl. Ing. GEORG RAABE 


Herr Gert-Jürgen Grünler, wohnhaft in 1000 Berlin 15 , Düsseldorfer Str. 56a , 
hat sich freundlicherweise bereiterklärt, Programme von Clubmitgliedern gegen 
einen frankierten Rückumschlag aufzulisten, 

Ich persönlich finde, daß es sicher nicht verkehrt wäre, als "kleine Danksagung” 
eine kurze Programmerklärung beizulegen, sofern die Bedienung des Programms nicht 


trivial ist. OLIVER RIETSCHEL 


Welche Batterien kaufe ich mir für meinen Rechner? Eine Frage, die sich jeder 
schon einmal gestellt hat (oder zumindest bald stellen wird). 
Brauchen Sie Ihren Rechner mur sehr selten? Dann eind Alkali - Mangan Batterien 
sicher nicht verkehrt, denn sie sind für langzeitige Belastungen konzipiert, An- 
dere aber bei starker Beanspruchung des Rechners: Hier wird die Anschaffung guter 
aber billiger Batterien sinnvoll. Sie verkraften vor allen extrem kurzzeitige 
Belastungen besser als Alkali Batterien. Aus meiner eigenen Erfahrungt 
Vor etwa zwei Monaten kaufte ich mir Alkali-Mangan Batterien für meinen Rechner. 
Am darauffolgenden Sonntag ließ ich etwa 60 - 70 Karten durch den Leser laufen. 
Das traurige Ergebnis: LOW BAT Daraufhin zog ich es vor, mir billige Batterien 
zu kaufen und besorgte mir drei Sätze DAIMON N2 Batterien. Doch das Ergebnis war 
wiederum erstaunlichs Obwohl ich täglich etwa 5-8 Karten durch meinen Rechner ja=- 
ge, hält der erste Satz auch nach zwei Monaten bei ständig angeschlossenen Karten- 
leser und ein- bis zwei Modulen noch extremsten Belastungen stand. 

j OLIVER RIETSCHEL 


HP User Bibliothek 


Jeder, der sich bisher durchgerungen hatte, Mitglied der HP User Bibliothek zu 
werden, erlebte eine derbe Enttäuschung: Nicht mir, daß alle Programme mur mit 
englischsprachiger Dokumentation erhältlich sind; nein, mit Ausnahme von zwei 

oder drei Programmen stammen alle von HP selbst und sind nichte weiter als Kopien 
aus den überall erhältlichen Solution Books, 

Doch soll im Juli endlich ein mehrsprachiger Katalog herauskommen, der auch Pro- 
gramme "von Anwendern für Anwender" enthält, Bleibt mur noch zu hoffen, daß es nicht 
ähnlich traurig wird, wie beim HP 67/97: Für diese Rechner verzeichnet die User 
Bibliothek heute genau zwanzig deutschsprachige Programme, 


OLIVER RIETSCHEL 
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In prisma 7 mıß es in Zeile 274 LBL J beißen, nicht LBL INIT. GETTER LELARGE 


’ 
Berichtigung: " 
1 
| 


Falschinformation 
Mir scheint, als würde HP falsche Auskünfte zu den RP-Programmsamı!'ingen geben: 

In Software-UÜbersichten wird z.B. unter Games angeführt: Hexapawn, “ari, Dice, Nim, 
others . Aber wedör Kim nooh Dice sind in der Sammlung enthalten, 


0L..VER RIETSCHEL 


Funkamateur gesucht | 

Befindet sich unter den Mitgliedern ein lizensierter Funkamateur, .'r vielleicht 

an einem Program arbeitet, dad durch Eingabe der QTH - Kenneru ( wine GTA-Kencer 
ist GJ 11 h ) die Entfermung in Kilometern erreohren kann ? Ich bin selbst Funk- | 
amateur mit dem Rufzeichen " DLAKE". RU.CLF EBER | 


U-Boot-Jagd i 

Jedem kann einmal ein Fehler unterlaufen. Auch wenn das keine richt'ge Entechuldi- 

gung int, eo hoffe ich doch, Sie werden es mir nachsehen: Ganz zu ;.ıfarg unseres 

Clubbestehens habe ich unglücklicherweise vier funktionsuntlichtige "eralonen eines 

von mir entworfenen Spiels "U-Boot-Jagi” versandt. Ich habe das Spirl mın überhclt 

und sehe drei Gründe dafür, es in priema abzudrutkenı 

Ri Wiedergutmachung für die erste Version 

2) Meiner Meinung nach kann das Program als Beispiel dafür gelten, “aß auch Marmıt- 
programme bei entsprechender alphamumerischer Auslegung durchaus Übersichtlich 
sein können. 

3) Der Vorschlag von Günter lelarge, alle Programme abzudrucken, et.eB sowohl auf 
Zustimmung als auch auf‘ Ablehmung, so daß ich im weiteren bei Be.behaltung des 
Programmkataloges auch verstärkt Programme in prinma bringen werte. 

Hier mın eine kurze Beschreibung des Spielss 


123456789 
| 


Gespielt wird auf einem 10 x 10 Feld mit 5 T-Rooten, 
Sowohl der Rechner als auch der Spieler eratecken vor 
Spielbeginn 5 U-Boote auf 5 von diesen Feldern. Der Pech 
ner braucht hierzu die Eingabe einer Zt! z mit «21. 
In der Anzeige erscheint dann das Feld, auf das der Rect 
ner sohießt. Liegt guf diesem Feld eines Ihrer U-Boote, 
80 hat der Rechner einen Treffer erzielt urd Sie misren 
die Taste A drlicken. Ein Fast-Treffer (Taste B) liegt 
dann vor, wenn auf einem der unmittelbar angrenzenden 
Free Felder eines Ihrer U-Boote liegt. Belerielı U-Boot zuf 
35: Fast Trefler bei Schuß auf Feld: 25,34,36,45 

U-Boot auf Feld 49: Fast-Treffer bei Sin auf Feld: 
39,48,59, aber_nicht bei Schuß auf Feld 50 ! (Randlage) 
Liegt weder ein Fast-Treffer noch ein Treffer vor, ao drücken Sie die Taste C (Fehl- 
schuß), Daraufhin sind Sie mit Schießen an der Reihe, Geben Sie das ?eld ein, das 
Sie zu beschließen wünschen und der Rechner wird Über Erfolg oder MiS«-r/ole Auskunft 
geben, Die Rechenzeit variiert, besonders in der Schlußphase des Spi:ls, mit den 
Problemen, vor die sich der Rechner gestellt sieht. Sollte er nach m:kreren Mimiten 
noch keine Antwort geben, sü hat er bereits alle Felder benchossen u.xi Sie haben ihr 
ein U-Boot "untersohlagen" „ In diversen Probespielen erwies sich ds, Spiel als 
fehlerfrei und spielstark. "Fehler" waren immer auf Fehler im Festhı!ten der Spiel- 
geschehnisse rurückzufiihren, Rotieren Sie sich jeden Schuß genaneste.ıs! Yiel Spaß! 

OLIYTER RIETSCHEL 
PS: Das Programm benötigt zwei Memory-Module, doch läßt es sich dur:.: alpnamumeriach 
Kürzungen auch mit einem Memory-Modul ausführen. 
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Aufgrund des enormen Unfangs von prisma 7-80 wird das nächste prime ( 9-80 ) erst 
in ca. 8 Wochen erscheinen. Eine andere Regelung ist bei 1,50IM mona :lich leider 


nicht möglich . 


prisma nn 
Dankel j 

Im folgenden finden Sie den Bericht "Rechnerorganisation des HP-41C" „ Die Info 
mationen hierzu habe ich aus den verschiedensten Quellen erhalten. Ich möchte nich 
dafür bei allen Informanten für die Telefonanrufe und Briefe auch im Namen des 
Clubs bedanken. Besondere hervorheben möchte ich Detlev Bock, Göttingen, HP-Ver- 
triebeleitung, Frankfurt, und verschiedene Berichte in den Ausgaben von PPC Journal, 


Santa Ana, aus den letzten 10 Monaten, die mir alle ein wenig weiterhalfen oder 
meine Erkenntnisse bestätigten. OLIVER RIETSCHEL 


Rechnerorganisation dee HP-41C 


Was steckt in unseren Rechnern ? Eine kurze Frage und eine kurze Antwort ? 

Gewiß nicht ! Wahrscheinlich haben mır sehr wenige von uns bisher Ihren Rechner 
"aufgerissen", denn das ist auch nicht zu empfehlen: Carantieverlust, extrene Iu- 
pfindlichkeit durch CMOS Technölogie, hohe Reparaturkosten -- gewichtige Gründe 
also. Darum sei die Anleitung zum Auseinanderbau auch erst einmal verschwiegen - 

ea lohnt sich nicht für den Elektroniklalen. Hier mun eine Skizze der Logik-Platines 


Unschwer zu erkennen: Die CFU (Central 
Processor Unit), die zentrale Rechenein- 
heit in der Mitte. Sie ist der eigentli- 
che Rechner und steuert die Speicher an, 
Von den Speichern eind da zunächst einmal 
12kByte ROM (geni Only Memory)(3 Chips 
mit je 4kByte), das Betriebssystem, das 
auch olme Stromversorgung nicht zerstört 
wird. Weiterhin findet man noch fünf wei- 
tere Chips: Es handelt sich um RAM*s 
(Schreib- Lese- Speicher), die Program- 
daten und Speicherregister beinhalten; Jje- 
des RAM mit einer Kapazität von 112 Byte. 
112 Byte entsprechen 16 Registern. Bei 5 
Chips also 80 Register. Davon sind uns al- 
len 64 Register bestens bekannt: Der frei 
programmierbare RAM, Weitere RAM Kapazität läßt sich Über die 1/0 - Ports anschließen: 
Menory Module mit je 448 Byte, maximal also 1792 Byte, Das bedeutet, daß der HP-41C 
über bin zu 2,352kByte RAM und 12kByte ROM verfügt. Außerdem lassen sich weiterhin 
bis zu 48k®yte ROM an die I/O-Ports anschließen, . 
Doch zurück zur Standardvereions Von den 5 RAM sind alsp 4 der frei zugängliche Spei- 
cherplatz, über dessen Gestaltung und Aufban sicher noch ein eigener Bericht folgt. 
Doch vas ist mit dem fünften ? Eine Frage, äle nur durch extrem aufwendiges Probieren 
geknackt werden konnte. Man kann auch "von hinten herum" kommen: Was beinhaltet die 
erste Seite der Statuskarten? Nun, man kann es ausprobieren Zunächst sind da einmal 
die XYZTL - Register, ferner das Alpharegister und die Flags. Doch eingehendere Un- 
tersuchungen amerikanischer "Softwaretechniker” ergaben, daß es sich hierbei vielmehr 
um einen wohl definierten Block von 16 Registern handelt. EP bestätigte mir dies, 
Doch zuvor ein klärendes Wort: kByte = 100ooByte ; 1 Register = 7 Bytes = 14 Digits 
1 Digit = 4 Bits = 1 hexadezimales Zeichen 
Ein typisches HP-416 Register sieht also so aus: 


Dec EEIEI EIES EEZEN EZER HIER EEIEI EIER 


Kyyie? yrkır rt 


Verden mın numerische Werte in ein Register abgespeichert, nehmen die Digits die 
folgenden Werte an: Digit 133 o für positive Werte ,„ 9 für negative Werte 
Digit 12-3: 1ostellige Mantinse des abgespeicherten Wertes 
Digit 2 ı o für positiven Exponenten , f o für. negativen Exp, 
Digit 1-0 ı 2stelliger Erponent des abgespeicherten Wertes 
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Doch zurück zu unserem 16 Register Bioski Benermen wir die Register erst einmal 


EFFLEFILBRE 
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mit den Zahlen o bis 15: 
Im Register o finden wi: das T Register. 


In Register i das Z, in 2 das Y, in 3 dar; 


X und in 4 das last X Register. 

Register 5, 6 & 7 und die ersten drei Pyt 
von Register 8 enthalten das Alpharegiste 
Diese Register stellen sich in der Anzeisz 
als Register MH, W, O0 & F dar, Vergleicher 


Be a 


Sie prissa 2 & 5 I Die ıestlichen 4 Byte 
von Register 8 (P) enthziten nöglicherwei 
se (??) mır während des Beschreibens und 
Lesens von Magmetkarten die SIZE und RE 
Zuordmung. 
Register9 (in der Anzeises Q) enthält, 
wenn kein Drucker angeschlossen ist, den 
umgekehrten Hexcode des zuletzt angerprur 
genen Alphalabels. 
Register 10 (Anzeige: F ) enthält die Tar 
tenzuordmungen ohne SAIFT. Ebenso wie in 
‚ Register 15 werden aber nur Standardfunk- 
tionszuordnungen vermerkt, Welohe Infor 
mationen die verbleibenden fünf Digita de 
inhalten ist mir 2.2. ncch unklar, 
Die beiden folgenden Rerister 11 & 12 ste 
len sich in der Anzeige als Register a & 
dar, Sie enthalten die sechs Rücksprung- 
adressen, die sich der Rechner bei sechs 
Unterprograsmmebenen merken muß. Die einze 
nen Adressen werden in !eweils 2 Bytes 
unterteilt umd zwar in folgender Form: 
AXYZ XYZ ist hierbei der Hexcode des Registers, in das der Rechner zurlickapringe 
muß, 
A ist das Byte, bei dem die Programmausführung fortgesetzt wird. 
Register b enthält außerdem noch den Programmzeiger, der angibt, in welchen Byte 
der Rechner sich gerade befindet. 
Im Register 13 (o findet sich schließlich eine ganze Anzahl verschiedener Inlor- 
mationen: Die ersten drei Digits entbalten die .END. Marke im Programmspeicher. 
Die nächsten drei Digits enthalten die Position des ersten Speicharregisters im 
.RAM und die darauf folgenden drei Digite sind besonders interessant: Der Rachner 
tut hier einen ganz bestimmten Wert hinein (bei meinen Rechners 159) und kontrol- 
liert diesen dann ständig, Sobald sich dieser Wert in irgendeiner Form verändert, 
wird angenommen, daß auch der restlichen RAM in Mitleidenschaft gezogen wurde und 
der Rechner lösoht selbsttätig den geeamten RAM und gibt die Mellıng MEMORY LOST 
aus. Weiterhin folgen in Register o zwei Digits, die die Status-F.iags des Druckere 
beinhalten und drei Digits, in denen die Adresse des ersten Sumenregisters zu [ir 
den ist, Allea selbstverständlich hexadezimal. 
Im Register 14 (d) finden wir_die Flags des Rechners: 1 Register ntapricht 56 Bit 
und 1 Bit entspricht 1 Flag. Aus diesem Grund hat der HP-41C auch 56 Flags. 


DERGTIEN: 


CHEIDERIEIBNEN: 
Fer DENIGIEE 


2 


ISFSE DENIRBEERIIG 
H-44 DENIMEEEN!S 


MAATMFITT Tel IR TI 


. Im Register 15 finden wir die Programmzeile, in der der Rechner sich im Moment ge- 


rade befindet, in den ersten drei Digite. Dann folgt 1 Byte, denssn Verwendung mir 
momentan noch unklar ist und neun Digits, die die Tastenmorämng>n mit SHIFT ent- 
halten, Wie in Register 10 wird hier nicht verseichnet, was der Taste zugeordnet 
ist, sondern ob ihr etwas zugeordnet ist. 

Wir wollen die gefundenen Register in Zukunft so bezeichnen, wie sie uns die Anzei 
ge bietet: Ale Register T,2,Y,X,L,M,E,0,P,Q,F,a,b,c,d,e 

Druckerbesitzer werden benazkeni In den Listings werden einige dieser Register 
anders dargestelltı Sie sehen dort 2.3. so auss RCL+ als RCL’T |, RCL Male RC 
RCL E als RCLN (Siehe auch Programm Key-Assingsent) 
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In prisna 2 haben wir weiterhin die Registerbefehle zu den Registern A,B,C,D er- | 
sougt. Wo sind die denn mın ? Erinnern wir uns, daß direkt mır Werte in die Spei- i 
cherregister oo bis 99 getan werden können, da der Cursor eine zweistellige Adres- | 
se verlangt. Bei meinem Rechner ist es mun so, daß durch die Registerbefehle zum i 
Register A das Speicherregister 102 angesprochen wird. Wenn auch etwas umständlich, | 
so ist damit doch ein direktes Bemutzen der Register 102 bis 111 (und noch weiter???) 
wöglich, wenn man die Registerbefehle der Register A,B,C,D,E,F,G,H,I,J benutzt, die | 
wahrscheinlich alle existieren. 


Wie mimerische Werte in Speicherregister abgespeichert werden, habe ich oben bereite ı 
erklärt . Dooh wie ist es mın, wenn der RAM als Programmspeioher bemitzt wird? \ 
Die Einteilung in Register entfällt, wichtig wird die Einteilung in Bytes oder Digits: 
Erinnern wir una: Ein Digit ist ein hexadezimales Zeichen, d.h. eins 4-bit-Dualzahl. 
EP hat das Problem mın folgendermaßen gelüöstı Ein Register wird in 7 Bytes unter- \ 
teilt (s.0.). Jedes Byte kann, da ea zwei Digits enthält, 16 x 16 = 256 verschiede- 
ne Werte annehmen. Bei der Verarbeitung eines Programmes geschieht mın folgendess | 
Die CPU "betrachtet" nacheinander die einzelnen Bytes oder besser: deren Inhalte. ; 
Jeder einzelne dieser 256 verschiedenen Codes hat pine ganz bestimnte Bedeutung. N 
Sie läßt sich in der sogenannten Hexoodetabelle des HP-41C nachsehen, Sie enthält Sn 
zunächst eirmal alle Standardfunktionen des Rechners, georünet nach einem bestimmten | 
Ziels Gleichartige Funktionen in Blöcken zusammenzufassen. Hierbei spielen z.B. die 
folgenden Gesichtspunkte eine Rolles Wieviel Variablen werden durch die Funktion i 
verändert? Wieviel Gemeinsamkeiten weisen die einzelnen Verarbeitungsroutinen auf? 
Welche Register werden bemitzt? u.8.W. j 
Eierbei spielen vor allem elektronische und organisatorische Probleme eine Rolle, ! 
deren Erörterung langwierig und für viele von uns wenig interessant wäre, Deshalb 
will ich hier nicht näher darauf eingehen, Wichtig ist jedoch noch 

Nicht alle 256 Codes konnten ( und sollten Il! ) belegt werden Denn für die häufig 
verwendeten ®efehle, wie RCL, STO, GTO , LBL wurden für die ersten 15 bzw. 16 Be- 
fehle eigene Codes eingeplant: Ein ausgezeichneter Einfall, denn dadurch wird der 
durch ein Programm bendtigte Speicherplatz deutlich geringer. Die Übrigen Befehle 
brauchen nämlich je zwei Dytes:s eines zur Festlegung der Funktion, eins zur Fest- | 
legung der Adresse. Sehen Sie nich die Hexcoäetabelle ruhig näher an, Sie werden 
‚sicher noch einiges interessantes entdecken: 


% L D [4 [) [3 Ä i 
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Zeilen o bis 8: 1 Byte Befehle ; Zeilen 9 bis Cı 2 Byte ; Zeilen D & E: 3 Dyte 


Ein kuraeg Beispiel: In einem Register seien die folgenden Werte abgespeichert: 


JNONGBSHEGEFGNGSEIEE 
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priem.s DS 


Haben Sie sich die Tabelle genau angeschen ? = 
Dann haben Sie sicher noch einige seltsame Coden entdeckt 


Spare 5 Codes 1F und AP und Bo (unf Fo 7???) 

Dieser Code hat keine Wirkung auf den Reohner, befindet sich vor PACKING zwischen 
den Programmzeilen und ermöglicht dadurch schnelles Einfügen weiterer Befehle. Die 
Unterschiede zwischen den einzelnen Codes sind mir im Moment noch nicht bekannt. 


Full 5 Codes.oo' 

Wird ein Befehl im Programmspeicher gelöscht, so wird in diese(s) Byte(a) eine 

o getan, Aan Dyte wird gelöscht. Erst die Funktion PACK entscheidet, co der HWULL 

Code hier entbehrlich ist. Er ist z.B. nicht entbehrlich, wann durch ihn zwei mı- 

merische Werte getrennt werden: Das Löschen von ENTER bringt in folgender Routine 

auch nach PACKING keinen Speicherplatzgewinn, da anstelle von EPFER hier Jetst der 

("unsichtbare") NULL Code stehts ; 

19 9° 

ENTER nach PACKIKG: HULL 

+ 3 


000 


DICK Te 


Das längere Arücken einer Taste NMetzur automatischen Löschung der Funktions 
Es wird statt dessen der NULL Befehl ausgeführt. 


XGI 53 Codes AE 
AGI entspricht „..INMD... 


Doch jetzt erst einmal gemug Theories Gibt es auch irgendeinen praktirchen Jutzen 
der ganzen Sache ?_ Gewiß I 

Hier einige Anregungen: 

Register: M,#,0O,P Manipulation in Alpharegister ; zusätzliche Busichel 


a,b zusätzliche Speicher ; Manipulation der Hfickksprungs.!ressen 

° programmierbares MEMORY LOST (durch STO c) 

ä gezieltes Löschen oder Setzen größerer Gruppen von Flags. 
Manipulation bisher nicht beeinflußbarer Flags, 

eo Springen zu einer bestimmten Programmzeile (ohne LNL Befehl) 


Löschen aller oder Teile der Tastenzuordmungen (auch Registerh 
Sicherlich gibt es noch viele Anwendungsmöglichkeiten mehr, Aoch hei£t ss zuvort 
Probieren! 
Meine Bitte an alle Exrperimentatorens Teilen Sie air mit, was für Anvesdungsmöglich 
keiten Sie entdeckt haben I! . 
Doch haltı Wie kommen Sie an die Befehle ?? Ganz einfachs Schicken Sie mir zwei 
Magnetkarten, Sie bekommen die Registerbefehle dann als Tastenzuorämungen zugeschick 
(Statuskarte). Oder - werm Sie das Programm Key-Assingment schon besitren - probier 
probieren, den die Befehle lassen sich damit erzeugen, Doch wie ? Noch weiß ich 
es auch nicht so genau - also: vielleicht im nächsten prism ??! Viel Zrfolg ! 

OLIVER R./ETSCHEL 


Re - Assigrment - Program 

1) Master Ciear ausfhren 

Die Funktion TAN der eigenen Taste zuordnen 

3) WSTSs WSTS verlangt zwei Seiten: In diesem Falle wird aber mur eiw: Seite be- 
nötigt, so daß dieselbe Kartenseite 2 x durchlaufen zumß,. Auf der anieren Seite 
können Sie z.B, das HOP speichern. 

Der Gebrauch der Karte ist sehr einfach: statt den Rechner mit MASTER LEAR gewalt- 

tätig zu löschen, wird die Karte eingelesen, dann auf [€] gedrückt und mr noch 

ZAN von seiner Taste gelbat. Der Rechner hat dann wieder seine alte Reristeranzahl 

sur Verfügung, Der Vorgang ist praktisch der gleiche als wenn man jede einzelne 

Tastenzuordnung mit ASN "" löschen würde. DETFLET BOCK 
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Key - Assignment - Program 


DLeLEL «KR- 5 163°LBL 03 
FIX 0 -PRIRS? PROMPT _ FS?C RB CTO 69 CLA 


- I Less* Mit diesen Programm ist es nicht nur mög- 
ar Er a s ı ns ß in Re a| }ich, alle Befehle einer beliebigen Taste 
“Kon 105 Xon 12 XON Hesse X) zuzuordnen, sondern es lassen sich auch ; 
EUR 8 OR 191 RIK weitere HP-41C Punktionen erzeugen. Es wer- 
XEQ A ASTO 85 den die Registerbefehle der Register M,N.b, 

TABL 09 © und d benötigt. Sie können das Programm 

24eLEL 86 Od SEINE XO d| auf zwei Magnetkarten erhalten oder selbst 
OB 248 XEOA RIH eingesen, sofern Sie die nötigen Statuskar- 
XEO 07 XEO 07 RCL 82 ten bereits besitzen, 


Bemitzung des Programs 
En N 2 42 T a e8 END Das Programm wird mit XEQ "KA" "gestartet. 
Die Anzahl zuzordnender Funktionen wird ab- 


RON STO c ISC E2 f 

CTO 86 CLX BEEP ATN | gefragt und dann die Zuordnung selbst, Leider ist der ISG 02 Pe- 
fehl nicht richtig eingesetzt worden. Die Abfrage "PAIRS?" könnte 

daher weggelassen werden. Das Übertragen auf Karte kann selbst 

‚mit USER C vorgenommen werden. Das Programm stammt von Tom Cadwal-- 

lader aus PPC Calculator Journal April Bo, 

Auf die Abfrage "KEY?" werden 3 durch ENTER getrennte munerische 

Werte eingegeben: Die eraten beiden Werte sind aus der Hexcode- 

Tabelle zu entnehmen: 159= TONE , da der 159. in der Tabelle ver- - 

zeichnete Befehl TONE heißt, Ebensor RCL=144 5. STY=146 ; a 

J=111 5 Te112 . Der dritte Wert gibt die Taste an, der etwas 

zugeordnet werden soll: XYs Die Yte Taste in der Aten Reihe. " 

z.B.: 14= LOG „ Als Beispiele, was sich 50 alles machen läßt, sei- 

en hier kurz genannt: 

4 ENTER 167 ENTER XY (Taste) gibt: eGfBEEP 

4 ENTER 162 ENTER XY gibt: B- : 

A ENTER 161 ENTER XY eidt: F__ } 

4 ENTER 160 ENTER XY gibt: 

159 ENTER 26 ENTER XY eibti TONE,26 

168 ENTER 49 ENTER XY eibtı SP 49 (funktioniert mır bei 


144 ENTER 111 ENTER XY gibts ach 5 einigen Rechnern) 


eCfBEEP & SBEEP verlangen mumerische bzw. alpharmumerische Eingaben, 
Damit ist es möglich, Programme in den Peripherieeinheiten anzu- 

eprechen, ohne diese zu besitzen (bzw. nicht angeschlossen zu haben) 
Der XROM sieht eo ausı XROM nn,mm g nn=Peripheriseinheit, mm=o0 bis 
64 ist der Code für die Programme, NOREXISTERT erscheint im RUIN- .' 


44eLbL C 
"WSTS" AYIEM PSE WSTS 
RTK 


Sö+LBL 07 

ISC 04 °* "KEY * 

ARCL 84 TONE 9 PROMPT 
STO @ı REN STO 83 RDN 
Kan -24 X 83 

xp A 18 ST’ 81 

REL OL ABS INT LASTK 
FRC STe zZ .1 - x%-8? 
610 65 RDK 4 x=7? 
IS6 2 


81+LBL 85 

RIN STOZ XV 8 
XOY STeY RIN + CHS 
4 + STr8I 38 07? 
SF E08 PDN DSEZ =" 
xXO 81 88? CTO 8 
RCL’ XEQ 03 STO " 
To 88 


18?+LEL 8: Mode, wern die nn Einheit nicht angeschlossen ist. Ohne Probleme 

8 Sie zZ RN RiLe kann man im PRGM-Mode die Befehle Überprüfen. Beispiele: eGfBEEP 

xEa 03 StOe nn= 00 gibt XROM 28,00 ; un» 63 gibt XROM 28,63 5.un= 64 bis 99 
ibt XROM 29,00 bis 29,35 ( Drucker I) 

114LBL 06 Aanı nn= 30 gibt TISZI (Kartenleaer); nn= 64.bis 99 gibt MATH 1A 


RIR RIN XOY 16 © + s TARE -(Mathenodul). 

% läßt den Rechner sterben, hat aber erstaunliche Folgen. Pro-. 
bieren Sie es aus (wenn kurzes Eerausnehmen der Batterien nichte 
mehr hilft, Batterien ein paar Minuten rausnehmen) Der Rechner : 
kommt ohne Defekte wieder, Er kann auch in den SLEEP-Mode abmut-  .-: 
schen und kommt dann nach kürzer Zeit selbst. wieder zurück. * 
DETLEV BOCK 


l2t+LBL A 
1b XOY 8 X d xX0Y 
sf 83 


128+LBL 94 

2 + FRC BSEZ X? 
SFIMZ OL IM 
xse? GCIO 84 XOY 
xXOd.d "esse" ARCLX 
ASTO X "a" ARCLX 
RSUF ASTOX CLA 
ASTO Y ARCL 99 ARCL X 
ASTO PC Xer? RIN 
KELL STON "rer 
RUN ca STOL 
AST BR RIN 


Brettspiele für HP-41C 


Wer arbeitet an Programmen zu Brettspielen oder hat schon welche 
erstellt? Ich selbst "tüftle* derzeit an "Reversi”, ohne jedoch 
bisher eine erfolgreiche Strategie gefunden zu haben. Aber auch 
Dame, Mühle etc. habe ich ins Auge gefaßt, Ich würde mich freuen, 
wenn darüber ein Ideen- und Erfahrungsaustausch zustandekänme, 
ULRICH DAVERTZHOFEN 


BHünefeldstr. 109 ; 5600 Wuppertal 2 


MLeLBL "U-BOOT" 

"D. RIETSCHEL* 

Posif. 373° 
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"39. 05. 88" CLRG 
FIX 0 SF 27 CF 39 
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PROMPT STO 08 5 E-3 
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120LBL "FREI" 
XEO "Pl" ST IND Y 
RTH 


124+LBL "ABFRAGE” 
$T0 88 XEQ -UPI“ 


RELINDY XOY INT 


18 7 FRC 10 © RM 


137 LBL "UPI” 

“© INT LASTX FRE 
18 * 181X KOY 10 + 
xOY RIN 


I5IeLBL "NACHBAR“ 

10 - 8? CF 91 88 
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prisma Den 


Preise? Preise! 


Für Clubmitglieder konnte ein besonderer Service errungen werden: Auf alle HP-Preise 
erhalten Sie jetzt 10% Rabatt ! Außerdem ist fast alles zu sofort oder wenigstens 
kurzfristig lieferbar. Für Druckerbesitzer besonders interessant: Schwarzdruckendes 
Papier für den 41C Drucker: Vorteile: Verbleicht im Gegensatz zum HP Papier kaum. 
Wesentlich billiger. Möglicher Nachteil: HP verweigert, was bei den HP Preisen auch 
verständlich ist, jede Auskunft darüber, wie der Druckkopf des Thermodruckers rea- 
giert: Sinkt die Lebensdauer von - sagen wir mal - 500 auf 40oo oder gar mır 300 Rol- 
len ? Oder erhöht sie sich auf weit über 500 Rollen ? Beides ist möglich, doch sind 
mit diesem Papier noch keine negativen Erfahrungen gemacht worden, Dennoch bleibt 
ein Restrisiko unter dem Gesichtspunkt, daß auch ein neuer Druckkopf billiger wäre, 
als der Mehrpreis für mır 50 HP-Rolien. Der Club-Preis für 1 Rolle Thermopapier: 
1,20 IMl Bei weiteren Fragen und Bestellungen wenden Sie sich bitte an: 

GÜNTER LELARGE ; TEL: 02636/2137 


Copyright ? 


Alle in prisma erschienenen Artikel dürfen Sie in beliebiger Form weiterverwenden, 
auch kopieren. Sie sollten dabei aber im Interesse des Clubs handeln und immer den 
Autor angeben, 


MALFUNCTION 


Für alle die es noch nicht wußten: Läßt sioh eine Magnetkarte nicht einlesen und 
es wird MALFUNCTION ausgegeben, so ist die Karte verdreokt. Eine Kleinigkeit kann 
die Ursache sein - und die Abhilfe: Die Karte mit einem in Alkohol getränkten Pa- 
piertaschentuch abwischen, fertig! Es hilft fast immer. 


Rennfahrer-Spiel für HP-41C 


Beschreibung: Der Spieler hat mit dem HP-41C einen Rennwagen in der Hand (wahlwei- 
se auch ein Mtorrad), mit dem er möglichst schnell eine bestimmte Strecke zurück- 
legen mıß. Dabei mıß er sich allerdings an gewisse Tempolimits halten, da ihm sonst 
Strafsekunden drohen, Er kann Gas geben, bremsen und Gänge einlegen. Am Ende der 
Strecke wird die gefahrene Zeit angezeigt, so können mehrere Bueler er 
Rundenrekorde etc, aufzustellen, (kein:Memory nötig!!!) “:._.:: A OR 
Länge: 203 Zeilen ; PG: III ; Entwioklungs Edmund Weitz ; 2 Magnetkarten 

Bei Ferrechnung mit Programagutscheinen: Wertigkeit 400 Zeilen 


Anmerkung: Das Program, allein durch seine 8seitige Dokumentation beeindruckend, 
ist wirklich interessant, gut zu bedienen, wird nicht sö schnell langweilig und 
gehört allein von der Idee her mit in die vorderste Linie der guten Spielprogramme. 
In Zeile 2 würde ich einfügen: CLRG oder zumindest: o STO 05 . 

Dem Autor meinen herzlichen Glückwunsch I OLIVER RIETSCHEL 


ft 


Tips für Anfänger ! 


Beim Arbeiten mit dem Handbuch kam Harald Krumins aus Eckernförde eine Idee: N 
Er schrieb folgende Routine zum Anzeigen von Text bzw. Text mit Ergebnis: 

LBL"L" | Seine Programme versah er jetzt mit kurzen abstrakten Labels, gefolgt vom 
AVIEW Programmnamen und führte dann "L" aus. Zur Ergebnisanzeige verwendete er 


PSE “M" „ Beispiel: Ein netter Einfall, doch ist zumindest LBL"L" 
END LBL"AA" LBL"BB in der Praxis uneffektiv, denn XEQ"L" ist zwar op- 
LBL"M" "VOLUMEN" | "OBERFLÄCHE" tisch kürzer als AVIEW PSE „ braucht aber 3 Bytes 
ARCL X | XEQ"L" XEQ"L" Speicherplatz. Die Befehle AVIEW & PSE brauchen zu- 
AVIEW XEQ"BB" "RADIUS ?" sammen aber mır 2 Bytes, Sicherlich ein guter Hin- 
PSE RCL 00 PROMPT weis für alle "Anfänger", die nır nach der opti- 
TONE x STO 00 schen Programmlänge gehen; oder wußten Sie "alter 
STOP 3 I Hase" das auch noch nicht ? LBL'M" dagegen ist bei 
END / PI dem hier geforderten Zweck nicht weiter zu verkür- 
"Ya." x zen. OLIVER RIETSCHEL 
XBQ"M" 4 N." en 
END x  xEegmn (5.192 Nr.2) 
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ZEILE 14 HEISST: STO HM 


Menory-Spjei für den Hi’-41C ven Fimund Weitz 


Kurabeschreiburngs 

Das Spiel !innelt dem bei Kindern beliebten Gedächtnisspiel 
"Memory", hat jJedcoh noch einige zusätzliche Tücken. 

Für das Spiel iat der Befehl STO M nötig. Ea wird hier gezeigt, 


wie sich mit Hilfe des M-Registers das Alpharegister manipulie- 
ren läßt, 


Spielanleitung: 

Zu Spielbesinn werden vom 41C in 20 "Fächern" zehn Paare von 
Alphazeichen verteilt. Die erste Schwierigkeit gegenüber Memory 
ist sohon ersichtlich, denn es gibt bei jedem Spiel neu zu mer- 

.. "Bilder", da mit STO M zufällige Alphabilder erzeugt wer- 
en, 

Nun geben zwei Spieler abwechselnd zwei Fächernummern an (wiede 

eine Schwierigkeit: Man muß die Nummern beider Register angeben 

ehe man das erste sieht), und der 41C zeigt die Registerinhalte 

an (Achtung: Nur je zwei seo. zum Anschauen). 

Sind die Inhalte von beiden Fächern gleich, no werden sie ge- 


leert und der Spieler erhält einen Punkt. Er darf nicht noch 
einmal raten. 


Bediemungsanleitungt 
Zufällige Zahlenfolge eingeben 
STO 00 
XEQ, "MEM" 
ca, 1 min. warten, danns Anzeige: BITTE RATEN 
dannı Anzeigei NUMMER 1 U. 2? 
Eingabeı 1. Nummer 
Enter 
Eingabe: 2. Nummer 
Anzeige der Registerinhalte (je 2 sec.) 
Wenn gleicht Anzeige: IHRE NUMMER? 
Eingebeı Spielernumer ( 1 oder 2 ) 
Wenn falschı Weiter bei Schritt 4) 
10)Bei Spielendes Anzeiger ENDE 
dannsAnzeige: Punkte Spieler Nr. 1 
dannıAnzeiges Punkte Spieler Nr. 2 


tagte Spielermumner des Siegers 


Don 2Pun. 


Das Programm zeigt auf Knopfdruck 
den derzeitigen Anzeigemodus an. 
(z.B. FIX oder ENG 8 ) Für die- 
seo Prgr. wird kein Speicherregie- 
ter bemitzt, daa Alpharegister zer- 
stört und der Stack verändert. 

Das Programm wird mit XEQ "ST?" ge- 
startet. Für weitere Informationen 
sishe Benutzerhandbuch, Seite 231 ! 


LBL"ST?" LBL 01 
n sci" FC? 37 
FS? 4o GTO 02 
n Fıg" 4 

FS? 41 + 

n Eno® LBL 02 
„Le FC? 36 
° GTO A 
FC? 39 8 

GTO 00 + 

1 LBL A 
LBL 00 ARCL X 
FC? 38 ASTO X 
GTO 01 END 

2 


Achtung: Es ist wichtig, daß die 
angezeigte Ziffer auf Position 6 
im Alpharegister zu finden ist. 
Dies geschieht durch setzen eines 
Blanks (Space) vor das Wort und 
eines zwischen Wort und Ziffer. 
Dann wird das A-Regiater durch 
ASTO X CLA ARCL X auf 6 Stel- 
len gekürzt. So werden etwaige 
Kommata oder Dezimalstellen aus 
der Anzeige geschnitten. 


EDMUND WEITZ 


Rechnerorganisation des HF-41C_ - Teil 2 


Ausgehend vom gleichnanigen Artikel in der ietzten Aus- 
gabe möchte ich nier weiter uber "unseren" Z1C berich- 
ten? 
Zunächst zur Stromversorgung: 
Standardmäßig wird der Rechner durch vier Lady-Zellen 
am Leben erhalten, Diese Batterien huben in der Regel 
eine Kapazität von 500 mAh und kosten (Alkali-Mangan) 
ca. 2,50 IM das Stück. Besonders bei Kartenleserbetrieb 
empfiehlt sich daher die Verwendung anderer Energie- 
quellen, wobei der externe Anschluß von Baby-Batterien 
mit 5000 mAh in einem Batteriehalter die günstigste 
Möglichkeit darstellt. Der Stecker mıB leider selbst 
gebastelt werden. Wer eich nicht traut, kann von mir 
noch einen Batteriehalter mit Anschlußklipp und Stecker 
für 5,-— IM erhalten; ich habe noch zwei (1) übrig. 
Dabei ist marı aber auf stationären Betrieb eingeschrän- 
kt. Empfehlenswerter ist natürlich schon der HP-Akku 
Satz, den Clubmitglieder bei Günter Lelarge 10 % bil- 
liger haben können. Dochs Man muß seinen Drucker haben 
und über 100,--IM investieren. Dafür ist man dann aber 
auch alle "Stromversorgungssorgen" los. 
Doch zurück zum Rechner: 
Er arbeitet mit Spannungen von 4 bis 7 Volt =, Die Re- 
chengeschwindigkeit ist kaum abhängig von der Versor- 
gungsspanmung, eher schon von den angeschlossenen Peri- 
pheriesinheitens Je mehr, desto langsamer. Dies ist 
bei Uhr-, Timer-, etc. Programmen zu berücksichtigen, 
Nackt, also ohne Eezipnerian che’ veny zteht der Rech- 
ner mur wenige uA ( 1uA = 10”0 A ). Dieser extrem nied- 
rige Stromverbrauch (man bedenket alle Daten werden er- 
halten!) ist dadurch möglich, daß der Rechner in den 
‚sogenannten SLEEP-Mode abrutscht; alle bei "AUS" nicht 
nötigen Stromkreise, wie 2.3. CPU, Tastatur excl. ON/ 
OFF Sohalter, Anzeige u.s.w. werden abgeschaltet. Erst 
durch betätigen des ON Schalters wird die Tastatur, die 
CPU und die Anzeige aktiviert. Der Stromverbrauch ist 
immer noch sehr gering. Wenn aber eine Taste geärückt 
wird, eine Berechmuing oder ein Programm läuft, dann 
schnellt der Verbrauch bei voll belegten I/O Ports u.U. 
die auf max. 20 mA hoch. Doch auch hier ist das "hoch- 
schnellen" ein falscher Ausdrucks Man denke an andere 
LED-Rechner, deren Anzeige allein ein Vielfaches von 
20 mA verbraucht. 
Für die Ansteuerung der LCD-Anzeige stehen nun drei Ver 
sorgungsspanmungen zur Verfügung. Um den Kontrast der 
Anzeige zu wahren, driften diese drei Spanmungen ( 1,1 
2,2 & 3,3 V- ) um -20 mV/ °C. 
Die Betriebsspanmung wird ständig über einen Unterspan- 
mungs-Kontrollkreis kontrolliert und notfalls wird der 
BAT-Indikator aktiviert. Wurde BAT aktiviert, so weiß 
die CPU, daß keine weiteren Schaltkreise aktiviert wer- 
den können;z.B. nimmt der Kartenleser keine Karte mehr 
an, wenn der MT Indikator aktiviert ist ( das BAT Flag 
gesetzt ist ), auch wenn die Versorgungsspanmung inzwi- 
schen stabil und ausreichend hoch ist. 
Im Vergleich zu diesen Verbrauohswerten enorm hoch, im 
Vergleich mit anderen Geräten enorm niedrig ist der 
Durst des Kartenlesers nach elektrischer Mergie. Er 
verbraucht um 150 mA beim Kartenlesen und beim Karten- 
schreiben weit darüber, Was viele glauben, erweist sich 
aber als falecht Der Kartenleser zieht mur sehr wenig 
( ca. iuA) Strom, wenn der Motor nicht gerade läuft, 
Noch geringer ist der Verbrauch der MEMORY-Moduln und 
der ROM‘s. Fazit: Es ist völlig unrentabel und daher in 
keiner Weise zu empfehlen, die angeschlossenen Einheiten 
bei jeder etwae größeren Pause zu entfernen um Energie 
zu sparen. Man denke nur einmal an die Abmıtzung der 
Goldkontakte. Bei sehr langen Rechanpausen, z.B. Urlaub 
0.ä., sollte man dann lieber die Batterien ganz entfer- 
nen. Dies ist bei nicht auslaufsicheren Zellen sowieso 
dringend ratsam. Noch ein Tipı Wird der Kartenleser an- 
geschlossen, so fließt bis zum ersten Einschalten des 
Rechners ein merklicher Strom in den Leser: Nach dem 
Anschluß des Lesers immer erst einmal den Rechner ein- 
schalten !! Ich nehme an, daß die CPU die Anwesenheit 
des Lesers erst verarbeiten muß, dazu im SLEEP-Mode aber 
nicht in der Lage ist, 
Danit bin ich schon bei der CPU, die von HP extra für 
diesen Rechner entwickelt wurde. Daten werden als 8, 
14 oder 16 bit-Worte verarbeitet, Die CPU verfügt über 
5 Arbeitsspeicher, die von HP mit A,B,C,M,N bezeichnet 


werden ( aber nichts mit den von uns entdeckten gleichnani- 
Ci Begziatern Zu tun luben), einen 9-Lil Reginte:, einem 
14bit Status-Register, zwei Programmzeigern und vier Unter- 
programm-Rückeprungadressen. 

Die ROM-Adressen sind 16bit-Worte, die RAM-Adresnen dagegen 
nur lobit-Worte,. Die ROM-Adressen lassen sich unterteilen: 
Die unteren 12 Bits sind die eigentliche Adresae, während 
die oberen vier Bits kur Auswahl eines von 16 möglichen ROM- 
Kreisen dienen. Von diesen 16 Adressen sind unteren drei 
"fest vergeben" für die 3 eingebauten System-ROM‘a. Die obe- 
ren acht Adressen sind für Einsteckmoduln ( Prgr. Pac'e ) 
reserviert, woraus sich auch errechnen läßt, wieviel Prer. 
Paos. sich anschließen lassen: Ein ROM besitzt 4kByte. 

Drei 12 k ROM‘e sind also sohon zuviel; vier 8k ROM‘s sind 
möglich und ebenso zwei 12 k und ein 8k ROM. Die meisten HP- 
Prgr.-Pacs haben aber nur 4kyte, womit der Rechner ( bei 4 
I/O Ports ) gar nicht voll ausgelastet werden kann. 

Doch was ist mın mit den mittleren 5 ROM Adressen 7? 

Nunı Dies sind die Adressen der Peripherieeinheiten, 

Sollten sie auch variabel sein oder sind mur fünf Peripherie- 
einheiten möglich ? Ich bin mir nicht sicher, auch wenn ich 
ehört habe, daß HP genau 5 Peripheriseinheiten herausbringt 
(bringen will), als da sind: Kartenleser, Drucker, Bar-Code- 
Leser, Kassetteninterface und ein sogenanntes Power Pao, das 
den Anschluß von dreizig bis vierzig Modulen ermöglichen soll 


OLIVER RIETSCHEL 


Referenz: Hewlett-Paokard Journal ; March 1980 


ee 

Für alle Freunde des synthetischen Programierens: Ich habe 
inzwischen eine eigene Statuskarte mit folgenden Befehlen 
erstelltı RCL, STO, X ,„ RCL IND, STO IND, X IN 

jeweils für die Register a, b, c,-d, e, M, FB, 0, P, Q,P 
Wer Interesse hat, der möge mir zwäl Magnetkarten schicken, 
Aoahtungı Die erste Kartenseite wurde nicht aufgezeichnet, 
so daß Anzeige, Stack, Alpharegister, Size,... nicht verän- 
dert werden. Nach dem Einlesen der drei Seiten ist daher 


Clear zu drücken, OLIVER RIETSCHEL 


USER KEYS: 
11 XRON 01,59 -43 XRON 87,53 
-11 XRON 05,59 44 XRON 03,54 
12 XRON 81,68 -44 KRON 87,54 
-12 XROM 05,68 St XRON 83,55 
13 XROM 81,61 52 XRON 83,56 
-13 KRON 05,61 -52 XRON 07.56 
14 XRON 81,62 53 XRON 83,57 
-14 KRON 85,62 -53 XRON 87,57 
15 XRON 81,63 54 XRON 83,59 
-15 XROM 85,63 -54 XROM 87,58 
21 XROM 01,53 61 XRoM 57,59 
-21 XROM 85,53 61 XROM 59,59 
22 XRON 81,54 62 XRON 37.68 
-22 XRON 85,54 -62 XRON 59.68 
23 XRON 01,55 63 ROM 57,61 
-23 XRON 05,55 -63 XRON 59,61 
24 XROM 81,56 64 XROM 57,62 
-24 ROM 85,56 -64 XRON 59,62 
25 XRON 81,57 7 Ron 57,63 
-25 XRON 85,57 -71 XRON 59,63 
32 XRON 01,58 72 XRON 57,53 
-32 XROM 85,58 -72 XROM 39,53 


33 XRON 83,59 
-33 XRON 07,59 


73 XRON 57,54 
-73 XRan 59,54 


34 XRoM 83,68 74 XRON 57,55 
-34 KRON 87,68 -74 XRON 59,55 
35 XROM 63,61 81 KR 57:56 
-35 XRoM 97,61 -31 XROM 59,56 
41 XROR 83,62 e2 XRON 57,57 
42 XRon 83,63 -82 KRON 59,57 
-42 XROM 87,63 83 XROn 57.58 


43 XROR 83,53 


-83 XRON 59,58 


KALENDER 
RUSDRUZK 
PRÜCRAMN HR. 1MALE TER 
HP-USER-BIBLIGTHEK DIENT 
ZUM AUSDRUCK EINES KR- 
LENDERS MIT GEM DRUCKER 
DES HP-SIC. 

ES LAESST SICH JEDOCH UM 
75 (it) REGISTER VER- 
KUERZEN, WIE IM FOLGEN- 
DER GESCHEREK. 

ES IST AAMIT AUCH ENÖRM 
KUERTER ALS DRS IM FÜNK- 
SCHAU-SONDERHEFT ER- 
SHIEHENE PROCRANN, 


Sizt: 886 

START: KAL 
EINGABE: MONAT. JAHR 
UND DIE ANZAHL ZU 
DRUCKENJER NONATE 
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55 ACA 


56 SKPCOL 
S? "D“ 

S8 AcCA 

59 SKPCOL 
68 “M" 

61l RCA 

62 SKPCOL 
63 "D" 

84 ACA 

65 SKPCOL 
66 “Fr . 
67 ACH 

68 SKPCOL 
89 "5" 

”8 nca 
16 

72 SKPCOL 
73 ADV 

74 CF 12 
75 XEQ 17 
76 ADV 

77 ADV 

78 RCL 91 
79 INT 

88 12 

381 x<=Y? 
82 XEQ@ 13 
83 ISG Bi 
84 GTO 15 
85 RTN 
86+LBL 13 
87 1 

88 ST+ 08 
89 12 

98 ST- 81 
91 .891 
92 * 

93 ST- 01 
94 RTN 
95+LBL 17 
96 RCL 04 
971 ES 
987 

99 RCL 05 
180 1 


182 CHS 

1983 x<9? 
ia4 SF 65 
185 ABS 

186 + 

197 FS?C 05 
188 CHS 

189 STO 85 
118 9 

111 ENTERTt 
112 124 

113 BLDSPEC 
114 STO 82 
115+LBL 14 
116 1.897 
117 STO 83 
118 CLARA 

119 ARCL 982 
128+LBL 18 
121 ISG 85 
122 SF 85 
123 RCL 85 
124 INT 

125 X<=8? 
126 CF 85 
127 FC? 85 
128 GTO ea 
ı129 1a 

13a xX>Y? 
131 "bh " 
132 RDH 

133 ARCL X 
134+LBL 80 
135 FC?C 85 


135 "+ 
137 ARCL 082 
138 ISG 83 
139 GTO 18 
148 "HF * 
141 ACA 

142 ADY 

143 RCL 85 
144 INT 

145 RCL 85 
146 FRC 

147 ı E3 
148 * 

149 xX<=Y? 
158 RTN 

151 GTO 14 
152+LBL 19 
153 RCL 83 
154 RCL 82 
155 1 

156 + 

157 ENTERT 
158 1% 

159 ‚7 

169 + 

161 CHS 

162 INT 

163 ST+ 83 
164 12 

165 * 

166 - 

167 38.68B1 
168 * 

169 INT 

178 RCL 83 
171 365.25 
172 

173 INT 

174 + 

175 STO 93 
176 ? 

177 MOD 

176 X=9? 
179 7 

189 RTN 
181+LBL 61 
182 " JANUAR” 
183 18 

184 GTO 88 
185+LBL 82 
186 “FEBRUAR 
187 14 

188 GTO 08 
189+LBL 83 
198 "MAERZ” 
191 25 
192 GTO 89 
193*LBL 94 
194 "APRIL“ 
195 25 

196 GTO 80 
197+LBL 85 
198 "MAI" 
199 32 

288 GTO 088 
281+LBL 86 
282 "JUNI" 
203 28 

284 GTO 88 
285+LBL 97 
286 “JULI” 
207 28 

208 GTO 98 
289+LBL 88 
218 "AUGUST“ 
zı1ı 21 

212 GTO 98 
213+LBL 89 
214 "SEPTEM" 


215 11 

216 GTO 81 
217+LBL 18 
218 "OKTO” 
219 18 

2208 GTO 91 
221+LBL 11 
222 “NOVEM” 
223 14 

224 GTO 81 
225+LBL ı2 
226 "DEZEM" 
227 14 
228+LBL 91 
229 “F-BER* 
238+LBL 88 
231 ACA 

232 SKPCOL 
233 ADYV 

234 END 


BEISPIEL: 
SEPTEMBER 
19226 
SMDMDFS 
I a 10 21 31 41 51 61 
ra ei S11alglıtalldi 
114115116 1171181191281 
21 1221231241251261271 
1er I 81 


OKTOBER 
1988 
SMDMDFS 
rer 23 311 4 
1 51 61 71 81 916liıl 
12193114 1151161171181 
1191281211221231241251 
1261271281291 301311 1 


LBL"KAL 
‚END. 455 BYTES 


Jim DE ARRAS 


HIGH RESOLUTTON PLOTTIKS 

DIESES PRGR. ZEICHKET 

DEN GRAPHEN EINER PRÜGR. 

FUNKTION. 

DER UNTERSCHIED ZU 

"PRPLOT" BESTEHT IN 

DER DEUTLICH HOEHEREN 

AUFLOESUKG. 

LEIDER BEROETIGT MAN ZUR 

AUSFUERRUNG ENORM VIEL 

GELULD. ES GEHT IN 

SCHNECKEKTENPO VORAN. 

£S HANDELT SICH UM EINE 

VERBESSERTE VERSION EI- 

NES PRGR. VON J SCHWARTZ 

AUS PPC J. JANURR 1988 
OLIVER RIETSCHEL 

SIZE: 826 

EIN MEMORY-MODUL 

START MIT: XEQ PLOTTER 

RESTART MIT: NEW 


B81+LBL "PLO 


83 "NAME?" 
84 PROMPT 
85 AOFF 

86 ASTO 85 
87 "Y MIN?“ 
88 PROMPT 
89 STO 88 
18 -Y MAX?" 
11 PROMPT 
12 sTo 81 
13 "X MIN?“ 
14 PROMPT 
15 STO e2 
16 "X MAX?" 
17 PROMPT 
18 STO 83 
19eLBL "NEN 
28 "x INC?" 
21 PROMPT 
22 STOo 84 
23 "PLOT OF 


24 ARCL 95 
25 PRA 

26 FIX 1 
27 "N: “ 
28 ARCL 88 
29 "+ TO 
38 ARCL 91 
31 PRRA 

32 "8: ” 
33 ARCL 92 
34 "tr TO "“ 
35 ARCL 83 
36 PRA 

37 FIX 3 
38 "STEPS 0O 


39 ARCL 94 


52 STO 88 
53 RCL 82 
54 STO 96 
55+LBL 998 


56 11,08 
57 STO 

S58+LBL 

59 RCL 

68 XEQ 

03 

61 RCL 

62 - 

63 RCL 

64 * 

65 1 

66 + 

67 FIX 

68 RND 

69 168 

78 xX<>V 
1 X>Y? 
?2 


v4 0 


17 
87 
81 
88 
IND 


08 
88 


8 
73 ENTERT 


75 %<=Y? 


78 xX<>Y 
7? STO 
87 


IND 


v8 RCL 984 
79 ST+ 86 
88 RCL 86 
81 RCL 03 


82 xX<Y? 


83 GTO 94 
84 1SG 87 
85 GTO 81 
86 XEQ@ 095 


8-4 


86 RCL 84 


89 «* 


98 ST+ 86 
91 RCL 96 
92 RCL 83 


93 X<Y? 
94 RTN 


95 GTO 88 
96+LBL 94 


99 I1SG 97 
188 GTO 94 
181+LBL 85 


1982 .0801 
183 ST+ 
184 ‚882 
195 ST+ 


128 STO 
ıi21 1 
122 - 
123 RCL 
* 
124+LBL 
125 RCL 
89 

126 x%<Y? 
127 8<>Y 
128 STO 
89 

129 RDH 
138 ISG 
1531 GTO 


11 


IND 


89 
87 


132 STO IND BEISPIEL: 

Y 

133 ISG 18 PLOT OF SPEZI 
134 GTO 86 Y: -1.8 70.1.0 


135 11.0816 
136 STO 09 
137 11,017 
ı138 STO 10 \ 
139+LBL 88 

148 ISG 10 "is 
i41 RCL IND 2 
18 \ 
142 INT 4 
143 RCL IND 

069 je 
144 INT Ra 

145 xX#Y? \ 

146 GTO 89 IN 

147 LASTX nn 
148 FRC N 
149 ST+ IND \ 
19 J 
158 CLX u 
151 STO IND u 

89 v 
152+LBL 089 
153 ISG 89 
154 GTO 88 
155 11,017 
156 STO 89 


X: 8.8 10 360.8 
STEPS UF 1.860 


ENDE DES BEISPIELS 
DRUCKDAUER: CA. 18 MIN. 


HIERBEI WURDE BENUTZT: 


157 0 

158 STO 18 e1eLBL "SPEZI“ 
159+LBL 18 82 SIh 

168 RCL IND 83 xt2 

89 84 END 

161 INT ....enemeutenannennnnnenenn 
162 X=9? ZUM VERGLEICH NOCH EIN- 


163 GTO 11 
164 ENTERT 


MAL MIT "PRPLOT“ 


165 xX<> 18 PLOT OF SPEZI 
166 -— x CNITS= 1.) 4 
167 1 YAunNITSs= 1.3 3 
168 - -1.88 1.08 
169 SKPCOL 0.08 
178 RCL IND PRERER SENT OSAPEIEDE ä 
89 0. . 
171 FRC 26. In 
172.1 ES 4. oa 
173 * 68. ı a 
174 ACCOL 88. \ ı 
175+LBL 11 109. R . 
176 ISG 89 128. ’ . 
177 GTO 18 148. oa 
178 PRBUF 168. fe 
179 RTN 189. . 
188 END 208. In 
220. | 
248. ‘ . 
268. | D 
PEN ENENE GE I RRRRENEFERE 298. ' b) 
car 300. ' i 
LBL*PLOTTER . 3. 1 
LBLTREM 340. ‚. 
END 388 BYTES 368. . 
LBL"SPE2T 3 
END 14 BYTES DRUCKDAUER: CA. 38 SEC. 
‚END. 64 BYTES 


Standardverke ? - Tips fir Anfänger 


Von Siegfried Sahwırze stammen Ale beiden folgenden 
Routinen zur Speicherber@iahsernittlung 
und Gesantlöachung. 

Zunächst zur Löschroutine, benannt "CLR": 


CLR-ROUTINE 
VOR SIEGFRIED SCHWARZE 


B81+LBL "CLR 


82 CLRG 
83 CLST 
1 u : ] 

85 STO L 
86 CF 088 
87 CF 81 
88 CF 082 
89 CF 63 
18 CF 64 
11 RTN 
12 END 


Siegfried sah das RTN in Zeile 

11 vor, damit ein Rücksprung 

naon einem Aufruf durch ein an- 
deres Programm erfolgen kann. 

Das ist jJedoah nicht nötig, da 
END dieselbe Wirkung hat, 

Statt der Befehle CF o1, CF 02,..° 
empfehle ich den Befehl STO d w. 
einzufügen, so daß alle Flags ge- 

löscht werden. Das kann vorteilhaft PUAUTBESIEN DOM TSokäilk mel 1968 
sein, muß aber nicht, 


Denit ein gewohntes Anzeigebild entsteht, fügte ich Unsohtön ist, daß das Register 00 verwendet, d.h. auch zer- 
noch einen FIX Befehl ein. Er karın auch weggelassen stört wird. Außerdem bewirkt diese Tatsache, daß SIZE 00 
werden oder gegen jeden anderen FIX, ENG, SCI Befehl nicht angezeigt wird, sondern ein NONEXISTENT bewirkt. 
ausgetausaht werden ( oder auchı 7DSPn ) . Daher habe ich das Programm optimiert. Es 158t sich auch 
za » als Unterprogramm verwenden, Wen eine Anzeige "SI2E=..." 
CLR-ROUTINE lieber ist, kann hinter Zeile 11 noch ergänzen: 
VOR OLIVER RLETSCHEL "SIZE=" ARCL X AVIEW 


B1>+LBL "CLR SIZE-ROUTINE 


- VON OLIVER RIETSCHEL 
BT 
= e1*+LBL -S?“ 
85 STO L a ae 
oe 5104 22 xeor 
88 END 85+LBL 81 
86 R<>Y 
0?’ ı 
08 + 
Weiterhin schrieb Siegfried die folgende Routine 89 RCL IND 
zur Ermittlung der Speicherbereichsverteilung (SIZE): x 
SIZE-ROUTINE ee En: = 
VON SIEGFRIED SCHWARZE 12 END 
Bl+LBL *5?r 
82 0 
83 STO 08 
84+LBL 01 
85 SF 25 
86 RCL IND 
vo 22 Wichtig! Wichtig! Wichtig! Wichtig! Wichtig! Wichtig! 
87 FS? 25 
88 GTO_808 Liebe Clubnitglieder I111 
89 "SIZE: “ 
18 ARCL 98 Helft bitte alle mit, unser prisma "groß und stark" zu 
11 PROMPT machen, Schreibt Artikel zu allem was interessant sein 
i2+LBL 908 könnte, schilokt Programme und Neuigkeiten und und und - 
13 1 eben alles was andere Clubmitglieder interessieren könn- 
14 ST+ 668 te. Nur so kann unser Club zu dem werden, was jeder Club 
15 GTO v1 einmal werden willl 
16 END Daß alles ( zumindest fast alles ) auch eine Veröffentli- 
chung Wert ist, ist an dieser Ausgabe von prisma hoffent- 
w Be nnen, lich zu erkennen. 


Alsoı Viel Spaß und "Happy Programming" 


Progress: PROGRAM LISTING m 1a? Franzen: eh PROGRAM LIST!NG PER 
run N vhs G PTICHRECHN TE PIOLRANMADTELDEUNG 
BROCHARCHEUNG FRDGe Mar RTENG OLE 
C. Pırael LISTAIU DI PROGMANSIA Juni 1980 c, Nirgel LINTAFO I PROCGHANAEN Juri 12: 
Crmmene Line I Key ren Y Toren Lıre "Korowutee + Onentarıne ke Krrprosed Lummenıı 
et u ee N : 1. Knemı ee we Be SEIT 
ee The | Kae i vn "2 ge 
' dan ER R 
EBD URUERERE N R : Be ae RR BE 
mw ach 4 saunzu, Antel | le re... ae 
ua au ARNNeE vu Fr OT SHE LE Ep Bar . Ba i 
eoniaaee an | | "Rd zahlvr „.ehhtn REG P1 
N “ Prenrammanten 12 NEREFPRREEN ER EN 
Dertrayen 1% : RE - 
—_ ——__. fdulbaoıl. BRETTEN ne - 
0 I RACE I: wo. benerkungeni_. _._-.. 
=. a 


-pubstaktion — 


it nr... Fulkipliketior 
Bi REL GR 1 5 


! "ZAEHLER 2?" 


TERCMP? ü T= 
 _STO Ha Zähler 2 sTo_ ga 


BER ICHEBDn 9 Peg 1eaT ermitteln 


N I-_ 78816. 


"vorachlag Tür Tastenzuordnunfenı 
SL "BRÜCH" > 
u VRLcH 


ke\ erceıtteln 


T ‘ 


‚enüpfung von Bruch _1_u 

‚einem dritten Bruch v 

. — I verden, 30 kann nach..ce 
3 


VE 18 pisanzeige Taste B/S gedrückt 
- \ l verden. öse Ergebnis vırd dern 
als Bruch 1 gespeichert una der _ 
Kechner fragt gieich rach Bruch 2. 


Zee: "y“ Erasetin kur _- Ganze Zahlen verden zueckchßiaer- 
ı RCL_g zen E weise ols Bruch eingegeben zum 

= ı RCL ge Eu Beispiels Sale} . 
gebrigıtenner | RER GOTT 05 a ee a a en ern 
uızuhle "So ee ve 


Rechnerorganisation des HP-41C_ - Teil 3 


Jedes Clubmitglied - sofern ein Kartenleser nicht fehlt „ - 
sollte inzwischen das Key-Assignment-Programm besitzen, 
Davon ausgehend hier die neuesten Informationen Über die 
Hexoode-Tabelle und deren Anwendung im KA-Prer.: 
Auf den beiden folgenden Seiten ist die kombinierte Her- 
code-Tabelle des HP-41C zu finden, die ich aus PPCJ v6 
N5 P23-24 ergattern konnte und ergänzte. 
Der Rechner ermöglicht 256 ( 16x16 ) verschiedene Hexcodes 
nämlich o bis 255 dezimal. Die 256 Kästohen sind mit die- 
sen dezimalen Codes durchmimeriert, Dahinter ist jeweils 
das Zeichen zu finden, das der Drucker mit dem Befehl 
ACCHR bildet, der ASCII Code des Wertes, Darunter ist zu 
sehen, wie sich das jeweilige Zeiohen in der Anzeige des 
Rechners daratellt ( Bei vielen Nur-Druoker-Zeichens ) 
Sind die jeweiligen Codes Programmceodes, wurden sie also 
im PRGM-Mode eingegeben, so haben sie die unter den An- 
zeigebildern stehende Bedeutung. Alle Zwei-Byte-Befehle 
benötigen - logischer Weise - noch einen zweiten Code, wie 
z.B, RCL nicht für sich alleine stehen kann. Es benötigt 
z.B. die 10 als zweites Byte, was RCL 10 ergibt. Diese 
zweiten Bytes findet man in den Kästchen in der zweiten 
Zeile von unten, Hier setzt das Key-Assignment-Progrann 
anı Die ROM-programnierte Systemsprache des 41C läßt hier 
mar die Adressen oo bis 99 zu. Außerdem IND oo bis 99, 
X,Y,2,T,L und IND X,....L . Übrig bleiben also noch 46 
Lücken, Wie unter Reohnerorganisation Teil 1 gesagt, 
gleichen sich alle Zeilen in der Tabelle in der Ausfüh- 
rung, um eine Vereinfachüng der Berechnung zu ermöglichen. 
Naheliegend also, daß in Zeile 6 nach 99 einfach die A- 
drossen 100,101,102,...111 folgen. Und so ist es auch I 
Mit Hilfe des KA-Prer. läßt aioh mın jeder beliebige 2- 
Byte Befehl (2.B. VIEW, RCL, STO, ST+,...) mit diesen 
Adressen verbinden. Sie geben auf die Abfrage "KEY?" 
einfach das erste Byte dezimal an (z.B. 144 für RCL), 
ENTER, dann das zweite Byte, die Adresse (z.B, 105 für D), 
ENTER, XY die Taste mit X=Zeile, Y=Spalte ( siehe KA ). 


L) ' dauptnenner ! E 

Sage ergittelr . 
Druch_1_aul 

I Hauptnenner En N 


“" Dooh - Oh Wunder ! - sind nicht mur die Adressen 100 
bis 111 möglich, sondern alle unsere lieben Register 
finden wir in Zeile 7 wieder | Für RCL c gibt man ein- 
fach ans 144, ENTER, 125, ENTER, XY, R/S 
Die Adressen laufen also von oo bie 111 und von T bia 
e fort. Ab Zeile 8 wiederholt sich aber das ganze - 
wieso ?? Nun- ganz einfacoh- hier sind die IND Adressen 
zu finden. RCL IND B wäre also folgendermaßen zu em 
zeugen: 

144, ENTER, 231, ENTER, XY, R/S 
Damit würe das Geheimnis um KA sumindest zum Teil ge- 
lüftet. Zu der Hexoode-Tabelle 15ßt sich noch viel, viel 
sagen. Doch mehr im nlichsten prisma und viel Spaß mit 
den neuen Möglichkeiten; nur noch sovieli 
Vorsicht bei den Registern 100 und 1015 die Befehle ne- 
hen aus, wie für die Register 00 und 01. 
Die in den Kästchen ganz unten aufgeführten Befehle 
zeigen, wie der HP-67/97 die Codes interpretiert, Dia 
Rätsel um die TEXT-Befehle werde Ich im nliohsten Arti- 
kel Rechnerorganisation lüften. Bis dahin erst einmal 
germug technischen Krams und noch ein Wort an alle 
"Nioht-Kartenleser-Besitzer" und/oder "Nicht-Druoker- 
Besitzer": Alle Kartenleser und Drucker-Befehle will 
ich in einem Artikel erklären. Für diese Ausgabe habe 
ich es aber nicht mehr geschafft. Daher im nächsten 
priema mit frischer Energie und - hoffentlion - wieder 
ein paar Neuigkeiten, 

OLIVER RIETSCHEL 


v2 22) 


ir 
sıT 19 


+ 


2° 6 v8 ?2 2% se nn > £ > > nn, 
BEINE BB IE BEI ZZ ER E E e 


rw} 


|. 
136 & | 130 0 
Ind 


| 


GTO IND 
XEQ IND 
46 


653 fe 


TEXT 15 


e 
(31 25 24) 


+-Vrlste —| ——— Three Byte ————— | + ——— Two Byte Instructions —— 


| -— One Byte —— 
Fe 


+ nn m Postfix Indiract 


Hier ist es nın - das erste Heft unseres Clubs. Zusammen mit diesem Heft erfolgte 


eine ganze Reihe von Änderungen, doch mehr auf den "inneren" Seiten. Hier ein 
kleiner Wettbewerb: 


WER MALT ODER ZEICHNET EIN KLEINES ODER 
AUCH GRÖSSERES TITELBILD FÜR UNSER HEFT ? 


Das Original mıß im Format DIN A4 sein und einen ausreichenden Platz für das 
Inhaltsverzeichnis bieten, Einfarbig und kontrastreich., 


INHALTSVERZEICHNI S 


Seite Autor Artikel 
2-53 Oliver Rietschel Januar vor Weihnachten ? 
4 Oliver Rietschel Neue Clubregeln 

Oliver Rietschel Programmierbarmachung bisher nicht progr. Funkt. 
4 Oliver Riesschel Clubprojekt Nr. 1 
5-6 Edmund Weitz Neues vom Taschenrechnermarkt 
7 Friedrich Hillebrandt SIZE-TEST 
7 Oliver Rietschel Auch das noch ! ?11? 
7 Oliver Rietschel Clubprojekt Nr. 3 & Nr. 4 
8 Klaus Werner Hoenow ACXR 
9-10 Norbert Weber Hallo HP-41C Besitzer 
10 Norbert Weber & SCROLLING 

Michel Majerus 
10 Oliver Rietschel Programmvergütung - Beitragsvergütung 
11 - 12 Hans-G. Lütke Uphues BRIEF 
13 Klaus Werner Hoenow BRIEF 
14 Andreas Weiler - Kürzen von Brüchen 
14 Oliver Rietschel HP-User-Bibliothek Europa 
15 Erwin Hartmann BRIEF 
16 Erwin Hartmann Überprüfungsprogramn für Autellszellengensrakor 
16 - 17 Heinrich Henze Sparbuch- Zinsen 
16. Oliver Rietschel Mal etwas ganz,ganz anderes 
17 Heinz Elsässer Additionsprogramnm 
18 Christof Waas BRIEF 
19 Christof Waas Zahlensystem-Konvertierungen VW 
19 ?7227?27277722777???  Allerletzte Neuigkeiten Gm———————— 
20 Axel Burkart BRIEF und PROGRAMME ® 
21 - 29 Klaus Werner Hoenow Mamielles Plotten einer Funkt. mit autom. Skali 
30 Dieter Peppmüller BRIEF 
30 Oliver Rietschel Entschuldigung ! 
31 - 32 Gerhard Goder More bugs ? 
32 Oliver Rietschel Was ist das PPC ??? 
33 - 36 Walter Kropf BRIEF UNDD PROGRAMME 
36 Oliver Rietschel Private - Nein Danke !--—- Harte Nuss ! 
37 - 42 Oliver Rietschel and all ; Mitgliederliste 
43 - 44 errrrrr??? Nach "Redaktionsschluß" 


Wenn ich es als "Redaktionsschluß" bezeichnen darf: 13. September 1980 
Mitgliederliste: 20. September 1980 
eeerer??: 22. September 1980 

Veraltete Seiten wurden ausgeschieden !I! 

Nachdruck verboten ! Copyrightbestimmungen auf Seite 3 ! 

Einem Teil dieser Auflage liegt ein Prospekt der Firma Hewlett-Packard über 

Softwarezubehör bei. Dieser ist auch direkt bei HP, Vertriebsleitung, Frkft./M. 

erhältlich, 


SIZE.TEST 

'eaee. Wenngleich inzwischen schon viele SIZE-Routinen\W6ffentlicht wurden, 

s0 möchte ich doch meine noch anbieten, obwohl sie vom Speicherbedarf mit 41 

Bytes etwas dick:geraten ist. Der Vorteil liegt aber kundsm eindeutig in den 
nahezu konstanten Laufzeiten, egal ob nun SIZE oo0o oder SIZE 310 eingestellt 

sind ( jeweils 3,5 bis 3,8 sec. ). 

Tas Diagramm stellt einen Vergleich mit den Laufzeiten Ihrer (Oliver R.) Rou- 
tine aus prisma 9-80 dar. coar. 


(Listings nächste Seite) Friedrich Hillebrandt 


=0=0= 0: 0n0=020=020=0a0r 0m 0=0n0m020:0=020=20u0=2020m0n0n0=0=0=n0=0m0un0m0n0n0m0nOm 


Auch das noch ! 711? 


Wer meinen Rechnerorganisations-Bericht letzten Monat gelesen hat, wird es ge-: 
merkt haben: Ich war mit den Daten zum Stromverbrauch des Rechners ziemlich 
ungenau, den es lag etwas in der luft: 


Bei mehreren Verbrauchswerten, die mir inzwischen vorliegen, sind 
DIFFERENZEN UM EINIGE 
ZEHNTAUSEND PROZENT ort 


festzustellen. Nun ist es naheliegend, daß durch Verwendung verschiedener 

Meßgeräte besonders im unteren Meßbereich erhebliche Fehler verborgen sind. 
Daher habe ich zusammen mit einem Schulkameraden die "Freßsucht" des HP-41c 
überprüft. Ergebnis: ; 


Rechner 1 Funktion Rechner 2 
IinmA 
ca. 6 BEEP 10,5 
5,5 del. Taste gedr. 10,3 
0,6 mur ein 4,6 
0,005 aus 3,2 (keine Tippfehler) 


Diese Messungen wurden mit dem gleichen - dem selben I - Meßgerät durchge- 
führt. Dem besten, das wir in der Schule auftreiben konnten. Der Meßgeräte- 
fehler ist also NULL ,„ er fällt beim Vergleich heraus, 

Man beachte mur den letzten Wert - er ist am schockierendsten: Der eine Rech- 
ner zieht fast_Jooo ( in Worten: Siebentausend) mal mehr Strom als der andere, 
Ich will hier mın keine Panikmache betreiben, aber ich möchte doch empfehlen, 
mal die Ströme zu messen; die meisten unter uns werden das wohl fertigbringen. 
Doch das ist nicht einmal nötig. In vielen Fällen sind die Unterschiede so 
gravierend, daß man es merken mußs Selbst bei_geringem Kartenleserbetrieb hal- 
ten die Batterien nicht viel länger, als 1 Monat. Ohne Kartenleser nicht 
länger als 4 Monate, Sollten der eine oder der andere dieses festgestellt 
haben so kann ich mur ratens Einschicken an HP. Zwar habe ich eine entsprechen- 
de Anfrage vor zwei Wochen an HP gerichtet, doch kam bis heute keine Antwort. 
Ich bin jedoch felsenfest davon liberzeugt: Ein Garantiefall, selbst wenn die 
Garantiezeit schon abgelaufen sein sollte. 

Mehr kann ich im Moment auch nicht dazu sagen - es war wohl auch schon gemg 
schaurig - hoffentlich vernichtet HP nicht den einen oder anderen BUG bei 

der Reparatur Oliver 


80650809068080808080B080808080808080808080B08080B08080B030808080B0B0B0B080B0B0BOM 
CLUBPROJEKT Fr. 3 


Wird nächsten Monat genauer erläutert: Druckerpapier, schwarz-(und blau- (77)) 
druckend zu einem Spottpreis, Wieder eine Sammelbestellung. 


888888888888889888889888888888888888888888888888889886888886888888808888886888088 
CLUBPROJEKT Nr. 4 


Veröffentlichung von Programmen in lösungsbüchern; Entsprechende Verhandlun- 
ren laufen. Hoffentlich liegt nächsten Monat schon etwas konkretes vor. 


ACKR 


ACHR vird anstelle. von 
ACK zun rechtsbuendisen 


" Tabellenausdruck be- 


mitzi. 

Bei Prowannstart und 
-ende steht die zu druk- 
kende Zahl in X-Resi- 
ster, in Y-Resister 
steht die naxinale An- 
zahl der Vorkonnastel- 
len, sat. vernehrt ua 
tuehrende Leerstellen. 


K. W. Hoenov 25.88.88 


u 


OIrLBL "ACKR“ 
B2 CF 29 
03 RCL Y 
2 

05 - 

86 RCL Y 
07 RHD 

03 X=0? 
09 CTO 81 
t0 ABS 

11 LOG 

12 INT 

13 %=0? 
14 CT0 01 
15 ST- Y 
16+LBL 91 
17 RDN 

18 SKPCHR 
19 RDH 
20 RHD 


SIZE-ROUTINE 
von FRIEBR. HILLEFRANDT 


o1l+LBL 5?“ 
82 CLST 

83 511 

84 FIX 6 
6e5+LBL 08 
86 INT 

07 %=Y? 

88 RTN 

e9 STO Z 

18 RCL Y 

ı1 SF 25 
412+LBL 601 
13 + 

14 2 

15 7 

16 ARCL IND 
*% 

17 FC? 25 
18 GTO 88 


PLOT OF TN-5? 
xCWMITS= I) 4 
YmiTs= 1) > 

. 68,8 


(Seite ein wenig "sohmierig", da blaue Listings) 
u 


——-.. 


ERZEUGUNG_VON_ HEX-ZEICHEN mit_RCL d und _STO Walter Kropf 
Flagge: 
Befehl Hex-Code O0 1 2 3:4 5 6 7,8 91011112 13 14 15 
RKLce oD ı0010000loı 2 111 1201 
sSme Am 1001jooo1Jlo1ı 1 111071 
RKLR 0A 10010000011 1170710 
STOR 91 7A 10071! oo07]1 F8 11110710 
RKLe oT 10021:00o0o0o 1 12 ı 12 111 
some aw®r 200X:0o0oo1ılorı1ı 1.2 111 
x EB 11001110011 Lo 110 


Flags entsprechend der Codetabelle setzen, RCL d, STOM, die 
beiden linken Alpha-Zeichen beinhalten den eingegebenen Hex-Code. 
Sie können leicht mit ASTO, ARCL, ASHF isoliert und zur späteren 
Verwendung mit dem Befehlsgewinnungsprogramn in Speicherregister 
abgelegt werden. 


Das Verfahren mit RCL d ist nicht notwendig für HEX-Codes, für 
welche ein Zeichen im Alpha-Modus eingegeben werden kann. Hier 
genügt es, das Alpha-Zeichen einzugeben und das Programm zur 
Befehlsgewinnung zu starten. 

Für HEX-Codes, welche nicht die Zeichen A-F enthalten, kann dieser 
auch wie folgt eingegeben werden: 1 EEX "Code", STO M, ASHF der 
Code steht dann wieder im Alpha-Repister. 

Zum Beispiel: für RCL d: 1 EEX 90, STO M, ASHF, Alpha, f APPEND, 

2, Alpha, Programm zur Befehlserzeugung Starten. 


ERZEUGUNG BELIEBIGER BEFEHLE NACH HEX'CODE TABELLE 


Programn wie in Prisma 2/4-80 mit folgender Änderung: 
203 STO 00 
204 RCLM 
205 STO IND 00 
Programm auf Karte speichern. Nach meiner Erfahrung braucht der 
Rechner nicht gelöscht werden und muß das Programm nicht an 
erster Stelle im Speicher stehen. Allerdings hängt die Zeile, 
in welcher der gewünschte Befehl generiert wird, davon ab, wo 
das Programm im Speicher steht. 
Hex-Code des Befehls laut obiger Anweisung im Alpha-Register 
speichern und Programm starten. Der Befehl kann durch löschen der 
überflüssigen Programmteile isoliert und auf Karte gespeichert 
werien: 
Zu prisma  4/5- 80: 
Auflisten von Programmen. 
Ich bin gerne bereit Programmlisten von Magnetkarten für Club- 
mitglieder auszudrucken. Bitte angeben in welcher Art das Listing 
gewünscht wird:"Trace-Mode"(wie Programm "Phasen, Finsternisse), 
NORM-Mode (Zeile für Zeile, bei jedem Label Zwischenraum) 
MAN-Mode(Zeile für Zeile, fortlaufend). 
Als Vergütung schlage ich vor ÖS 4,- je Kartenspur plus Frei- 
umschlag zur Rücksendung. Wenn Warenprobesäckchen und Dose von 
Kleinbildfilm mitgesandt wird, erfolgt Rücksendung des Druck- 
streifens ungefaltet, Bezahlung in Briefmarken! oder Int.Antwortsch, 
Walter Kropf 
Schönowitzstraße 14 
A-8700 Leoben 


Stertrout if fur Zufellesahlengensrater NaLtErcKronE 


Pseudozufallszahlengeneratoren, wie zum 
Beispiel im Programm 'MEMORY' verwendet, 


GieLBL a erfordern die Eingabe einer Startzahl 

02 Pi zwischen O und 1. Hier ist die Möglich- 

03 "RS N" keit der Manipulation durch Eingabe einer 
04 AYIEN bekannten Zahl gegeben. 

sel i Das nebenstehende Programm vermeidet diese. 
B6eLBL. 65 Umstand. Nach Programmstart wird in einer 
97 Ste 08 Endlosschleife die Zahl Pi aufaddiert. 

63 F52 11 Die Schleife wird verlassen durch kurzes 
nes FORTS. Ausschalten des Rechrers und wiederein- 

10 "PROER. ® schalten. Das Programm wird dann automatis: 


fortgesetzt.Die so gewonnene Startzahl 
steht in R 00. Da die Schleife in der Seku 
etwa 4mal durchlaufen wird, ist nach einig 
Sekunden der Stoppzeitpunkt nicht mehr zu 
bestimmen und die Startzahl unabhängig 

vom Spieler. 


Lieber Herr Kropf I! 


Da Ihr Brief sicherlich auch für andere Clummitglieder intereseint ist, habe ich 
Ihn heute mit abgedruckt, Ebenao Erzeugung von HEX-Zeichen „ Leistungsmessung, 
Stoppuhr und Startroutine, 

Ihre Programe Fouriertransformation und Inverse F. werden in einem der Weihnacht: 
sonderhefte erscheinen. In dem Weihnachtssonderheft "Synthetische Programmierung" 
werden Sie (und alle anderen) viel,viel Interessantes auch in B2zug auf Ihre Fragt 


zinda; Bleiben Sie weiter so aktiv !1! 
Oliver 


PRIVATE ? - NEIN DANEE I 


Wer hat es sioh nicht schon mal überlegt - wie kann man PRIVATE - Programme 
"knscken". Es ist möglich, mır wie ? Hier wili ich es nicht verraten, denn 
SOLLTE MAN ES ÜBERHAUPT VERÖFFENTLICHEN 77? 

Damit wäre dann die sohöne PRIVATE - Funktion überflüssig, d.h. unwirksam . 
Ein heikles Thema. Was meint Ihr dazu 77? Oliver 


HARTE WUSS I 


Eine kleine Aufgabe: Programmieren der INT-Funktion. An eich kein Problen, aberı 
Verwenden Sie nicht INT oder FRC im Programm I Was nmın ? Man nehme RND und FIX o ! 
Falsch! Auoh das geht nicht, denn der Anzeigezustand, 2.B. EIG 7 soll erhalten 
bleiben, Alsoı Wie geht ea ? 

Ein Tipı Wer es nicht schafft, sollte sich "Rechnerorganisatimn Teil 1" noch einma 
genau durchlesen | Auflösung im nächsten Heft oliver 


Klaus Werner Harnow 2000 Hamburg’  ı 17.08.1980 
Alaskawey 


Herrn 

Dliver Rietschel 

Hewlett Fackard Anwender-Club 
Pcstfach 373 


2420 Eutin 


Lieber Herr Rietschell 


Vielen Dank für "prisma" 9-80. Den Fragebogen erhalten Sie 
beiliegend zurück, 


Sie haben zich auf das "Key-Assignment-Progremm" neugierig 
gemacht, ch Sitte Sie, es mir auf Karten zu kopieren,desglei- 
chen das Pragramm "OR-ST-1"%. 4 Magnetkarten sind beigefügt. 


Zum Frogramm "KAL" (23/9-80) einige Bemerkungen: Das optische 
Symmetrieempfinden wird belohnt, wenn in Zeile 183 21 statt 
18 und in Zeile 167 18 statt 14 gesetzt wird. Da ohnehin 5 
Kartenspuren benötigt werden, lassen sich noch folgende Ergän- 
zungen einfügen: Seit 1975 fängt die Woche auch in Deutschland 
mit dem Hontag an, daher 

zwischen 23 u. 30: CF 06; 1975; X=Y?; SF 06 

zwischen k9 u. 50: 4; FS? 06; GTO 20 

streichen:Z. 52 

zwischen 533 u. 54: LBL 20 

zwischen 70 u. 71: FC? 06; GTO 21; SKPCOL; "5"; ACA; LBL 21 

zwischen 175 u. 176: FC? 06; GTO 22; 1; -; LBL 22 


Nun zum EClus: E3 war vorauszusehen, daß der bisherige beschei- 
dene Mitgliedsbeitrag bald richt mehr ausreichen würde. Auch 
ich halte DM 50 im Normalfall für angemessen, allerdings mit 
jänrlicher Zahlung, um Buchungsgebühren zu sparen, und mit 
Rechnung. Bei der steigenden Mitgliederzahl und den damit ver- 
bunderen höheren Geldumwälzungen wäre ellerdings eine Eintra- 


gung ins Vereinsregister zu erwägen. 

Mit Freunalsfy n Grüßen 

/7 7 7 . 
4 Jia 


Anlagen: Fragebogen, 4 leere Magnetkarten 


Progremnd@änentetion 


KÜRZEN VON aRÜCHEN Andreas Weiler 


Dieses Programm kürzt einen Bruch Z/N auf die einfachte 


Form. 
Zuerst tippt man das Pragramm laut Auflistung ein.Danach 
Startet man es mit actotak «Jetzt wird der ungekürtzte 


Zähler zZ, mit R/S eingegeben,darauf der ungek. Nenner N 


Us 


Drückt man nun auf die Run-Taste wird der gekürzte Bruch 


folgendermaßen angezeigt: Z. / N, 


Listing 


a1+LBL 
e2 FIX © 

83 STO 97 
84 STOP, 

05 STO 88 
06 STO 89 
87+LBL 08 


08 
89 
10 
1i 
12 
13 
14 
15 
16 
17 


RCL 


x=0? 
GTO 


x>0? 


GTo 
RCL 
+ 

x<> 
GTO 


18+LBL 


19 
26 


36 


RCL 
xEQ 
sTo 
RCL 
KEQ 
sTo 
cLaA 
ARCL 
"Fr 
ARCL 
PROM 
GTo 


31+LBL 


32 
33 
34 


z' 


RCL 
+ 
END 


"BKT 


09 


27 


08 
89 


89 
88 
27 
87 
nA 

087 
88 
A 

08 


07 
08 
PT 
“-BK“ 
A 
89 


_ 10 Register 


Speicherbelegung: 


17: zZ 
Be: N 
89: ggT(Z,N) 


00000000000000000000000000000000000000000000000000000000000 
HP-User-Bibliothek Europa 


Wie im prisma bereits angekündigt warı Der neue HP-41c 
Katalog ist erschienen. Zumindest quantitativ hat sich ja 
einiges getan; die negativen Befürchtungen wurden - zum 
Glück - nicht war. Wie es mın mit der Qualität steht, wird 
sich noch herausstellen missen. Wer kann terichten 7? 
Oliver 


Weil hier nooh Platz war, hier - mitten im Heft - ein Hinwalı 
zur Mitgliederlister 

Bei Speichermodulen habe ich mır eine Unterscheidung getroff: 
Wer mur eins besitzt oder bestellt hat, findet bei sicht 
Menory. Wer mehrere bestellt, oder schon besitzt: Memorya 


Bei einigen war für die Aufzählung der ROM‘e kein Platz mehr. 


‘“ Darum hiert 
Mitgl. Nr. ROMS 
® Games, Network Analysis 
9 Games, Mathe, Standard 
11 Mathe, Statistio, Standard, Circuit Anal} 


Oliver 


B81+LBL 


82 
a3 
04 
85 
86 
87 
8 


Programm zur Überprüfung der durch einen Zufallszahle‘ \, 


“CASESSEEASZTZERNERSE PIMSLRRENMNEEIER. ) — 1} \|  EEREERUNESESHEENEE, mu .n 


"RKDM 


CLRG 
FIX © 
.258369 
sto 59 
58 

sto 51 
cr 29 


89+LBL 81 


18 
11 


21 


1 

ST+ 53 
RCL 53 
VIEW X 
xEQ "RND 


sto 52 
1 
ST+ IND 


GTO 81 


22+LBL B2 


23 
24 
25 
26 
Yv 

27 
28 
29 
38 
31 
32 
33 
34 
35 
36 
37 


33+LBL 


m- 
39 


zu 

ARCL Y 
"+ ” 
ARCL IND 


AVYIEN 
PSE 
RDN 

1 

ST+ Y 
RDN 
RCL 51 
x>Y? 
GTO 82 
STOP 
GTO 81 
-RND 


RCL 58 
9821 

1 
.211327 
+ 

FRC 

stTto 58 


or erzeugten 


Das Programm speichert die Anzahl der generierten 
Zufallezahlen im Register mit der Nummer, die der 
Zufallszahl entspricht. Diese Register können dann 
durch XEQ A angezeigt werden, Während des Programn- 
ablaufs wird ständig die Zahl des bisher generierten 
Zahlen angezeigt. ; 

Das Program kann jederzeit durch R/S gestoppt, die 
Register mit XEQ A angesehen und mit R/S weiterge- 
fahren werden. 


Statuss Size= höchste zu generierende Zahl +5 


Register n+i= Ausgangszahl für den Zufallegenerator 
R n+2= Höchstzahl +1 
” nm3= Zufallszahl 
a nt+4= Anzahl der generierten Zahlen 


n= Höchstzahl (im Beispielprogramm=49) 

Erwin Hartmann 
KHK AS SHSTETEASEHEHSTSASHENSÄSHSHEN SA A SALE 
Zum Kalenderprogramm der Standardsammlung noch eine 
weitere Erweiterung: "Zinsprogramm" 

Dieses Programm dient zur Kontrolle der Zinsrechmung 
von Sparkassenbüchern, insbesondere, wenn sich die 
Zinsen (Einlagen) im Jahre oft ändern. Man kommt na- 
türlich nicht genau an die richtigen Werte heran, 
sonst mıß man sich von den Banken die genaue Wert- 
stellung sagen lassen und die Berechnung der Tage 

im Programm etwas ändern, 


Heinrich Henze 


a1+LBL E 
B2 RCL 19 
283 * 

84 368 

85 7 

86 STOP 
87 * 

88 ST+ 11 
89 END 


Mal etwas ganz, ganz anderesı 


Verkaufe a) Graupner Fernsteuerungssender 8 S FM4o 

8Kanal, 4o MHz, neuwertig, lediglich 
Antenne leicht gekniokt, Akku 
VHB 150 IM 

db) Equalizer Bausatz 4xlo Frequenzen, 2 
Frontplatten, 20 Potis (Stereo), Klangregel- 
einheiten fertig aufgebaut für 20 Frequenzen 
Preis Verhandlungsnache 


Oliver 


14 


“ADDITIO 


PROMPT 
sTOo IND 


1 

ST+ 81 
RDN 
STOP 


1i5+LBL 82 
16 ISG 08 
17 GTO 83 


18 
19 


BEEP 
STOP 


28+LBL 83 


2i 
ei 
22 
23 
24 
25 
26 
27? 
28 
29 


31 
32 
33 
34 
35 
36 
37 
383 
. 39 
48 
84 
41 


STO IND 


+ 

1 

ST+ 01 
RCL Y 
STOP 
FC?C 22 
GTO 01 
GTO 82 


38+LBL 81 | 


STO 83 
RCL 8i 
4 


STOo 82 

RCL 84 

PSE 

3 

sTo 94 

RCL IND 


PSE 


42+LBL 84 


43 


1 
ST+ 04 
RCL IND 


PSE 

xe07? 

GTO 84 
RCL 82 
CLARA 

ARCL X 
“+ WERTE 


AYIEN 
PSE 

RCL 83 
“"SUMME=* 
ARCL % 
AVIENM 
END 


AQGILIOnBpEOgTam nn nennen 


eseeo...„ Diesen Schreiben lege ich dap Programm Addition 
dei. Dieses Program dient zur Addition von Werten und 
anschließender Kontrolle, ob die Werte richtig eingegeben 
wurden, wenn kein Drucker vorhanden. ist. Nach: Starten des 
Programmes sind die Werte einzugeben, danach ist jeweils ı 
Taste R/S zu drücken, Wenn die Eingabe beendet ist, wird 
abermals die Taste R/S gedrückt. Die eingegebenen Werte 
werden dann automatiach wiedergegeben, sowie die Anzahl 
der Werte und die Summe. 

Daa Program ist auf SIZE 4o ausgelegt. Durch Ändern der 
Programmzeile 03 in „01401 kann das Programm z.B. auf 
SIZE 20 abgeändert werden. Bei der Eingabe des letzten We: 
tes vor Erreichen der Speichergrenze ertönt BEEP. 

Durch drücken der R/S Taste kann dieser Wert gerettet 
werden. Durch nochmaliges Drücken der R/S Taste geht das 
Programm dann in eine Wiedergaberoutine. 


Heinz Elsässer 


tejmimimiajuimininimnimiujeimimiuiutmiuinjuijiuiufmjutinin.mt 


Hier noch das Flußdiagram für das Zineprogramm von 
Heinrich Henze: 


Eingabe % [60...] >ST0 40 


Ziusen berechnen ST+11 


Speicher: 


01 Differenz in Tagen 
1o Zinsen ( 2.B. 0,04) 
11 Zinskonto 


tmimimjntnimjuintnilmfelnsfuimtuimteiminjmimjeimjujmtmt 


Üsterreichiäche Mitglieder können Prcgrame gegen 
Rückporto bei ROBERT KLAUC auflisten lassen, 


Umrechnung von Dezinmalsystem in jedes bellebige Systen kleiner 10 


De 
> ©: 
we m 
VeBgSsyEs 53 285 283 sn su 88 = 
oo [=] 

BERSERSS SSBEEg SS90828 & of 
ZUFESTESHSESSER EBSBERE.5_58 888353 
: Im DE > 
= = = er nn. 

FERLLELRANRAKEARASHNERS 


sIzE 45 „ Start mit XEQ'ZSY „ weitere Zahlen ,„ R/S ; 

neues Systes natürlich mit RITN ; Ergebnis mit max 1ß Stellen . 

FIX @ kann weggelassen werden und von Hand eingegeben werden „ Setzen 
oder löschen von Flag 28 und 29 ist reine Geschmacksache . 


128 Töne auf dem HP - 1 C 


Es besteht die Möglichkeit „ mit jedem HP - 41 C einhundertachtund - 
zwanzig Töne zu erzeugen „. Eine genaue Anleitung „ wie diese Befehle 
zu erzeugen sind „ ist noch nicht erstellt „ befindet sich aber in 


Arbeit . 
Fertige Stetuskarten mit diesen Tönen sind gegen Einsendung von vier 
Magnetkarten und selbstadressierten Rückunschlag bei Walter Pieper - 


hoff (205) erhältlich . 


Freigehalten für allerletzte Neuigkeiten : 
zu Seite 36 : Inzwischen bin ich der Meinung „ wir sollten nicht 


verraten „ wie PRIVATE geknackt wird . 
Oder ? Oliver 


REVERSI : von Ulrich Davertzhofen stammt ein Reversi spielendse 
Programm . Genaue Einzelheiten habe ich noch nicht 
abgeklärt . 


ACHTUNG! ACHTUNGI ACHTUNG 11 ACHTUNGI ACHTUNG! ACHTUNG? ACHTUNG I I 


Heute am 29.09.80 ist ein Brief von HP angekonmen : in Kürze die 
wichtigsten Auszüge : 


Stromverbrauchsproblene : Interne Verriegelung durch statische 
Entladung 


“ee... Der Preis für den opt. Lesestift beträgt incl. MWST 297,- DM .. 


Lieferzeiten : HP 41 C | no... 2 Wochen 

Kartenleser „eco... 4 Wochen 

Drucker on... 5 Wochen 
Zu diesen Ließerzeiten bekomat jeder Händler in Deutschland die 
Geräte ! 


Soweit der HP - Brief von Herrn Ulrich Brode „ Innendienstingenieur 


bei Hewlett - Packard . 

Ich nöchte neueste Erfahrungswerte für Norddeutschland nachliefern : 
Preise nerklich nachgebend I Häufig 1o bis 15 % unter Listenpreis . 

Sehr oft ab Lager ! Aus diesen Gründen kann ich im Momentauch keine 


billigeren Händler empfehlen . Lohnend:Sammelbestellungen. Oliver 


1. _ON/OFF 3 


Dieses Programm zeigt, daß auch eiskalt kalkulierende (Taschen)rechner fähig sind, 
menschlich zu reagieren. 


LBL "ON/OFF" Das Programs verändert mit Ausnahme des Alpha- 
"GOOD BYE* Off-Text Registers keine Speicher. 

AVIEW ON/OFF wird einer dem Anwender genehmen Taste 
SF;11 On-Vorbereitung . zugeordnet. Anstatt den Rechner mit ON abzuscha‘ 
Cr 27 UserMode Off - wird dann diese Taste bemutzt. 

TONE 9 Abschiedesignal Der Rechner wird ganz normal mit ON angeschalte: 
OFF Abschalten Wurde nach dem Anschalten des Rechners kein Pro, 
"HALLO AXEL® ON-Text ausgeführt, reicht es, den Rechner mit B/S abzu- 
AVIEW schalten, 

END Das "CF 27" (User Off) ist mir persönlich angen- 


aber für das Funktionieren des Programms nicht 
notwendig. Natürlich sind auch die Alpha-Texte variabel. 


2. SIZE-TEST 

Er Du isL 

Obwohl sohon in prisma 1 ein Speichergrößentest-Programm abgedruckt ist, hat mein 
Program,den Vorteil, daß es ( besonders bei großen SIZE-Werten ) schneller zum 
Ziel kommt. Beachtet, daß die Register nicht angezeigt werden, sondern mır die 
SIZE Größe, 


Das Program belegt 10 Register. Die früheren Inhalte vc 
m T,L, Alpharegister gehen verloren, Das Programm testet 
Solange FST25=YES erst in loer-Schritten, ob die angesprochenenn Register 
existieren, bis es auf ein Hicht-eristierendes Register 
trifft. Dann sucht es rückwärts in 1er Schritten nach de 
letzten existierenden. Dessen Nummer wird angezeigt. 


Übrigend habe ich den SIZE Test der SCI Taste zugeordnet 
da diese mir das Merken (SIZE-SCI) erleichtert. 


Entschuldigt bitte, daß ich nicht mehr Programme mitach: 
aber ich habe soeben ein 6809 uP System gekauft, welche: 
mich voll und ganz beansprucht, 

Axel Burkart 
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Achtung: Man setze SIZE gleioh 11 oder 21 oder 31 oder 12 oder ..... 
In jedem Fall kann man hier den gleichen, seltsamen Effekt wie bei de: 
SCROLLING Routine von Norbert Weber und Michel Majerus beobachten !!!! 
Oliver 


HP-L1C 


Programm PLDT1: Manuelles Plotten einer gegebenen Funktion 


mit automatischer Skalierung 


Für die graphische Darstellung der Funktion ysf(x) berechnet 
PLOT1 bei vorgegebener Länge der Abszissen- und Ordinatenach- 
se und ggf. vorgegebener Lage des Ursprungs den Zeichnungs- 
maßstab, ermittelt die Lage der für die Skelenbeschriftung 
ausgewählten Achsenpunkte und gibt -gemessen von der linken 
unteren Ecke des Zeichenfeldes- die Kordinaten der Kurven- 
punkte on. 


Die Funktion y=f(x) muß zwischen LBL FN und END gespeichert 
sein; dabei ist FN der Funktionsname (maximal 6 Alphs-Zeichen), 
das Argument x steht bei Funktionsaufruf im X-Register, wo 

nach der Funktionsberechnung der Wert y steht. 


Eingabepzrameter: 
Funktionsname FN 
Anzahl der Nachkommastellen für die Skalenbeschriftung 
ven Abszisse und Ordinate 
Ggf. Koordinaten ug bezu. vg des Ursprungs im Zeichenfeld 
Abszissenlänge a und Ordinatenlänge b des Zeichenfzldes 


Extremwerte x x ’ Yin URE Yogy von y=f(x). 


min’ “max 

Mathematische Grundlagen: , 

Die Funktion y=f(x) soll auf ein u, v-Koordinatensystem abge- 
bildet werden, dessen Ursprung in der linken unteren Ecke des 
Zeichenfeldes liegt. Es werden die lineeren Abbildungen x@ u 

und y®#v gesucht; die folgende Betrachtung wird auf xeu be- 


schränkt, sie verläuft für y&v entsprechend: 


Der Bereich von x sei durch “in und Knax (x in“ Xnax? defi- 


niert. Für die u-Achse sind zwei Fälle zu unterscheiden: 


1.) Die Lage ug des Ursprungs von x ist nicht vorgegeben. 


Dann gilt: Kan in 
x = = + Kmın 
a 
u=(x-x,_) P 
min oz R 


2.) DIWL age ug des Ursprungs von x let vorgegeben. Dann muß 


der Abbildungsmaßstsb so engepsßt werden, cCaß sowohl x 


min 
els auch Ran Poch auf der Abszissenlänge a dargestellt 
werden können. Je nachdem, ob man Xnin oder Xnay Zur Ber 
rechnung benutzt, gelten. die Formelsätze 
“mi 
x -„Uün,, 
u min 
p u 
[4 
u=-(x- RER oa 
min 
bezw. 
R = max 
x= (u rem 
B-u 
u=x 2 + ug 
max 
{ u 
ya >a ist, wird der 


Wenn u, = oder -(x .x. 
[') 2 ( max min’x 


zweite Formelsatz verwendet, andeifalls der erste. 


Proaremmablauf: 


1. 
2. 


Programmstart durch XEQ PLOT 

Eingabe der Parameter im Dielogverkehr mit R/S. Wenn die 
Lage des Ursprungs von y=ef(x) nicht vorgegeben werden soll, 
denn wird auf die Frege "UR ?* bezw. "Vf 7" einfach mit 

R/S geantwortet. 

Mit der Anzeige "SKAL. X:A Y:8" ist die Einganesequenz au- 
geschlossen, Mit der Eingabe von NN @ bezw. NN E)uird 
die Lage des -Punktes NN auf der u- bezw. der v-Achse enge- 
geben, was z. B. zum Beschriften dieser Achsen dienen kenn. 
Soll die Kurve y=f(x) fortlaufend gezeichnet werden, sa ist 
© zu drücken. Im Dialog sind dann der Anfengswert Un und 
der Zuwachs Zu einzugeben. Wird auf die Frage nach der Start: 
ebszisse Un mit R/S geantwortet, so wird dieser Wert auto- 
matisch auf gesetzt. ü 

u(x) und v(y) werden nun -jeweils nach Drücken von R/S- 
fortlaufend angezeigt. 

Sollen die zu bestimmten einzelnen u-Werten gehörenden 
v-Werte angezeigt werden, so ist nach Eingabe des u-Wertes 
© zu drücken. Dieser Vorgang kenn auch beliebig oft wäh- 
rend der Prozedur %& durchgeführt werden. 


RAAB: Funktionsname FN 
RA1: Nachkommastellen für Abszissenbeschriftung 
RZZ: Nachkommastellen für Ordinstenbeschriftung 
RE3: . 

23: vor “A Lage des Ursprungs von y=f(x) 
RAL: ggf. 7) 
RS: Abszissenlänge a 
RAS: Ordinatenlänge b 


R2?: Kin 
RBB: x 
max 
RBS: Ne 
RAE: Ymax 
x x. x -x 
R11: za bezw. - n bezw. mex— min 
[ [. 
y Yo: y =y 
R12; ax bezw. UN Hpezu. mes min 
b-yg [7 [e) 


R13; Startabszisse un 
Riu: Abszissenzuwachs Au 


R15: Zwischenspeicher 


Flaos: 


Es werden die Flags Bf ... 93 und 22 verwendet. 


Proorammspeicherbedarf: 
PLOT? benbtigt 61 Programmspeicherstellen; daher wird in den 
meisten Fällen -außer, wenn das Programm für f(x) sehr kurz 


ist- ein zusätzliches Memory Module bendtiot. 


Struktogramme: 


Hauptprogramm 


Flags Bf ... B3 löschen 
Parameter einlesen und abspeichern 
Skalenfaktoren berechnen 


® Beschriftung der Abszisse 
Beschriftung der Ordinate 
fortlaufende Kurvenberechnung 


Berechnung von Einzelpunkten der Kurve 


Unterprogremn 1 


| 

i en 
Abbildung x=>u | 
| 


Unterprogramm ß2 


Abbildung uw>x 


Unterprogremm 93 7 
Abbildung yav | 


Unterprogramm fu 


ee me Fe 
Anzeige von zwei Zehlenuerten (der erste mit wählba- 


rer Nachkommastellenzahl) 


PLOT1 ; Hauptprogremm 


Flags 29 ... 83 löschen 
Einlesen Funktionsname FN— RZR 

Einlesen Nachkommastellen x—Rß1, y— RB2 
Flag 22 löschen 
Egf. Einlesen ug-Rn3; dedurch wird Flag 22 gesetzt 


= Flag 22 gesetzt? 
Nein 


" für vg durchführen (ggf. nach Rß4 speichern, Flag 1 


setzen) 


Einlesen Abszissenlänge a—Rß5, Ordinatenlänge b—RB6 


Sinlesen x; RB7, x am RBB, Yan RI, Yan? RB 


Den Flag BA gesetzt? | 


(x = —— x -x 
max 


Flag #22 setzen 

«= für y, v durchführen, Speicherung nach R12, gof. 
Flag B3 setzen (geprüft wird Flag 01) 

"TSKAL. X;A Y:B" anzeigen 


Skalenbeschriftung für Abszisse bezw. Ordinate 
Eingabe von x mit ® bezw. von y mit 
81 bezw. 
Anzeige von x und u bezw. y und v 


PLOT1; Hauptprogramm (Fortsetzung) 


Kurvenberechnung (C) 
Fleg 22 schen 


Ggf. Stertebszisse un R13 einlesen; dedurch wird 
Flag 22 gesetzt 


Fleg 22 gelöscht? 
Ben ; EIN 
en 


Abszissenzuwachs JAu—R14 einlesen 


Endlosschleife 


Ggf. Einzelwert u mit ©® eingeben; dadurch wird 
Flag 22 gesetzt 


Flag 22 gelöscht? ___-— 
’ NEIN _ 


(RI3) X ! Bere 


yx f(x) 


ü Anzeige von u und v 


Flag 22 gelöscht? und 
A IBschen EIN 


{R13) + Zu— R13 mm 


(Im Unterprogremm 93 werden entsprechend die Flags P1 
und f3’ geprüft) 


PLOT1; Unterprogramm A2 (u—x) 


ID Flag BB gelöscht? 


Listing: 


Bı2 


B22 


238 


gun 


oLBL"PLOTA" 

CF 292 

cr 21 

CF 22 

tr 93 

" FUNKTION ?" 
AUN 

PROMPT 

ADFF 

ASTO BA 


"NACHK. X A Y?" 


n v2 7" 


sr 91 

"LAENGE 
PROMPT 
sTo 85 
"LAENGE 
FROMPT 

sTto B6 
"XxMIN A XMAX?" 


ABSZISSE" 


DROINATE" 


sta 2? 
"YMIN # YMAX? 
PROMPT 
sTto 1% 


6A 


BED 


Flag 82 gelöscht? 


GTO 38 sTo 13 


RCL 18 ®. ZUWACHS?” 
RCL 89 PROMPT 
- STO 14 
RCL B6 CF 27 
/ oLdöL D 
sTo 12 FC? 22 
GTO 99 RCEL 13 
oLBL 28 STO 15 
BSB RCL 84 158 xXEQ 22 
X=ß? XEQ IND BD 
GTo 18 xEQ 53 
RCL 89 RCEL 15 
RCL 18 1 
= xEQ B4 
” sTtoP 
RCL 89 RCL 14 
FC?C 22 
RCL B6 ST+ 13 
BB XZY? 168 6T0 OD 
GTO 12 RTN 
RCL 99 oLBL 81 
RCL Bu FC? 82 
/ GTo 11 
CHS FC? B2 
sTo 12 GTo 91 
GTO 89 RCL 91 
coLBL 19 / 
RCL 18 RCL #3 
118 RCL 86 178 + 
RCL Bu R RTN 
S oLBL 11 
RCL 27 
STo 12 - 
SF 83 RCL 191 
oLBL #89 / 
" SKAL. X:A Y:B" RTN 
AVIEW I oLBL 82 
SF 27 FC? 28 
128 RTN 188 GTD 12 
oLBL A FC? B2 
sTto 15 GTO 12 
xEQ 81 RcL 83 
REL 15 - 
RCEL 91 REL 01 
xEQ Bu n 
RTN RTN 
oLBL B oLBL 12 
STO 15 REL 73 
138 XEOQ 83 198 = 
RCL 45 RCL 87 
REL 82 + 
XEQ Bu RTN ‘ 
RTN oLBL 93 
oLBL C ’ FC? 81 
CF 22 GTO 13 
® STARTABSZ.7" Ft? 23 
PROMPT GTo 13 
FC?C 22 RCL 12 


148 8 zB / 


ACL Bu ELA 


# FIX IND x 
RTN ARCL Y 
oLBL 13 Lin 

RCL 89 FIx 1 

= ARCL 2 
RCL 22 AVIEW 

/ 218 END 

RTN 

‚218 oLBL Zu 


Beispiel: 

Die Funktion y = f(x) = xe x - 1 soll zwischen Xnin ® -5 

und Ken ? 3 auf ein Blatt Millimeterpapier, DIN A 4, Hoch- 
format gezeichnet werden. Die Mantenlängen des Millimeternet- 
zes betregen a = 189 und b = 288 mm. Der Ursprung von y = f(x) 
soll auf der Abszissenachse bei ug = 122 mm liegen; für die 
Lage auf der Ordinatenachse wird keine Forderung gestellt. 


Die Funktion erhält den Namen PAR: oLBL"PAR" 
x12 
LASTX 


1 

END 
Durch Frobieren mittels dieses Programmes, das man zweckmäßi- 
gerweise einer Taste zuordnet, erhält man Ymin ® -1.25 und 
Ya 29. Beim nachfolgenden Diselog mit PLOT1 sind die Be- 
nutzereingaben unterstrichen; 
xEQ PLOT FUNKTION ? PAR_R/S NACHK. X Ay? 178 R/S 
ud ? 122 R/S vd? R/S LAENGE ABSZISSE 189 R/S 
LAENGE ORDINATE Ze R/S xXMIN 7 xMAX? =-5 #3 R/S 
MIN / vMAxX? -1.25 7 29 R/S SKAL. X:A Y:B 


Die Position der Skalenbeschriftung erhält man mit @ und ®. 
Für den Ursprung erhält man z. B. BA DB.B 18. (wie gefordert) 
8 B BD 11.6 (vom Programm errechnet, da keine Forderung). 

Mit Oo) bezw. © erhält man fortleufend bezw. punktueise die 
Koordinaten von y = f(x) im Millimeternetz, z. B. für x = B: 

1d2 D 1DB.B 2.3; oder für Ray 3: ZunBens? Ermittlung des 
zugehörigen Abszissenpunktes: 3 A 3. 169.8; denn Bestimmung 
der Koordinäten: 169 D 469.48 57.9 . Die Benutzung von (© ist 


auf Seite 2, Punkt L erklärt. 


Hamburg 73,.den 12.96.1988 K. W. Hoenouw 
Alaeskaweg 18 


END 28 BYTES 


END 97 BYTES 
‚EM. 98 BYTES 


eleLBL UN” 
e2 + 


18 E- 
12 AVIEN 


..“ % 
RCL 82 


-BCDEFG“ 
rc 


RcL al 


-uQRRSTU“ 
Ka 


, RCL 88 
"-Erah*eo"” 


LT 
4. 
xE@ “CR” 
cart 
END 28 BYTES 


END 97 B11ES 
«EM. 08 BYTES 


caT ı 


+ 
87 x%<\? 
:088 X%>Y? 
29 X<=Y? 
18 + 
>11 8 


en 
12 "ORSTUA” 


13 AVIEN 

14 BEEP 
-15 STOP 

16 END 


Denr Richard, See 
-sore bugs in the box? Is CL actually BCL & STO ? 


When lowering the curtain to view prucresa registers 
as deta, you expect to_see the first dıgit of the 
first byte altered to a "1" because of the nomaliz- 
etion process on recalled numbers. (See Pill Kickes 
foundamental research V6NEP2La+b). zut it is not only 
that you see that digit changed, the digit actualy 
has become changed to a "1" in the register itself 

by the RCL. 

The zoutir.e UN in the following exauple äoesn't mean 
anything, it'e Just 28 bytes (4 registers) to dezon- 
strate the effect. It is to be loaded or: top of nemo- 
ry. Routine CR is the curtain raiser (Keith Jarelt in 
VTN4P24). 


1.Byte (-k, CR, Roo, k, CR) — 1.Byte 
= 2 Anz 2 


2155| 
x(y| x»; x# 
3|4|% . 
S5+ Ein a 
48 | #6 52 2 


If you won't believe the RCL is the evil-dcer, 
simoly ekin tke RCL and %ry ths exeupie ugcung vne 
curtsin raiser works ok. So now I must conclude: 
Because the first digit (the sign digit) is other 
then 0 or 1 the recalled nunter gets rormalized (in 
the exgnple here becomes a 1) and stored back Into 
the register it was called from. So, RÜL tehaves 
like RCL & normalize & STO. 


The hex-codes in the above exemple car easily be veri- 
filed by adding DECODE (s. Wickes ir ViR2P35-36) alter 
the curtain has been restored. The folloning sinple 
routine RR does it for you. Of course, it needs CR 
and DECODE and a SIZE greater than 5 for DECODE and 
UN at TOM (top of nenory). 


The END-staiement (CB 03 09) links to the next GIOHIL- 
statement up in memory (see Charles Cinse in VIK3P9): 
C - Global-Stateu»nt, 

C8 03 - distance to next GIOBAL up in zenory, calcula- 
ted as Hax(8)-Bin(1000) and tlıe first 3 bits 
eiva Bin(10o0)=Dec(4) give 4 byten to the dis- 
tance; Hex(o3)-Dec(3) add 3 rerinters 10 that. 
distance, totalling up to 25 bytes. 

09 - tbe program has bean PACXED. 

The addressed GLOZAL-statement 25 bytes up from the 

location of the END-statement ir - in tue exanple here- 

the LBL UN natatenent, Co 00 linking to TOM. 


F} the alphe-indicntor gives room for one byte mcre 
than needed for the alphas U and N. Tha byte after 
F5 is the pluce where a possible key-assignnent 
would de stored in wodified reverse matrix location 
(e0e Wickea in V6N8P28). Hex(00) inlicates no 


assigraunt to a user key: ha:. made for UN. 


ce 1 
LEL’ED Thanks to Wickes PUC-2 simulator (see V7N3FT) we 
ERn 2» aytzs are able to store any code in (almost) any rerister. 
What we can't do, sıntil now, is to see the code ol 
. any desired register. The byte-junper (Wickes in 
Al+-LEL "RR” V7N4P26) helps a bit, tut ycu still can't see a 
s2 STN Tr Frogram-rerieter without ehifting the code by ir- 
a3 ZEOR "CR" sertion of the "Jjump-number-code" and so destroying 
a3 RCL 49 the program itself, equivalently to the method des- 
a5 VIEH * eribed here by using RCL to see a rrogran regieter. 
eE X<>Y Don-t the grand-nasters of the Synthetic Codes see 
87 CHS 8 way out? 
eaRB xXEN “CR” Ha ingt h 
ES Sen See Ppy programming Gerhard Goder (2105) 
ODE” s 5 
18 EHD Kuuch“ (Wapt-Gu we) = mar 14pc. 
= Ar Foot 
KEQ "ER* 
.,” 
18,83/F3/08/55/ 48740 
2. GEPH. GODER „105 
YEO "RR° INST. F. NED. INFORMATIK | 
“BCBEFG* HUEFFERSTR. 75 aa | 
HOAZUABV RR EErT 4400 HUENSTER, BERINT 
-7, BEER -- a0, ‘ 
yEg "PR" a a a nn a a main 
"VERSIU: Di Brief wird PPC Mitglied tändli, h ein 
1752753754755 eser Brief w mir gliedern vers ch sein, 
18/765! Dennoch: Wer kann Gerhard helfen 7? 
-4, Oliver 
vo .2. ' 
“Efahes” j 


16/76/8884 1903789 
PP EIEI TFT TPPIIPTTITIIPPIIPITIPTIPIPTPEETPIIT: 


WAS IST DAS ? PPC 7 


Was der PPC den sei - eine Frage, die mir oft gestellt wurde. Nun- es ist der 

größte Taschenrechnerclub der Welt für HP Rechner und hat gegenwärtig 2200 Mitglieder 
(nicht 5500 wie irrtümlich von mir letzten Monat behauptet). Es sind nicht nur 

echte HP-Profis dabei, die sich in Eigenarbeit Interfaces gebaut haben (1) und 

diese bald (?) kommerziell verkaufen wollen, sondern auch "wilde" Programmierer, die 
die gesammte synthetische Programmierung erst entdeckt haben. "Echte" Programme 

sind weniger zu finden. Die Clubzeitschrift erscheint monatlich. Der Beitrag wurde 
vor kurzem erhöht und dürfte jetzt bei 35 bis 4o US & liegen. Wer einmal ein PPC- 
Journal in die Finger bekan, weiß, daß es praktisch unmöglich ist, ee in unserem 
Club auf dem Gebiet der aynthetischen Programmierung soweit zu bringen, wie der 

PPC, geschweige denn, diesen zu überholen, Es sind halt Profis. Hunderte. 

Deshalb möchte ich das Kapitel der synthetischen Programmierung in unserem Club 
nicht weiter ausdehnen. Wer sich für diese letztlich reinen Spielereien interessiert, 
der möge sich an Richard Nelson, Editor PPC Journal, 2541 West Camden Place, Santa 
Ana, California 92704, USA wenden und (auf Englisch !) um ein "Special Issue" bitten. 
Der Anforderung sollten zwei internationale Antwortscheine (bei jedem Postam?) bei- 
liegen. Ein kostenloses Probeexemplar kommt dann per Luftpost mit weiteren Einzel- 
heiten. 

Ich sage dies mit reinem Gewissen, denn unseren Club werde ich damit sicher nicht 
schädigen. Wir wollen nicht den Übersetzer des PPC spielen, dafür gibt es schon 
andere, Wir wollen viel mehr eigene Leistungen vollbringen und zu den synthetischen 
"Sachen" im PPCJ höchstens einige Ergänzungen liefern. Noch eine Warmung zum Schlußt 
Wer in den PPC eintreten will, der sollte viel, viel Zeit mitbringen; ee gibt viel 
zu verstehen. Einige hundert Seiten bisheriger Journale missen nachbestellt werden. 

- Er . % ’ f f 


gr 


Im Zeitz 2: Energieupareng ist jedermann an der Kenntnis 
der Leist aufnahme elektrischer Geräte interessiert. Bei 


Bl+LBL "ZAESTO“ 
25 


vorhandensein einer Stoppuhr und eines 
kurzen Programms bietet sioh der Zähler 
als Leistungsmesser an. 


en Vorgang der Messung: Es werden n Umdrehungen 
51 der Läuferscheibe des Zählers gestoppt. . 
Eypa« Dazu kann die, im Programm enthaltene 
5 n 0 Stoppuhr dienen. 
692 g+ Für Nichtelektriker: bei normalen Haus- 
89 Kü=* haltzählern ist C=1 zu 
18 xEO 60 de # getzen. Kp ist am Leistungs- 
I1eLBL A 66 ARCL K schild des Zählers in U/kWh 
t2 CF 22 67 AYIEN vermerkt. 
13 17:% 68 RTN Ka und cos dient nur zur 
14 PROMPT GILEL 88 Ermittlung der Blindleistung 
15 FO 2 76 STO 90 bei Industrieanlagen. 
16 XEQ B zı RCL IND 00 C = Wandlerkonstante 
i en Ta ARcL X Kp= Zählerkonstante Wirk- 
19 FIX 2 5 sro 10 " arbeit k#h/U 
er En Kq= Zählerkonstante Blind- 
21 PROMPT TEeLBL 8 arbeit in kVArh/U 
22eLBL € TER T = Zeit für N Umdrehungen 
23 "P=" 78 ‚21102 Programmstart: XEQ "ZAESTO" 
24 AVIEN 79 FR 88 Konstanten nach Aufruf ein- 
25 Rtt 91 9 st0 8 geben.Bei 'T=?' Zeit einge- 
26 XEQ 03 si ra 88 ben, wenn diese mit getrenn- 
2? STO 03 zit ter Uhr ermittelt wurde. 
28 RCL 64 83 ENTER? Ansonst nur R/S drücken. Es 
nn on a ne 
gramm r.(Siehe unten 
31 c10 01 86 "RS, OM Nach Eingabe von N zeigt deı 
en Rechner die weitere Tasten- 
= zuordnung an. 
4 a an Berechnung von P: c 
Bu Mr Ku Berechnung von Q: D 
1 > Berechnung des 
an nn ‚ Leistungfaktors: E 
RR Nach Berechnung von Q (P) ste 
39 KOY % PSE $ 
49 RIN 95 RTH der zuvor berechnete Wert im 
AIeLBL 81 SeeLBL J Y Register. So können mehrere 
2° cos. 97 SF @8 Leistungswerte mitZ2 + summiert 
43 PROMPT 98 -T-SOLL? werden. 
44 CT0 A 99 PROMPT Stoppuhr: : IBL: B 
A5eLBL E 189 7 Start mit R/S 
46 RCL 84 101 ENTER? Stopp mit ON 
ar rel 93 182 ENTER? Nach Wiedereinschalten des 
4R-P 183 1 Rechners wird die Zeit kurz 
49 KOY 184 u angezeigt und es erfolgt Rück- 
a 5 ! sprung ins Haurtprogramn. 
52 ARCL X 187 CLA Justieren der “.toppuhr: 
53 AYIEN 108 ARCL X Zeit stoppen (ca 200sek), 
54 RTH 109 °ER° ar richtige er a 
55 CT0 A 118 PROMPT R/S, Fehler ın%, R/S 
S6+LBL 83 It RDN Vorgang wiederholen, "Wenn 
57 RL Y 112 517 8 Zeit stimmt Jen Wert im ROO 
zBxoY 113 GT0 B bei Programmschritt 78 fest- 
59, 114 END halten.Uhrenrrosramm imner 
60 Rt LBL"ZRESTO an 1.Stelle im Speicher ein- 
61 / END 237 BYTES geben und packen! 


62 3680 


‚BALLO HP-A1LC BESITZER 


Vielleicht störte Sie auch schon die Tatsache , dass Ihr 4I o mit Verbindung 
des Printers eigentlich nur drei Speichernodule fassen kann.Um dies zu "be= 
heben",habe ich folgenden Umbau unternommen.Ich hatte nach diesen Zingriff 

noch keine a n_ oder eventuelle Pannen. 


Fig.I 

3} 
Sie können Ihre Modulhülle "aufbrachen” indem Sie die Plastikkanten rechts 
oder links in die Pfeilrichtung (A B)auseinanderreissen. (Wenn möglich nur 
mit den Fingern versuchen,nioht mit eimen Gegenstand aufbreohen).Eine Seite 
wird sich höchstwahrscheinlich lösen,danıch können Sie die anders Seite ab« 
hebsn.Sie werden in gleicher Weise mit den anderen Modulen verfahren.Es kann 
vorkomnen,dass Sie ein oder zwei Module nicht gebffnet bekommen,ohne die Hülle 
zu serstören.Mit einer kleinen Säge können Sie dann diese Mod. längsseits auf- 
schneiden. Zwei ganze hLüllen müssen Sie auf jeden Fall behalten. 


Fig.lI GE] Vorderseite Rlokseite 


w nach schneiden oder sägen Sie die Kontakte von I bis I2 mit einen feinen 
Instrament durch.Sie entfernen denn anhand eines Lötkolbens die Metallstück«- 
chen von den Lötstellen I - I2. (einige Lötstellen werden schon abgebrochen 


sein,dies schadet nichts.) ACHTUNG!Nur zwei Module so behandeln, 
..j“ 12,.anzulötender 


Bel Kontakt (c) 12.Lötstelle 
Rückseite 
Steckkontakte 
= (C)Kontakte die Sie 
bei zwsi Mod. durch 
I.anzulötender trennen. 
EEnEaN 1.Lötstelle 
Dann werden Sie die losgeschnittenen Mod. an die noch ganzen Module anlöten, 
Beachten Sie folgendes Schema und die folgenie Tubelle.. 
M AM EM = Baisimodul auf das das AM = aufzulötende Modul aufe 
I I gesetzt wird.Verlöten Sie die numerierten Lötstellen 
3 3 von EM mit denen von AM. 
5 5 
7 7 
9 9 
I I 
3, 2 
4 4 
6 6 
8 8 
Io Io 
2 2 


Waschen Sie dann das eventuell vorhandene Lötfett mit Seife und einer feinen 
Birste ab,trocknen Sie das MODUL und biegen Sie die neus Platte auf die alte. 
Kontrollieren Sie ob keine Drähte sich zufällig berlhren.Setzen Sie die Plätt= 
chen in das Modulgebäuse,ohne dieses wieder zusemmensukleben. 


Dann sety. _ ‘ie die avei neusn Nödulgehliuse in PORT I und PORT II. Ei 
Probieren S lbeti BA SIZE 000 , dann PRON „Erscheint in der Anzeige 
nicht 00 REG 919 ‚eo wechseln Sie dis beiden Kammern,und Sie wiederholen 
die gleiche Tastenfolge. Im Prinzip mlisste es klappen.Sie haben nun 
noch PORT 3 und PORT 4 frei,um eventuell den Printer und ein vorprogram 
aiertes Modul einsufligen, Viel Spassill 


P.S: Falls Sohwierjgkeitan auftreten,eo können Sie mich schriftlich >der 
telefonisch (nach I9— ) erreichen,um das Problem zu lösen, 


weber Norbert Tels 444747 
147,Vai Ste. Croix 
LUXEMBOURG 

Tschüss 


Sanls) 


ACHTUNG I 


Wer sich nicht traut, obigen Umbau selbst vorzunehmen, kann auch zwei Module 
(per Wertbrief!l) an Morbert schicken. Er hat sich bereit erklärt, diese für 
Mitglieder gegen eine Gebühr von 50,— IM umzubauen. In diesen 59,v- IM ist nicht 
mur Rückporto, sondern auch eine "Versicherung" gegen fehlgeechlagenen "Umbauver- 
such" enthalten. Der Besitzer der umzubauenden Module nimmt also kein Risiko auf 
eich. 

Damit wird auch "Anti-Elektronikern” ermöglicht, vier Memory Module, d.h, zwei 
Double Density Module (DDM), wie die umgebauten Module genannt werden, zusammen 
mit Kartenleser und Drucker .,oder ROM'Ys gleichzeitig zu betreiben, 


Am zu zu MEZ GC MED Sur U DAR GE GE U FE a HERE A GE SH U ECG CHE TEGERNSEE Tr: 


Lieber Oliver | 


Probier mal folgendes Programm. Du kannst den Alpha Text in Zeile 2 beliebig 
ändern. Übrigens: Drücke mal während des Programmablaufs irgenmleine Taste, außer 


OR und R/S. Beste Grüße Tachies 
Michel Majerus und 
Norbert Weber 

LBL A 

"SCROLLING" 


Programmvergütung_?__NEIN___-- __Beitragevergütung ?_ JA (einfach supe 


Schluß - Aus und Vorbei mit der Programmvergütung. Ke'ne kostenlose Programme meh 
für eingesandte. Ich habe die Programbibliothek aufgelöst, nahezu alle Mitgliede: 
stimmten mir zu. Aber was statt dessen 7 Um den Anreiz, Beiträge zu unserer Club- 
zeitechrift(chen) zu schreiben®werden wir jeden Oktober (ab 1981) eine Wahl der b- 
ten Artikel durchführen, Nun will ich hier keine großartigen Versprechungen leist 
was die Preise anbetrifft, aber soviel sei gesagt: 


1. Preis 1_Modul für den HP-41C nach freier Wahl 
Was sonst noch alles dazukommt, hängt ganz von der derzeitigen Finanzlage ad. 
Es wird sich aber sehen lassen können [1 Oliver 


zu eteiger 


RE NRRESTEETEE, 


2 zwgn Fr ER EIN En r r 2 
En IT lade agte die Firma 
8 29 ee EEE OO HEWLETT-PACKAnen Schritt zu 
® BER ER B B ONBERTE . 

LE BE EEE ae 2 & = %# den Personal Computer. Der '85 
ni $ r Pr H $ 4 ist wieder eines dieser viel- 

8 R 760 0 HR 0 1 gerühmten und bewunderten Mei- 
® or REBry EURER 


sterwerke der amerikanischen 


Weltmarke geworden. 


Ich hatte im Sommer dieses Jahres die Gelegenheit, den 8Ser zwei 


Tage lang zu testen. Hier mein Bericht über 
DER BRUDER DES A4lers 


Als ich den stabilen Transportkoffer öffnete, errinnerte mich dieses 
Gerät, das da zum Vorschein kam, zuerst an meine HERMES-Schreibmasch- 
ine. £s sah nähmlich ebenso technisch perfekt aus. Doch da waren ein- 
ige kleine, doch sehr frappante Unterschiede: Meins Schreibmaschine 
hat zum Beispiel keinen Bildschirm. 
Ohne lange die recht umfangreiche 
Bedienungsanleitung zu befragen, griff 
ich zum Netzkabel und schloss das 
Gerät an. Und siehe da: schon nach 
einigen Momenten war das System be- 
reit. Es konnte also sofort los ge- 
ben! 


Ich steckte die beiliegende Demo- 


Cassette in den Tape Drive und so- 
gleich. surrte der fast lautlose Thermodrucker los und zeichnets ein 
Selbstbildnis.Damit aber noch nicht genug: Hypothekenzins per Graphik, 
dasselbe in tabelarischer Form und der ganze Zeichensatz folgen. Als 
Höhepunkt spielt der eingebaute Tongenerator noch Mozart! 

Soweit, sogut. Dcu.h dıeses etwa Sfr. 7'200.-- (ca.) teure Gerät iat 
natürlich kein Spielcomputer. Im HP-B5A (so die richtige Bezeichnung), 
sino alle guten Eigenschaften der heutigen Personal Computer soweit 
möglich vereinigt. Hier nun einige technische Daten: 

Benutzerspeicher (Standard) ....-:22sccmnenenenennn. 16 K Byte 
Rechenbereich ....csenseneenenenene +4 9. E-ll * +/- 107499 
Gewicht. ei ee ee. 3800. Kg 
Ausführungszeit (math. Funktionen/ ß).. min. (ABS) ... 0.83 MS 

(MS = Millisekunden) max. (SEC) .. 51.72 MS 

Es besteht ausserdem die Möglichkeit der Speichererweiterung um wei- 


tere 16 K Byte (HP-82903A). 


= Druckeg .' 
Druckmethode 
Papierbreite 
Druckgeschwindigkeit 
Graphische Auflösung 


- Bildschirm 
Bildschirngrösse 
Kapezität 


Matrix 


- Tape Drive 
Kapazität 
L/S-Geschwindigkeit 
Zugriffszeit (9) 
Bandlänge 


beweglicher Thermodruckkopf 
108 mm " 
2 Zeilen pro Sekunde 

2.63 Punkte/mm 


127 mm Diagonale 
16 x 32 Zeichen oder 192 x 256 .Punkte 
5 x T Punkte 


210 K (Daten) oder 195 K (Programme) 
254 mm/sec 

9,3 Sekunden 

43 Meter 


Das Programmieren auf dem 85er macht richtig Spass. Die Sprache des 
HP-B5A ist ein erweitertes BASIC, das alle Anweisungen des Stendard 
ANSI-BASIC enthält. Die Schreibmaschinentastatur wird durch ein nume- 
risches Taestenfeld sowie Steuer-, Editer- und acht Sonderfunktions- 


tasten ergänzt. Die Belegung der Sönderfunktionstasten ist vom Be- 


nutzer frei definierbar. Mit Hilfe dieser Tasten sind Programmver- 


.zweigungen während des Programmablaufa möglich. 


Beim eigendlichen Programmieren wird jede Programmzeile, die mit dem 


Begriff "Line End” ebgeschlossen werden, auf den Syntax hin geprüft, 


so dass Tippfehler fast ausgeschlossen sind. 


Hier nun noch ein Druckbeispiel: 


f 
u y 


Hier beweist der 85er seine unwehrscneinliche Genauigkeit und Präzition 


| 


Fragen bitte an HP richten. 


Guido StuJ!er 


Niels Nöhären Norderste@@f 18.10.1980 
Kielort 16 

2000 Norderstedt 

Pı (040) 524 28 88 


Herrn 

Oliver Rietschel 
Hewlett-Packard Anwender-Club 
Postfach 373 


2420 Eutin 


Liebe Ciubfreundel 


Das Programm Bruchrechnung von Clemens Mirgel (vergl. prisma 
25/9-80) hat mich richtig begeistert. Ich habe es gleich in 
meine Programmsammlung aufgenommen. Allerdings stellte ich 
fest, daß sich das Programm an einigen Stellen verbessern 
läßt. Ich stelle Euch hier eine optimierte Version vor, Die 
wesentlichen Veränderungen befinden sich in den Programmteilen 
sES=, "KGV" und "Kr, 


Weiterhin möchte ich Euch mein Programm "Lottozahlen" vorstellen, 
Es liefert in einem Durchgang Je 6 verschiedene Zahlen zwischen 

1 und 49. Zuerst wird eine Zahl nach der anderen erzeugt, 

auf Null und Gieichheit überprüft und abgespeichert. Anschließend 
wird elne nach der anderen angezeigt. 


Das Programn wird mit XEQ "L" gestartet, Mit der Anzeige 
"QUELLZAHL ?" fragt der Rechner nach einer Ausgangszahl, 

die zwischen ß und 1 liegen sollte. Mit TONE ß wird die erste 
Zahl angekündigt. Mit TONE 9 macht der Rechner auf die 6. 
Zahl aufmerksam. Für jede weitere Zahlenreihe muß die Taste A 
gedrückt werden, 


Außerdem stelle ich mein Kalenderprogramm vor, Es beruht 
zwar auf dem Kalenderprogranm der Standardsammlung, ist aber 
vcoa mir in einigen Punkten verändert worden. Es arbeitet 
korrekt im gesamten Bereich des Gregorianischen Kalenders 
und überprüft jedes eingegebene Datum auf seine Legalität. 


Im Grunde erfüllt das Programm den gleichen Zweck wie das 
Btandardprogramm, Es werden aber nur 4 Register zur Zuwischen- 
speicherung benötigt, alles andere spielt sich ausschließlich 
im Stack ab. 


Alle notwendigen Angaben mlissen gleich eingegeben werden, 
bevor das Programm gestartet wird. Also beispielsweise Datum 
A, ENTER, Datum B, XEQ "R" zur Berechnung der Taygssarzahl 
zwischen 2 Daten. Datum A, ENTER, Anzahl der Tage, XEQ "N" 
zur Ermittlung eines neuen Datums und schließlich: Datum, 
XEQ "Q" für den entsprochenden Wochentag. 


Wird das Datum 29.02.1900 eingegeben, ein Datum, das es netcat 
gab, weil das Jahr 1900 kein Schaltjahr war, reagiert der 
Rechner mit der Anzeige "DATUMSFEHLER". Zur Erinnerung steht 
im X-Register noch einmal das unmögliche Datum, 


Ich habe das Programm so ausgelegt, daß die bei uns tÜblichz 
Datumsform DD,MMYYYY verwondet werden muß, 


Für diesmal möchte, ich schließen. Es grüßt Euch und wünschr 
Happy Programming 


Buer 


Anlageı 3 Programmlistings 


Programm Bruchrechnung (optimiert): 


1 .LBL BR 59 RCL gu 

2 FIX d 60 STx gi 

3 CF 29 61 RCL #2 

ug 62 RCL 95 

.5 GANZZAHL 1? 63 x 

6 PROMPT 64 STO 98 

7ısmw ds 65 GTO 2 

8 "ZAEHLER 17° 66 LBL / 

9 PROMPT 67 RCL 85 

10 sTo gi 68 STx gi 

11 "NENNER 1?" 69 RCL 2 

12 PRONPT 70 RCL gu 

13 sTo g2 7iıx 

14 LBL A 72 STO 5 

15 RCL 73 GTO 92 i 
wie 7h LBL EB Programm Bruchrechnung 
1 ST gi {r sto #4 

+ eN 

9 77 RCL gi ee 
20 "GANZZAHL 27° 78 RCL 8 119 sT/ gı 
21 PROMPT 79 xY? 120 ST/ $8 
22 sto 9 80 RTN 121 RN 
23 "ZARHLER 27" 81 / 122 LBL AS 
24 PROMPT 82 INT 123 RCL 2 
25 STo gu 83 STO dp 12% RCL $ 
26 "NENNER 27" 8 RCL gi 2 Kar 
27 PROMPT 85 RCL 8 IB an #8 
28 STo #5 86 MOD 127 RCL $2 
29 RCL 93 87 STO 1 158 . 
30 x 88 RTN 
31 ST+ [23 89 LBL ANZ er Ber Ga , 
32 *°-ıx/ so" 13, RCL $ i 
33 PROMPT 91 ARCL AB 12 2 
34 LBL d2 2 "r " 133 STx du 
35 XEQ EB 93 ARCL 91 134 RCL (u 
36 xEQ K gu 4 /r 135 END 
37 RCL 1 95 ARCL $8 

38 X=$? 96 AVIEW 

39 6T0 1.) 97 STOP 
4O XEQ ANZ 98 GTO dh 
41 LBL 3 99 LBL GGT 
42" 100 LBL #5 

43 ARCL de 101 MOD 
Ah AVIEW 102 LASTX 

4S STOP 103 X<Y 

46 LBL gu 104 x#4? 

47 RCL 8 105 GTO 5 

48 STo 2 106 RDN 

49 GTO gı 107 RTN 

50 LBL + 108 LBL KGV 

5ı XEQ AS 109 STO 2 

62 ST+ 91 110 XoY 

su LBL - 112 XEQ GGT 

55 XEQ AS 113 / ° 

6 ST- g1 114 RTN 

s7 cro g2 115 LBLK 


58 LBL x 116 RCL 1 


Programs ® \gahlengenerator 


vsosau Zune 
L 
- 
3 
a3 
a 


Programmlisting Kalenderberchnung 


LBL U, STO Bu, XEQ Y, XoY, X=ß?, GTO W, CIX, 1, XcıY, Xzß?, 
GTO W, 12, X<Y?, GTO W, CLX, 1, +, RCL Z, 1 Ek, /, +, 1 E2, 
[» +, XEQV, STO 95, RCL Ah, XEQ V, ENTER, Xc<> 5, XuY?, 
GTO W, XcıY, +, CLST, RCL gu, LASIX, RTN, 


LBL W, CLST, RCL @%, FIX 6, "DATUMSFEHLER", PROMPT, 


LBL Y, INT, ST- L, LASTX, 1 E2, x, INT, ST- L, LASTX, 1 E4, 
x, XoOY, RDN, XvY, Rf, RTN, 

LBL V, XEQY, 1, +, 1/X, 9,7, ST+ Y, Xcv L, XoY, CHS, XEQ O0, 
39,6, x, INT, +, XoY, 1 E2, /, INT, 7, ST- Y, cıx, 9,75, 
STxı Y, Xcr L, XoY, INT, ST- 2, CIX, 36525, x, INT, +, RTN, 


LBL O0, INT, ST+ T, XvY, INT, CLX, 12, STx Y, Xs> L, X<ıY, 
-, RTN, i 


LBL N, STO 1, RDN, XEQ U, RCL $1, +, GTO P, 


LBL R, STO PB, X«rY, XEQ U, Xcr dB, XEQ U, RCL dß, -, INT, 
CLST, FIX 2, LASTX, RTN, 

LBL P, ENTER, ENTER, ENTER, 365,25, ST/ Y, XoY, 1 E2, /ı 
INT, 7, -, 9,75, x, INT, XY, RDN, +, Rf), ENTER, ENTER, 

/, 122,1, x, ST- Z, CLX, +, ST/ Y, Xs»Y, INT, STx Y, RDN? 
INT, -, Rf, X<>Y, ENTER, ENTER, 939,6, ST/ X, X<+Y,'INT, 
STx Y, RDN, INT, -, Rf, INT, 1%, ST/ Y, X<> L, X<->Y, XEQ 0, 
K<>Y, 1, X<>T, %, -, -, ENTER, INT, ST- Y, 1 E2, STx z, 
FIX $, CF 29, CLA, ARCL Z, "rd", ARCLY, "r=", ARCLT, /, 
+, Xc>I, 1 E6, /, +, FIX 6, SF 29, AVIEW, RTN, 


LBL Q, XEQ U, 7, MOD, XEQ IND X, CLST, RCL @4, FIX 6, AVIEW, 


’ 
LBL dB, "SONNTAG", RTN, 
LBL 1, "MONTAG", RTN, 
LBL #2, "DIENSTAG", RTN, 
LBL 93, "MITTWOCH", RTN, 
LBL dh, "DONNERSTAG", RTN, 
LBL @5, "FREITAG", RTN, 


LRPL 6, "SAMSTAG", END. 


Beispiele zur Verwendung des Kalenderprogramms. 


1.) Wochentag 


Eingabeı 29,92199d Programmstartı XEQ "Q" Rusultatı Anzei- 
got "DATUMSFEHLER", X-Register: 29,9219dP. 


2.) Wochentag 


Eingabe: 28,219, Programmstart:s XEQ "Q", Resultatı Anzei- 
ge: "MITTWOCH", X-Register: 28,21994/ 


3.) Anzahl von Tagen zwischen zwei Daten, 


Eingabe: 39,#21989, Taste: ENTER, Diepieyı 39,92 (bei FIX 2) 
Eingabe: 39,d9198, Programmstartı XEQ "R", Displayı 
"DATUMSFEHLER", X-Register: 38,#21989. 


4.) Anzahl von Tagen zwischen zwei Daten, 


Eingabes 29,421989, Tasteı ENTER, Displayı 29,92, 
Eingabe: 39,@91989, Programmstartsı XEQ "R", Displayı 
2ıu,d# (Tage). 


5.) Berechnung eines zukünftigen Datums, 


Eingabe: 19,1#1989 (Datum), Tasteı ENTER, Displayı 19,1, 
Eingabe: S5@9 TTage), Programmstartı XEQ "N*, 
Displayı "3-3-1982", X-Register: 3,9931982. 


6.) Berechnung eines vergangenen Datums. . 


Eingabes 19,19198@(Datum), Tasteı ENTER, Displayı 19,19, 
Eingabe: m SP, Tasteı CHS, Dieplayı -5IA,Ad, 
Programstartı XEQ "N", Dieplayı "7-6-1979", X-Register: 
7.961979. 


MAGTSCHE 
ZAHLEN 

COPYRICHT BY R.KLAUC AND 
HP-ANM.CLUB. O.RIETSCHEL 


Size: 053 

START: XEQ MAGIC 
EINCABE - UHRZEITT ,SSMAHN) 
OBER ZUFALLSZAHL CHI. 
SYSTEN-KOKFIGURATION: 

1 NEHORY MORLLE 
PRINTER 


81+LBL “MAG 
IC” 

82 FIX © 

03 CF 29 

84 SF 12 

85 ADV 

86 "UHRZEIT 
‚SsmH?“ 

87 PROMPT 
88 STO 08 
89 1.83 

186 STO 51 
11 "MAGISCH 


12 PRA 
n za 


21+LBL 98 
22 RCL 68 
23 9821 

24 * 

25 .211327 
26 + 

27 FRC 

28 STO 088 


29 


46 


18 


« 

INT 
x=0? 
GTO 86 
STO IND 


ARCL % 
“br U} 
ISG 52 
sF 86 
FC?C 08 
xEQ 81 
ISG S1 
GTO 08 
ADY 
SUCHEN 
IHRE” 
PRA 
"SCHLUES 


SELZAHL 


47 
ER” 
48 
49 
LE.” 
se 
Si 


s2 


-FX AN D 


PRA 
"“Y. STEL 


PRA 
“HENN SI 


"FFERTIG 


SIND“ 


53 
34 
N SI 
55 
56 


Po DEE «1 BEE 


PRA 
"DRUECKE 
E ® 
"RUN. 
PRA 


58 ASHF 

59 RSHF 

88 PROMPT 

61 ii 

s2 STO 51 

63+LBL 85 

64 RCL IND 


65 STO 52 
66 ST+ 51 
67 58 

68 RCL Si 
69 K<eY? 

78 GTO 85 
7i RCL 2 

72 ST- 51 
3 ” IHRE 
ZAHL ” 

74 "FIST WR 
HR-“ 

75 PRA 

76 ” SCHE 
INLICH 

77 -tDIE ” 
78 ARCL 52 
79 PRA 

se ” AN 


81 ARCL 51 
82 "Fr.STELL 
E” 

83 PRA 

894 STOP 
85+LBL 61 
86 PRA 

87 ISG 51 
88 GTO 82 
89 .END. 


QleLBL "NAGIC“ 

FIX& CF 29 SF 12 AD 
"WRZEIT „SAH?“ PRONPT 
sTo 69 1.85 STO SL 
"MAGISCHE" PR 

” ZRILEN" PRA RDY 
cr 12 


I7+LBL 82 
1.0 STOR * 


21eLBL 00 

RL GO 9821 * „211327 
* FRC STO. 08 10 * 
INT xX=8% GTO 88 

STo IND St ARLLK °+ 
16 52 SF 08 FC’C 88 
xEu 41 ISC 51 GTO 88 
AB SUCHEN SIE IHRE” 
PRA SCHLUESSELZAHL * 
"EX AM DER" PRA 

°T. STELLE." PRA 
"WENN SIE * 

"FFERTIG SIND" PRA 
"BRUECKEN SIE ° "FRUN. 
PRR ADV ASHF ASHF 
PROMPT 1 ST0 54 


63rLbL 85 

RCL IHD SI STO 52 
Ste 5ı 50 REL SI 
Kay? CO EI RL Z 
ST-S1 9 INNE ZRHL * 
"HIST WAHR-"  PRA 

®» SCHEINLICH * 
"Die * ARCL S2 PRA 
“a Ra si 
T.SKELLE PAR STR 


LIU ee || 
an 1SC 3I 610 02 
‚END. 


LBL'RAGIC 
«END. 336 BYTES 


BEISPIEL: 
EINGRBE: »456789 
EIMERBE:: 258654 
MAGISCHE MAGISCHE 
ZAHLEN ZAHLEN 


SUCHEN SIE IHRE SUCHEN STE IHRE 
SCHLUESSELZAHL X AN BER SCHLUESSELZAHL X AN BER 
1. STELLE. Y, STELLE. 
WER SIE FERTIG SIND WENN SIE FERTIG SIND 
BRUECKEN SIE RUN. BRUECKEN SIE RUN. 

IRRE ZAHL 15T MAHR- IHRE ZUHL IST HAHR- 

SCHEINLICH DIE 4 SCHEINLICH DIE S 

ON 49. STELLE RH 47.STELLE 

Magische Zahlen 


Das Programs beruht auf einer Entdeckung des Phyeikere Martin 
D. Kruskal, Magier benutzen diese Entdeckung für Kartentricks. 


Unter Ihnen ist sie allgemein als Kruskals Prinzip bekannt. 


Spielablaufı 


Der Spieler stattet nun das Programm mit XEQ MAGIC und gibt 
die Uhraeit ( ‚SSMMHH ), oder eine Anfangszehl ( zwischen f 
und 1 ) ein, Der Reohner erzeugt dann 50 Zufallszahlen von 
1.0.9 . Der Spieler denkt sich eine Zahl, die Schlüsselzanhl 
zwischen 1 und 10, 
Angenommen der Spieler hat sich als Schlüsselrahl die 4 ausge- 
dacht. Die vierte Zahl des Rechnerausdrucks (a.0. 1.Beisp.) ist 
sine 3, die neue Sohlüeselzahl, Er zählt nun drei Zahlen weiter 
Diese Schlüsselzahl ist die 8. Nach diesem Prinzip sählt er 
alle 5o Zahlen durch, Die letzte Schlüsselzahl wird nicht zu 
Ende gezählt werden können, Diese, durch die zufallsabhiün- 
eige Zählweise erreichte Zahl und die Stelle, auf welcher sie 
steht, merkt sich der Spieler, : 
Nun ist der Rechne? wieder an der Reihe, Duroh Arilcken von RUN 
errät er wahrscheinlioh die richtige Zahl und die richtige Stel- 
le. Die Wahrsecheinlichkeit, daß der Rechner sie errät, liegt 
bei oa, 5/6, echwankt jedoch von Spiel zu Spiel. 


ROBERT KLAUC 


EINSER 
sOPYRIGHT BY R.KLAUC AND 
AP-ANW.CLUB, O.RIETSCHEL 


size: 885 
TART : XEQ 1 
ZINGABE: ANFANGSZAHL 


KEINE 


B1+LBL "1" 
82 FIX 8 
83 CF 29 
84 8 

05 STO @i 
86 STO 82 
B87+LBL 93 
88 1.9882 
89 STO 83 


18+LBL 84 


11 8 

12 STO 84 

13 CF 81 

14 CF 82 

ı5 SF IND 8 
3 

16*+LBL A 

17 RCL 88 

ı8 9821 

19 * 


28 .211327 
21 + 

22 FRC 

23 STO 88 
24 6 

25 * 

26 INT 

27 x=9? 
286 
29 “WURF: " 
38 ARCL X 
31 ST+ 84 
32 ı 

33 - 

34 xX=0? 

35 STO 84 
36 "HF E=" 
37 ARCL 84 
38 AVIEN 
39 X=9? 

48 STOP 

41 PSE 


45 RCL IND 


46 CLA 

47 ARCL *% 

48 "> PUNKT 
% E" 

49 AVIEN 

58 PSE 

51 181 

52 xX<=Y?7? 

53 STOP 


LBL*1 
END 112 BYTES 
‚END. 87 BYTES 


Bi+LBL "1" 
FIX 0 CF 29 8 STO 8 
STO 82 


B7+LBL 83 
1.8082 STO 83 


id+LBL 84 
8 Sto 94 CF el CF 82 
SF IND 83 


I6+LBL A 
RCL 08 9821 = „211327 
* FRC STOB8 6 * 
INT %=8% 6 "HURF: * 
ARCLK STr04 1 - 
x=8? STO 84 "r £=* 
ARCL 84 AYIEN Xs8? 
STOP PSE 


42+LBL B 
RCL 04 ST+ IND 83 
RCL IND 83 CLA ARCL X 
"+ PUNKTE" AYIEW PSE 
101 x=Y? STOP ISG 83 
CTo 04 GTO 03 END 


Dies ist ein Spielprogramm für 2 
Spieler. Die Würfelwerte werden 
summiert und gutgeschrieben, Jeder 
Spieler kann sooft würfeln wie er 
will. Wird jedoch eine Eins gewür- 
felt, so ist die Gutschrift ß und 
der nächste Spieler ist an der Rei- 
he, 

Sieger ist der Spieler, welcher zu- 
erst 101 Punkte erreicht. 


Begonnen wird das Spiel dadurch, daß 
in Register oo eine Anfangszahl ein- 
gegeben wird . Mit XEQ 1 wird das 
eigentliche Spiel begonnen. Es be- 
ginnt Spieler 1 sofort mit dem ersten 
Wurf. Der Spieler, der gerade wür- 
felt, wird durch die Flags 1 und 2 
symbolisiert. Angezeigt wird der 
Wurf und die Gesamtpunkte der jewei- 
ligen Runde. Will der Spieler weiter- 
würfeln, drückt er XEQ A, will er 
passen, drückt er XEQ B. Angezeigt 
wird dann die Gesamtpunktzahl des 
Spielers und der nächste Spieler be- 
ginnt automatisch zu würfeln. Ebenso, 
wenn ein Spieler eine Eina würfelt, 


Sobald ein Spieler 101 Punkte oder 
mehr erreicht hat, stoppt der Rechner 
und am Flag ( 1 od. 2) ist der Gewin- 
ner zu ersehen. Nun bleibt nur noch, 
Euch viel Spaß zu wünschen und zu 
hoffen, daß Du eine gute Strategie 
findest. 


ROBERT KLAUC 


ra Er HE EN An en iae BOE ar BE TE ae ne an al ae Seinen tn ann 


WFALLSTANL 
Vraumaırtdd 


WISCHEN 
0 UNDS 


iS Tor 


>“ 

m 

Sr 
NEIN 


BUTSCHRIFT 
ZÄHLEN 


MULTIFLOTTER 
PRDGRARN DIENT Zum 
PLATTEN WON BIS ZU 4 
FERKTIONEN SLEICHZEITIG. 
ES KUERNEN AUCH GROESSE- 
RE AUSoRUSKE DURCH NE- 
BENE SNANDERLEGEN VON 
FÜNXTIORSABSCHNITTER ER- 
STELLT KERDEN. 
COPTRIGHT BY R.KLRUC AND 
HP-AHM. CLUB, G.RIETSCHEL 
Size: 036 

START. KER MULTI 
KESTART: NEO NEW 
EINSASC ANZ. D. FUNKT., 
FUNKTICHSNRREN, ARENSCH, 
AtnSE, INKRERENT <BEI 
HEGHTIVER ZUAL WIE BEI 
PRIHTER STRANDARTFROGR. ). 
SYSTEN-KONFTCURÄTION 

I MEMORY MOSLLE 
PRINTER 


FR? UOMULTI” 


-MUL 

TI” 

82 FIX 6 

03 CF 29 

u4 4 

05 "ZAHL D. 
FIX»? 

86 PROMPT 

87 ABS 

88 xX>Y? 

89 GTO 


B8:+LEBL 


-MUL 
TI” 
18 1 ES 

11 7 

12 1 

13 + 

14 STO 88 
15 AON 


16+LBL 08 

17 “NAME Fr 

13 ARCL X 

19 "Fr ?r 

28 PROMPT 

21 ASTO IND 
* 

22 ISG x 

23 GTO 88 

24 AOFF 


25+LBL "NEU 


26 "Y MIN ? 


27 
28 
29 


308 
31 
32 
33 
34 


35 
36 
37 


PROMPT 
sto 085 
"r MAX ? 
PROMPT 
STO 86 
RCL 85 
x>V? 

GTO "NEN 


"AXIS ?- 
PROMPT 
sto 25 


38+LBL 14 


39 


48 
41 


"X MIN ? 


PROMPT 
sTo 87 
"x MAX 


2.) 


PROMPT 
STO 88 
RCL 87 
x>V? 

GTO 14 
"x INC ? 


PROMPT 


65+LBL 81 


66 
67 


68 
69 
76 
71 
72 
73 
74 
75 


76 
?7 


- PLOT 
Ei; ® 
ARCL IND 
10 


RCL IND 
% 


RECHR 
41 


78 
9 
88 
81 
82 
83 
84 
85 
86 
87 
88 
89 
98 
91 
92 
93 
94 


95 
96 
97 


98 

99 
i80 
181 
182 
183 
164 
105 
186 
197 
183 
109 
118 
ı11 
112 
113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 


ACCHR 
PRBUF 
ISG 108 
GTO 81 
FIX 1 

- YT: = 
ARCL 085 
-F TO ” 
ARCL 96 
PRA 

- %: [2 
ARCL 97 
-F TO 
ARCL 88 
PRA 

FIX 3 
"AXIS: 


ARCL 25 


129+LBL 02 


138 
131 
132 
133 


RCL 24 
STO 16 
RCL 98 
STO 18 


134+LBL 83 


135 


136 
137 
138 


139 
148 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 


151 
152 
153 
154 
155 
156 
157 
i58 


159 
168 
161 
162 
163 
164 


RCL IND 


sto 21 
RCL 15 
xEQ IND 


RCL 85 


RCL 23 
s 

RND 
x<8? 
280 

RCL 10 
18 

+ 

R>Y 
RCL IND 

Y 

1 E3 

+ 


+ 

RCL 18 

16 

+ 

R>Y 

STO IND 
Y 

ISG 18 

GTO 83 

RCL 88 

16.816 

+ 

sTo 21 


165+LBL 84 


166 
167 
168 
169 
170 


RCL 21 
sro 22 
1 


RCL 


171*LBL 85 


172 


173 
174 
175 


176 
177 
178 
179 


180 
181 
182 
183 
184 
165 


IND 
22 


RCL 


x<Y? 
R<DY 
sTo IND 
22 
RDN 
IsG 22 
CTO 05 
sTto 


Isc 21 
GTOo 94 
RCL 16 
FRC 
ı E3 
e 


186 STO Z2 248 RCL 15 291 RCL 97 


187 124 241 X<=Y? 292 - 
1988 X=Y? 242 GTO 82 292 x<>Y 
189 XEQ 11 243 FIX 4 294 7 
198 161 244 xXEQ 13 295 RTH 
191 RCL 16 245 BEEP 
192 x>Y? 246 " END OF . 
193 GTO 12 - E= E. “2 
194 SKPCOL 247 "FMULTIP 29B SKPLOL 
195 RCL 22 LOTTING” 299 127 
196 ACCHR 248 PRA 388 ACLCOL 
249 STOP 321 8 
197+LBL 89 392 ACCOL 
198 RCL 88 2590°LBL 18 393 ACCOL 
199 16.016 251 RCL 2i 384 ACCOL 
208 + 252 INT 385 ACCOL 
2981 STO 21 253 LASTX 386 ACCOL 
254 FRC 397 ACCOL 
202+LBL 86 255 1 E3 388 14£ 
293 RCL IND 256 * 389 SKFCOL 
21 257 %=Y? 316 ® 
284 FRC 258 RTN 311 ACCOL 
2085 ı E3 259 1 312 ACCOL 
206 " 268 ST+ Z 313 ACCOL 
297 STO 22 261 RCL IND 3134 ACCOL 
298 i24 _4 315 ACCOL 
2099 xX=\Y? 262 RCL IND 316 ACCOL 
219 xEQ 10 21 31? 127 
z2ı1 161 263 - 318 ALCOL 
212 RCL IND 264 7 319 PRBUF 
21 265 - 328 END 
213 INT 266 8 
214 x>Y? 267 X<=Y? 
215 GTO ı2 268 RTN 
216 RCLL2ZI LI LL  FT | nun 
2ı7 ı 269*+LBL 98 wi 
218 - 278 RCL 21 kr 
219 xX<>rY z7rı 1 UBLRATI 
228 RCL IND 272 - LBL'NEN 
Y 273 RCL IND Em 666 Erits 
221 INT R% ‚Di. & BYTts 
222 - 274 STO IND _----------- - 
223 ? ei 
224 FS?C 85 275 CTO 97 
225 CLX 
226 - 276+LBL 11 
227 2<9? 277 RCL 1? 
228 GTO 88 278 RCL 16 
229 SKPCOL 209.7 
238 RCL 22 288 ? E34 
231 ACCHR 281 - = 
282 0 2 
232+LEL 97 283 9<-Y? 2 
233 ISG 21 eB4 RTN E 
234 GTO 86 285 STO 16 = 
286 SF 85 a 
235+LBL 12 287 GTO 89 ’ 
236 PRBUF 
237 RCL 899 288+-LBL 15 
238 ST+ 15 289 ABS 


239 RCL 88 298 RCL 88 


BEISPIEL: 


PLOTOF: 11 . 
PLOT OF: Y2 (eo ö PLOTOF: YI ©) PLOT OF: YI 
PLOT: YI-Y (H + PLOTOF: Y2 (0 PLOT OF: Y2_ (») 
FLOT OF: FOUR (a) PLOT OF: I-Y2 (ce) PLOT OF: YI-Y2 
Y:-1:3 70 123 Y: 8,5 10 8,5 Y: 8,510 4,5 
&: 8,0 TO 6,3 X: 8,8 T0 3,3 x: 8,8. T0 3,3 
AXIS: 8,880 AXIS: 9.088 AXIS: 8,888 
STEPS OF 8,126 = STEPS OF 8,066 STEPS OF 0,066 
F a r + nz 

# + & + 

4 oe te + 

. ++ ei 8 + 
ı ++ + 

x + + | M , t ' 

. m EEE © 
. Ir + | DR ru 
" I++% i I 4r 
z I+ x | t % [ 

a I ı+r 8 | + je . 

ı It +« | tt | ‘ 

. Ki +8 t rrı 8 = 

. ’ + | +» x 
a ‘ * 1. + , 2) 

a + *+ | + + % 

. | er... E + 4 % 

. ri . + | | rs & 

r e | ‘ + N +. m 
. U l . + l + BE 
ı N . + | “ « 

L) NM . + | [5 + 2) 

. 1 8 + | ’ Es . 

er Su Br wer I ve ie D) 

u ler I 0 + * 

.r% ! | % ı 6 

. \ | + | + % 

+04: j Io + °* 

se|ie = I. | +8 
tele 5 s "a | “.: 

Pe vu er Sr “ Zen . 

+ 8 Il + s 4 E- : + 
Pe a : a En “+. 
er‘ I + . ‘ I * [} + 
 « I + . N) na ' {7 ® 
+ % 1 + r ® u % + 
+. I a {} ) % + 
+% I+ : ; % 4 : + 

+ ’ z i 0 | 8 + 

* ’ . % A, '® B. 

+ + x 0 E & EEE nee 

are ı ‘ I. % + 

“+ | . , l #2... 8: + 

..| . ‘ a RE u t 
er] . 0 DI au Ve 
..+| : , I 
* +| . f) a |+ a 
. + . % | 8 + 
.+ ’ e ’ 0 + 
+ . A Dee er 
“* . v.\+ 
+ 5 “| ERBEN? 
4 Fr + 


r 
END OF MULTIPLOTTING | END OF MULTIPLOTTING "END OF MULTIPLOTTING 


Setzen und ‚öscker allar Flags 


Das fPrograsa FlAS dient zum gezielten setzen und löschen einzelner 
Flags mit der Nı=ner 30 bis 55. Das Programm wird mit XEQ"FLAC" 
gestartet, wobei die Kunmer ses betreffenden Flags in Stack X steht. 
Ist dıe Zari negativ, wird das Flug gelöscht, andernfalls gesetzt. 
FLAG ist ala Ürterprogramm ausaznlegt, welohes jedoch die Speicher 
Roo tis Ao& benutzt. Es ist nun möglich zwei neue Indikatorflags 
(BAT und SEIFT) zu verwenden, sowie Flag 55 zu manipulieren. 

Un die Aumirkungen zu demonstrieren, sollten FLAG und die folgenden 


drei Progranae eirgezeben werden. 


B1l+LBL "2 B81+LBL -3- 
Al*eLBL "17 82 -55 02 8 
e2 18586 63 XEQ@ "FLA 83 STO d 
23 STa 9ı G- 84 1888 
B4+LBL Di 84 1998 85 STD 91 
85 LSE 61 25 STO 91 86*+LBL 91 
86 GTO O1 06*+LBL 1 ‚87 DSE 81 
8? TOHE 7 87 DSE 01 83 GTO 91 
88 END 88 CTOo 91 ‚09 18 
89 55 18 STO d 
18 XEQ@ -FLA 11 SF 26 
G- 12 TONE 7 
11 TONE 7 13 END 
12 END 


dei angeschlossenen und eingeschaltetem Drucker konnt man zu folgenden 
Laufzeiten: "1" 2,15 Min.; "2" 1,55 Min.ı "3" 1,39 Min. 

Nach Ablauf von "1" und “2” sleiben aile Flags unverändert. Bis auf 

5$ una 26 werden bei "3" Jedoch alle Flags gelöscht. Nan kann also 

alt CF 55 eine richt unerkebliche Geschwinäigkeitssteigerung erzielen. 
lustig ist auch 52 XZu”"PLa6". Jedoch sollte man FLAG vorher auf Karte 


sichern! 


änlf Mach 
lkorwaldsexstraie 3 


60990 Rüsseiszeia 


Ol*LEL "Fläm EO+LBL 83 
G“ 61 XEQ@ 808 
02 STO 008 62 SF 08 
63 ABS 63 RCL 4° 
04 24 &4 STO CL 
85 X>Y? 65 "Ir 
e6 SF IND Y 66 REL [ 
87 xX>Y? ; 67 CLARA 
08 RTH hi 68 STO L 
09 RDN u 69 ASTO 93 
18 56 f 78 cLA 
1i X<e=Y? 71 ARCL 82 
12 RTN 72 ARCL 03 
13 FC? 00 73 RCL L 121 RTN 
14 .1 ; 74 STO d ı22 .2 
15 FC? 98 | 75 RCL 98 123 xX<y? 
16 ST+ 808 76 INT 124 CF 08- 
17 RCL 08: - 77 x<9? f 125 RDN 
18 X<9? 78 SF 89 126 .1 \ 
19 xEQR 91 79 aBS 127 xX<Y? 
.28 SF 09 808 128 AOFF 
21 FC? 48 gı MOD 129 x<>rY 
22 .2 82 FC? 089 138 X<=Y? 
23 FC? 48 83 SF IND X 131 CF 88 
24 ST+ 08. 84 FS? 99 132 RTN 
25 RCL 88! 85 CF IND X 132+LBL 08 
26 xX<0? 86 RCL d 174 "Hr 
27 XEQ 092 87°’STO L[L 135 RCL N 
28 AON 88 ASTO 82 136 RCL L 
29 RCL d 89 CLA 137 cLa 
38 CLA 99 “une 138 STO L 
31 STO L 91 ARCL 02 139 ASTO 94 
32 "um" 92 ASTOo 82 140 CLA 
33 RCL EL 93 "“” 141 R<>YV 
34 RCL N 94 ARCL 092 142 STO C 
35 cLa 95 ASHF 143 ASTO 02 
36 ASTO 03 96 ASTO 82 144 cLnA 
37? STOo C 97 cLA 145 APTCL 01 
38 ASTO 81. 98 ARCL 91 146 ARCL 93 
39 X<>Y 99 ARCL 92 147 ASTO a1 
48 cLa 1898 ARCL 94 i48 CLa 
41 STOLC } 181 ASTO 92 149 ARCL 82 
42 RCL 98 182 ASHF 158 ASTO 03 
43 8 1837 ASTO 91 151 cıa 
44 7 194 CLA 152 ARCL 94 
45 GTO IND 195 werke 153 -kr*- 
x 196 ARCL 01 154 END 
46*+LBL 91° 187 ASTO 91 END 
47 .2 188 ”«” 273 BYTES 
48 ST- 098 189 ARCL 281 
493 RTN 118 ASHF 
S9+LBL 92 111 ASTOo al 
51 .4 ı112 cıa 
52 ST- 88 113 ARCL 82 
SZ RTN 114 ARCL 81 
S54+LEL 06 115 RCL CL 
55 xEQ 90 116 STO d 
S6*LBL 05 117 RCL 99 
5? XEQ@ 08 ı1e ABS 
S8+LBL 094 119 FRC 
59 xEQ 09 129 x%=9? 


Für den HF-41c werden Thermadrücker von versch. Herstellern angeboten. In 
Deutschland habe ich bisher nur den HP-82143A angetroffen, der von HP her- 
gestellt und vertrieben wird. Dooh soweit loch gehört und gelesen habe, darf 
lieser Drucker bisher als am geeignetssten angesehen werden. Daher hier ein 
TEST „der keinen Ansprüch auf Vollständigkeit und absolute Objektivi- 
tät erhebt: 


Eine der ersten Fragen richtet sich fast immer nach dem Preis. Er liegt für 
den HP-82143A derzeit bei fast 900,--DM. Damit ist der Drucker - wie bei 
fast allen kleineren Computersystemen -— die teuerste Einheit. Warum sich 
diese Ausgabe für den Anwender, der nioht nur ein zeitweiliges Spielzeug 
sucht, lohnt - oder auch nicht - sei im folgenden analysiert: 


Der Drucker vermittelt ein mechanisch stabilen Eindruck und tut sich durch 
klare Gliederung der Funktionstasten hervor. Während der viermonatigen Test- 
zeit stellte sich kein mechanischer Defekt ein ( auch kein sonstiger ), doch 
gab eirı seit Kauf vorhandener Wackelkontakt an der Ladebuohse Anlaß zum Är- 
gern. Außerdem fiel negativ auf, daß dem Drucker keine Schutztasche beiliegt. 
Selbst wenn der Drucker mur selten mobil gebraucht wird, so müßte eine 
Sohutztasche, wie sie auch dem HP-41C beiliegt, als Selbstverständlichkeit 
gelten, 

Es wird Thermopapier verwendet, was die bekannten Vorteile von Scharfen 
Sohriftbild und fehlendem Farbband bringt. Doch gleichzeitig muß darauf hin- 
gewiesen werden, daß Thermopapier - besonders blau druokendes - sehr leicht 
verbleicht und zudem nicht gerade billig ist. 

Im Zusammenhang mit seiner 7x9 Matrix weist der Drucker ein für Matrixdrucker 
schönes Schriftbild auf, da horizontal nebeneinanderliegende Punkte zu einem 
Strich verbunden werden ( genaugenommen also keine "Punkte", sondern "Quadrate"). 
Neben den 128 verschiedenen Zeichen, die zu den Standardzeichen des HP-82143A 
gehören ( 7x7 Matrix), läßt sich jedes andere durch eine 9x7 Matrix darstellba- 
re Zeichen erzeugen und abspeichern, wenngleich deutlich mehr Speicherplatz be- 
nötigt wird, 

Der Drucker verfügt über zahlreiche Druckfunktionen, die dem Anwender sehr viel- 
seitige Möglichkeiten eröffnen, sow&e ein 340 Zeiten langes Programm im Fest- 
speicher (ROM), das zum Plotten einer programmierten Funktion mit Skalierung 
dient. Eine leistungsfähigere Plottroutine erscheint parallel zu diesem Test. 
Mit ihr können bis zu vier Graphen gleichzeitig - auch in mehrfacher Papier- 
breite - geplottet werden. Den eingehenden Test aller einzelnen Funktionen 

zu veröffentlichen, würde sicherlich den Rahmen dieses "Kleinen Testberichte" 
sprengen, weshalb gleichzeitig mit diesem Test die Kurzanleitung des HP-82143A 
mit der freundlichen Genehmigung von Hewlett-Packard GmbH, Frankfurt/M. erscheint. 
Als Besonderheit ist aber noch ein bis zu max. 43 Zeiohen speichernder Druok- 
buffer (Zwischenspeicher) zu erwähnen. 

Unter Ninweis auf die sehr reichhaltigen Funktionen des HP-82143A, sowie dessen 
versch. Sohriftarten ( groß und klein ,„ breit und eng ) möchte ioh diesen Test- 
bericht mit einer tabellsriscohen Zusammenfassung beenden: 


HH nn nn nn 


- 27 2.T. erstklassige Druckfunktionen - Walze weder soft- noch hardwaremäßig 
- 3 versch. Druckermodi (MAN,TRACE,NORM) steuerbar 

- Druokbuffer mit max 43 Zeichen Papier verbleicht (allg. bei Termop.) 
- Plottprogramm im ROM - keine Schutztasche 

- schönes Schriftbild relativ teuer 

- 128 ASCII-Zeichen standardmäßig 

- eingebauter Akku 

- kleines Gehäuse 

- Gutes Bedienungshandbuch 

- bekannt guter HP-Service im Garantiefall 


Oliver 


Thermodrucker HP 82143A 
Kurzanleitung 


Wenn der Thermodrucker HP 8214 3A an den HP-A1C 
angeschlossen ist, werden dıa nachfolgenaen Opers- 
tionen innerhalb des Systems wirksam. Diese Opera- 
tionen können ebenso wie Programme, die diese Ope- 
rationen beinhalten, nur ausgeführt werden, während 
der Drucker angeschlossen und eingeschaltet ist. 
Mit 2 können Sie diese Funktionen wie auch 
die übrigen Funktionen angeschlossener Sy:terner- 
weiterungen auflisten. In den Schalterstallungen MAN 


Verzeichnis der Funktionen 
Akkumuliert ALPHA-Register im Druck- 
Buffer 


Akkumuliert Zeichen im Druck-Buffer. 
Speichen Sie die entsprechende Zahl 
11-127) in X und führen Sie [ACCHR ] aus. 
Akkumuliert Spalte im Druck-Buffer. Spei- 
chen Sie die Spelten-Druck-Zahl (0-127) 
in X und führen Sie aus. 
Akkumuliert ein mit In X gebilde- 
tes Sonderzeichen im Druck-Burffer. 
RCH Akkumuliert X-Register im Druck-Buffer. 
Rückt das Papier um eine Zeile vor und 
druckt den Bufferinhalt rechtsbündig aus, 
BiösPEQ Baut ein Sonderzeichen auf. Speichern Sie 
die Spaiten-Druck-Zahl (0-127) in X und 
führen Sie aus. Ist bis zu sieben- 
mal zu wiederholen. Ergebnis ist mit 
im Druck-Buffer zu akkumulieren 
oder in ein Register zu speichern. 
[ST] Listet Programmzeilen auf. Speichern Sie 
die entsprechende Zahl in X und führen Sie 
[tst_]eus. Nicht programmierbar. 


aA Druckt ALPHA-Register. 

Druckt Achsen aufgrund folgender Einga- 
bewerte: Ro = YMIN, Ro, = YMAX Ru =nnn, 
Ro = AXIS 

Druckt den Inhalt des Buffers linksbündig 
aus. 

Druckt Flags und weitere Status-Informatio- 
nen. 

[PRKEYS] 

(PRP) 


Druckt geänderte Tastanbelegungen. 
Listet das gewünschte Programm auf. Füh- 
ren Sie aus und tasten Sie den Namen 
ein. Wenn kein Name angegeben wird, wird 
das augenblickliche Programm aufgelistet 
(nicht programmierbar). 
Plottet die mit Namen angegebene Funk- 
tion. Verlangt folgende Eingabewerte: 
Name, YMIN, YMAX, AXIS, XMIN, XMAX, 
XINC. Positive XINC-Werte geben das X- 
Inkrementen, negative XINC-Werte die An- 
zahl der gewünschten Inkremente. Auf 
Wunsch kann ein besonderes Plot-Zeichen 
in Rs gespeichert werden. 
Druckt den Plot der Funktion aus. Aus- 
gangsdaten müssen in folgenden Registern 
gespeichert sein: Ro = YMIN, Ro, = YMAX, 
Ros = Plot-Sonderzeichen (falls gewünscht), 
Ru = AXIS, Rs = XMIN, Ro = XMAX, 
Rıo = XINC, Rıı = NAME. 
PRREG | Druckt die Inhalte aller Register ab Ro; 
[PRREGX] Druckt Registerinhalte, durch X gesteuert. 
Das Format von X ist bbb.oee, wobei bbb 
das erste und eee das letzte zu druckende 
Register angibt. 
Druckt Inhalte der Ststistik-Register. 
Druckt Stack-Register-Inhalte. 
[REGPLOT] 


J 


| 


Druckt X-Registerinhalt. 

Plottet Einzeilzeile unter Verwendung der 
Daten in folgenden Registern: X = Plot-Wert, 
Ro = YMIN, Ru, = YMAX, Ru = nnn.eaa, 
wobei nnn die Plotbreite in Spalten und aaa 
die Spaltenposition der Achse angibt. 
speichert nnn.sas automatisch 
nach Roco. 


[PRX}- Anweisung als Zeile in den Programmspeicher: 


eingefügt. 


Überspringt Zeichen beim Akkumulieren im 
Druck-Buffer. Speichern Sie die Anzahl der 
zu überspringenden Zeichen in X und 
führen [SKECHR] aus. 

Überspringt Spalten bei der Akkumulation 
Im Druck-Buffer. Speichern Sie die Anzahl 
der zu uberspringenden Spalten ın X und 
führen [SKFCöt] aus. 

Plottet Einzeizeile unter Verwendung der 
Daten in den Stack-Registern: T = Plotwert, 
Z = YMIN, Y = YMAX, X = nnn.aaa, wobei 
nnn die Piotbreite in Spalten und aaa die 
Spaltenposition der Achse angibt. 


Drucker-Wahlschalter 


In Stellung MAN erfolgt Ausdruck nur, wenn Druck- 
Funktionen von Hand oder im Rahmen eines Pro- 
gramms ausgeführt werden. In der Betriebsart NORM 
werden Zahlen und ALPHA-Ketten, die eingetastet 
werden, Funktionsnamen bei der Ausführung über 
das Tastenfeld und die Ausgabe von Druck-Funktio- 
nen gedruckt. In der Stellung TRACE werden Zahlen 
und ALPHA-Ketten gedruckt, die Sie eintasten, Funk- 
tionsnamen, Zwischen- und Endergebnisse sowie die 
Ausgabe von Druck-Funktionen. 


[PRINT ]-Taste 


Im HP-41C Normal-Modus bewirkt [PRINT _|den Aus- 
druck des Inhattes des X-Registers. Im ALPHA-Modus 


druckt den Inhalt des ALPHA-Registers aus. 


Im PRGM-Modus bewirkt [PRINT _]die Einfügung einer 
befindet sich der HP-41C dabei außerdem im ALPHA- 
Modus, wird eins [PRA]-Anweisung in das Programm 


Papier-Vorschub-Taste 


Rückt das Druckpapier vor und druckt'den Inhalt des 
Papiers rechtsbündig aus. Im PRGM-Modus wird eine 
DV-Anweisung in das Programm eingefügt 


Standard HP-41C Druck -Funktionen 


[View] zeigt den Inhalt des gewünschten Speicher- 
registers an und druckt ihn aus, zeigt den In- 
halt des ALPHA-Registers an und druckt ihn aus. 
zeigt den Inhalt des ALPHA-Registers an. 
druckt ihn aus und unterbricht die Progremmaus- 
führung. 


XROM-Funktionen 


Programme, die Druck-Funktionen beinhalten, zeigen 
bei nicht angeschlossenem Drucker eine XROM-Zahl 
an. Einzelheiten dazu finden Sie im Bedienungshand- 
buch des HP 82143A 


Flags und der Drucker 


Alsg 12: Zeichenbreite-Flag. Bei gesetrtem Flag 
werden alle Zeichen doppelt breit gedruckt. 


Fleg 13: Kieinschreibungs-Flag. Bei gesetzten Flag 
werden Kleinbuchstaben gedruckt. 
Fehlerignorierungs-Flag. Bei gesstrtem 
Flag wird der erste auftretende Fehler igno- 
riert. Das Fleg wird dabei automatisch ge- 
Kscht. 

Drucker-Einschalt-Flag. Steuert den Druck 
bei der Ausführung von Programmen. Siehe 
Tabelle I. 


Drucksr-Anwesenheits-Fisg. Bestimmt, ob 
der Drucker angeschlossen ist oder nicht. 
Siehe Tabelle 1. 


Flag 25: 


Aag 21: 


Reg 56: 


ana 


© SON OF THE 000 INTEGERS, 
€ LESSTHANOR EQuALTo OP | 
INTEGER, JUM 
N=O 
SUM=O 
10 CONTiNUVE. 
STOP. » STOP.» STOP 
END YYF 
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Idee: Detlev Bock 


Then this 
Then this __—— 
Then this 


UNDERSTAND THE 
PROBLEM 


DEVELOP AN 
ALGORITHM FOR 
A SOLUTION 


REPRESENT THE 
ALGSORITHM IN 
FLOWCHART FORM 


USE THE FLOW- 
CHART TO PREPARE 
A CODED PROGRAM 


EXECUTE THE 
PROGRAM IN 
THE COMPUTER 


Lieber Oliver Rietsohel, liebe HP-41C-Pans! 


Als ich zum ersten Mal von dem HP-41C Anwenderolub 


hörte war ich etwas erstaunt, daß es nooh mehr Leu- 
te gibt, die sich damit befassen, welohe Unmögtiohkeiten 
auf dem Rechner möglich sind. Auch ich habe nämlich schon 


viel auf diesen Gebiet gearbeitet und Erfahrungen gesan- 
melt, die ich gerne weiterzugeben bereit bin. Daga meiste 
davon ist den beigefügten Tabellen, Diagrammen und Kurz- 
beschreibungen zu entnehmen. Außerdem habe ich ein In- 
strumentıriun entwickelt, Welches auf WALL-Karten beiliegt. 
Diese verwandeln den HP-41lC in ein wahres Bastel- und 
Versuchslabor. Doch zuerst ein wenig Theorie! 

Adressen 


Wie aus der Tabelle hervorgeht, existieren nioht nur die 
Befehle STO/RCL usw. M bis Q, sondern viele weitere: 
(1)00,(1)01, A bis J 
Nit diesen Adressen lassen sioh die Datenregister 100 
bis 112 direkt anspreohen. 
NER i 
4 Stacks und Last x 
N,Y ,O und die ersten 5 Byte von P 
Alpharegister. Die letzten beiden Byte von P werden u.a. 
als Zählregister bei Durchführung der Catalog-Funktion 
verwendet sowie bei der Dateneingabe, um z.B. festzustellen, 
ob eine Ziffer £ 0, das Komma oder der Exponent eingegeben 
wurde. 
Q-Register 
Zwischenspeicher, z.B. bei der Dateneingabe, beim Suchen 
von alphanumerischen Labels (die daher nur 7-stellig sein 
können!) oder bei ASS. 
E-Begister 
Erste 4 1/2 Bytes: Flags für ungeshiftete Tasten. Für jede 
Taste existiert ein Flag, der bei Belegung derselben gesetzt 
ist (siehe Diagr.nn). 
Byte ab 4 1/2: Zuletzt durchgeführt Funktion 
Letztes Ryte: Bei Durohführung von ASti die Taste (siehe Tabelle) 


a- und b-Register 
Lezte beiden Dytes von b: Zeiger auf die augenblick= 


liohe Position im Programmspeioher. 
zwei-byte-weise rückwarts von & nach a: Rloksprung= 
positionen ıus Unterprogramnen (genau 6!) 
e-Register: 
Statusinformationsn (siehe Diagrımm). Vorsioht: fılls 
3. und 4. Nyte nicht sti:men, dann MEMORY LOST. (warum?) 
d-Register 
Flags. Siehe Diugrann. 
e-Register 
erste 4 1/2 Bytes: Plıgs für geshiftete T.ısten 
letzte beiden Bytes: Tummer des Progrannschrittes, der 
sich gerade im Speichsr befindet (Diese: nat eigentlioh 
keine tiefere Redeutung und wird meist neu vom HP-41C 
bzrachnet) 


aufbau eines Datenregisters: 
Erstes Halbbyte: 0 positive Zahl 

1 Alphastring 

9 negative Zahl 
Fach Ausführung von ASTO-Befehlen entspricht dem zweiten 
Halbbyte in dem entsprechenden Register das zweite Falb- 
byte des 7. Bytes im Alphu-Register (offsnsichtlich ein 
Fehler von HP). Die nächsten Bytes enthalten die ert- 
spreohenden Stringzeicohen. 


Bei Zahlen: 
Halbbytee 2 - 11 Stellen der Zahl 
Halbbyte 12 Vorzeichen des Exponenten (0=+,9=-) 


Halbbytes 13 u. 14 Sxponent (100-:xp.,falls negativ) 
Was entspricht etwa 1,917585 als Programnregister? 
Oxl6+l= 1 LBL 00 


9x16+1=145 STO 
7216+5=117 Adresse M 
8x1645=133 RTV 

Rest = 0 Leerstellen 


Es ist auoh möglich, für dıs Vorzeiohen andere Möglich- 
keiten als O0, 1, und 9, für das Vorzeichen des Exponenten 


andere ala O und 9 sowie 7iffern erößer als 9 zu erhalten 


(Aufbau eines ilphastrings der Länge 7, RCL M, siehe 
unten). Duroh Befehle wie STO,RCL,VIEW 00-99, (1)00, 
11)0l, A-J sowie durch indirekte .\dressierung werden 
diese Diten in normale Zahlen und Strings umgewandelt ' 
und 2.T. zerstört. Erhalten bleiben sie nur duroh Be- 
fehle von STO T bis STO e und entspreohend. 


l bezeichnet das zweite NER ON 0 das erste, 80- 
viel ist klar. Darunter «uber sohlieAt sioh der Kreis 
(siehe Skizze über Spsioheraufbau)! 1023 bezeichnet 
d.ıs arste erste Progrannregister, 1022 das zweite eto. 
Andererseits weiß der Rechner, daß eine viergtällige 
Adresse unmöglich ist und zeigt TORSXISTEFT an. Aber 
(zumindest bis Seriennummer 1950) mit 999 14ßt sich 
dıe 24. Programmregister ansprechen, mit 998 das 25. 
usw. (Vorsicht!Register können dabei verändert werden, 
siehe Natenspeicherung allgemein!). Am Ende des Programn- 
epeichers und des Key-Assignments folgt eine Lüoke von 
176 Registern, duroh die dann folgenden niedrigeren 
Adressen.lassen sich die 16 Statusregister T - e an- 
sprechen. Diese Adressen kann man aus dem Size und der 
Anzahl der Memory-Module bereohnen. 

Aufbau des Key-\ssignments 


Die entsprechenden Register stehen linksbündig am Anfang 
des Ri!!'s (siehe Skizze Über Speicheraufbau). 
Aufbau eines Registers; 


l. Byte | 2. - 4. Byte, 5. Byte 6. Byte ı 7. Byte 
240 wie 5.-7. a) Rechnerfunktionen: Taste 
4 ‚Er. d. Fktn.!| (Tabelle) 
b) ROß-Befehle: 
" m m 
Ron-Befehl 


Die Bytes 5-7 werden beim Belegen zuerst aufgefüllt, danoh 2-4. 
Zu a) die !'unnern der entsprechenden Funktionen sind zumeist 
der Tabelle zu entnehmen (+ = 64, GTO = 208). Das Erstaunliche; 
Es gibt genau 256 belegbare Funktionen, die z.T. interessante 
Eigenschaften haben(z.B. 32 oder 60). 


t3 


ie yaite Schwierigknit “ritt auch bei Pefehlen dsa 


+ 


Kırtenlesers wie “TTA usw. ft. 


Interessant auoh die nioht-progr ımmierbaren Funktionen: 

CAT=0, D5L=2, COPY=3, CLP=4, SIZE=6, BST=7, SST=8, 

(M=9, PAOK=10, AST =15 

Tun aber: 

1 = GTO. Reohner springt zu dem (echten) Programnschritt 
der Tummer, die im e-Register angegeben ist 

5 = R/S, ll = Programmschritt löschen, 12 = USER off, ALPHA 

on, je naoh belegter Taste, 13= ???, 14 = SHIPT tt 

Der beigefügte Ausdruck gibt die Tamen der Funktionen von 

0-255 in der richtigen Reihenfolge an (teilweise Unter= 

schied zwischen Reohner und Druoker). 

ZU db) Statt ROM-Befehlen lassen sioh hier auch andere 

2-Byte-Befehle belegen, z.B. FIX 8 oder RCL M. 


Taoh soviel Theorie nun uber zur Praxzie,zu den beigefüg- 
ten Karten, den Programmen und den Keys darauf. 
®BASTEL" 
(Offensicohtlioh nur bis Seriennummer 1950 wirks:n) 
Dieses Programm erlaubt es, eine Polge von 6 beliebigen 
Bytes an eine bestiumte Stelle im Programmspeioher zu 
sohreiben. Hierbei wird ausgenutzt, daß mit der Adresse 
999 dus 24. Programmregister angesprochen wird. Deshalb 
darf kein anderes Programm vor dem Bastel-Progrıun im 
Progrüammspeicher stehen! Dabei wird iz Flag-Register 
ein Programm gebildet, das ein.:Stringzeichen anhangt, 
das Stringzeichen kann duroh setzen der Plags 16 bis 
23 beliebig gewählt werden (Schritte 36 - 53). Dieses 
wird dann in das 24. Progr.mmregister geschrieben und 
mit X3Q a aufgerufen (wegen Schritt 39,40 und 41 ist 
dabei Flag 31 gesetzt). Auf diese Weise wird ein Alpha- 
string der Länge 6 erzeugt, der dann endgültig in das 
24. Register eingesohrieben wird, wo der Rechner dıs 
Progr.ımn unhält, da nach Ausführung des Programms der 
Flag 31 wieder gelösoht ist (alle Flage ab Er. 24 
bleiben erhalten, da das d-Register im a-Register ge- 
speichert wird). 
Anleitung 
Eingabe: 1. NMögliohkeit; 1.Byte in ROl eingeben, 2. in 
RO2 ... 6. in RO6 speilohern,XEQ "BASTSL" bzw. 
XEQ A „ 0 eingeben 


2. Möglichkeit: XEQ "BASTEL" oder IEQ A, 

l. Byte eingeben, wırten, zweites Byte ein- 

geben usw. Zum. Abbruoh des Programs nega- 

tive Zahl eingeben. : 
Sohaltet min naoh Anhulten des Programme „uf PRGM, ersoheint 
„ zunächst eine O, dahinter dann die gewünschten Bytes als 
Progrannbefehle. Beispiel: 144,126,146,129,241,38: 
RCL d, ST+MD Ol, "ar. 
Vorsicht! Nan uwuß uufpassen, daß durch das Basteln nioht 
unkortrolliert Z{'D-Befahle, Alpha-Labels oder gar der 
.MDı-Befehl zerstört werden (deshalb ıuch der RM-Puffer 
am Ende, fılls etwa versehentlich als 6. Byte 248 einge= 
geben wurde, d.ıs, wenn es selbst frei ist, die 8 folgenden 
Bytes auffriAt). Durch ZEN C 1äßt sioh aber der Zustand 
des Progr ınmregisters vor dem Basteln wiederherstellen 
(oder mınuell 999, RCLOI, STO IFD Y). Das neu erzeugte 
Progrimmregister ist ıuferdem in ROB gespeiohert. Der In= 
halt eireg beiisbigen Programmregisterg läßt sich durch 
Ingıbe der Yunmer und XEQ B in dıs 24. Programnmregister 
schreiben. Durch XEQ a kann mın jederzeit zum 24. Register 
springen. i 
Tips: Die O0 .ım \Anfang des Registers sollte stets hier stehen- 
bleiben. Sie bewirkt, daß die 6 folgenden Rytes duroh 
STO IFD und RCL ITD 999 nicht verändert werden, da sie als 
Stringzeichen interpretiert und damit akzeptiert werden. 
Aufbau von Befehlen länger .ıls 6 Nytes: 245 und letzte 
5 Bytes singcben und Basteln. Durch die 245 werden die 
5 Bytes in seinen \lphıstring absorbiert. Dies kann wichtig 
sein: Wäre dus letzte Byte etwa 255, so könnten die naoh- 
folgenden Tefehle aufgefressen werden. Tach Anhalten des 
Programms im 24. Register hinter der 0 fünfmal ENTER? ein- 
geben, PACK. lächste Tastel-Eingube; neutrale Defehle 
(131=&°T7SR), danach die restliohen Bytes des Befehls 
(oder 250 und die nächsten 5 Bytes des Befehls und ent- 
sprechend weiter). Häufige Anwendung: Heratellen eines 
Alphistrings der \änge 7: 3 

l. Rısteln: 245, letzte 5 Bytes des Strings 
2. Rısteln: 131,131,131,247, erste beiden nytes” 

Durch eicren \lphıstring der Länge 7 gefolgt von RCLM 
läßt sich in x-Tegister jede beliebige "Zuhl” und jeder 
Strirg erhilten und d.ıdurch z.B. mit STO d Jeder 


beliebige Flud-Stutus! Interessinte Anwendungsmöglichkeiten 
auoh für den Druoker: Es kınn direkt ein Alphastring für 
ACSP:C gebildet werden, ‚uch können Alphastrings mit Klein- 
buochstaben und anderen Zeichen erzeugt werden, die auf dem 
Reohner aber meist Unsinn liefern. 

"SAVE* (bis Seriennummer 1950) 


za-aca 
Falls zum Beispiel duroh Basteln der CAT 1 duroheinander- 
ger.ıten ist, insbesondere der .EHD.-Befehl gelöscht wurde, 
kann man den Progr.ımmspeioher und die User-Keys retten: 
Progrımn st ırten, vor dem Komma Anzahl der (Status-, nicht 
Progrımm-) Keys .ıngeben, hinter dem Komma die Anzahl der 

im Reohner steckenden Memory-Module,R/S. Im C\T 1 erscheint 
nun lediglioh der .END.-Befehl, naoh PACK werden aber auch 
die anderen EFD-Befehle und Labels in den Katalog wieder 
aufgenommen. Taoh Ausführung des Programms sind keine 
Datenregister mehr vorhanden, außerdem ist die Position 

der St.ıtistik-Register verändert worden. 

Schwierigkeit: Das Programn zu finden, wenn der CAT 1 nicht 
mehr existiert. Lösung: Sich beständig mit SST nach vorn 
tasten, ETD-Befehle lassen sich durch GTO.nnn Überwinden 
(nioht lösohenti!) oder nit dem Befehl *Goose", siehe unten. 


Stellt einen beliebigen Alphastring der Länge 2 her. 
1. Byte in ROl eingeben, 2. Byte in Ro2, XUQ "CSTR*. 
String erscheint im Alph4- und im x-Register. 
Untersohied zu BASTEL*: nur 2 Byte, dafür schneller, 
Progrummregister nioht verändert, funktioniert auf jeden 
Rechner. 

„Kir 
Zählt im x-Register die letzten beiden Bytes aus und gibt 
sie Als mum,nnn an. 


"IP" (Greift auf "CSTR" zurück) 


Dieses Programm erlaubt es, nit dem Programmzeiger an jsde 
beliebige Stelle im RAM zu springen: Sprungposition angeben, 
XEQ "IJMP", danıch SST (STO db). 


Angabe der Sprungudresse: 
IET= Funser des Registers (0-15 Statusregister T-e, 
ab 192 Key-, Program-- und 
Datenregister) 
FRC= tumner des Bytes (0,6= erstes Byte, 0,5 = zweites 
Byte usw.) 
Der Rechner speichert die Programaposition im db-Register 
nicht ir dieser Form .ıb, sondern zählt immer ein Byte 
dızu. \nsonstean stelit im ersten Hılbbyte der betreffenden 
beiden Nytes die Turmer des Tytss, in den restlichen 
1 1/2 die des Registers. Anders in ROM'se Im ersten 
Hılbbyte steht hier die Position des ROll's,.in den rest- 
lichen 1 1/2 die Yummer des Bytes (0-4095). 


LG” (greift uf "CCTR" zurück) 


Dies2s Progr ımn erlaubt es, CAT 2 und CAT 3 von Jeder 
beliebigen Stelle aus zu starten. Bingabe: INT=S$telle 
im Katalog, FRC=0,2 oder 0,3 Je naoh Katalog. Dann 
xEC "CTLS", nach Stop des Progranns auf R/3 oder SST 
drücken. Interessint: Im CAT 3 steht Ab Stelle 118 
teilweise unterbrochen der Kutulog für das Koy-Assignnent 
(Üamen der einzelnen Funktionen). 

LUORIALT u. TABL 


Bitte selbst testen! 


Diese Programme zeigen wohl deutlich, welohe ungeahnten 
Möglichkeiten in dem HP-41C schlumnmern und wıs mın mit 
"unmöglichen"” Refehlen alles anfıngen kann. Doch nun zu 
den User-Keys auf den WALL-Kurten. 


"Goose"-Befehl (> auf Rechner, . auf Drucker) auf -23 


z22222- 2822205 
Dieses Furktion hıt die Tumner 178 und entsprioht dem Refehl 
GTO Ol. Sie erlaubt es, im RUf’-Modus manuell Sprünge bis 
zu 15 Registern .wuszuflühren gemäß der anzugebenden Adresse: 
Die „irkun:sweise dissor Adresse entspricht dem zweiten 
Byte eines kurzform-Sprungbefehls (siehe Diagramm). Also: 

. 16 Inyte vorwärts 

. 32 2Bytes vorwürts 

« Ol 1IRegister=7Tytag vorwärts 

. 17 1Register/lnyte=Öhytes vorwürts 

. 02 2Register vorwuürtu uyw. 

. ID Rückwärtssprünge 


Der Befehl erluubt es vor ullen Dirgen, Über Et:D-Befehle 
hinwegzuspringen und auch ber den .E!D.-Befehl hinweg 

zu den Key-Assignments und den Statusregistern vorzudringen. 
Dagegen ist &s nioht möglioh, vom Prograumspeioher Aus 
zurüok in die Datenregister zu springen. 

Anders ist in ROM's zu verfahren, da hier die Daten anders 
orgınisiert sind: . IED Ol für ein Iyte vorwärts, . IED 02 
für zwei Bytes usw., . Ol für ein Byte rliokwarts usw. 

STO_b_und_RCLb (auf 23 und 24) 
Man darf sioh nioht darın stören , daß STO b als XRON 05,60 
und RCL b als XROK 01,60 gelesen wird (Vergl. auch Aufbau 
des Key-Assignmente, latzte Bemerkung). Diese beiden Keys 
ermöglichen es auf recht elegante Weise, jederzeit und Überall 
Befehle wie etwa STO M zu Basteln. Wie sohon mehrfach er- 
wähnt, enth4lten die letzten beiden Bytes des b-Registersg 
die Position des Reohners im Progrımmsp®icher, wern man 
will, kann mın disge beiden Bytes nach RCL b mit den *orTt- 
Programm ınalysieren. Man kann nun den Reohner Überlisten, 
wie ein kleines Beispiel deuonstrieren möge (Vgl. dıbei je- 
weils :Lt Tabelle): Man gebe un einer beliebigen Stelle 
in Speicher zweimal (am Programmınfang besser dreimal) 
den Defehl EFTSR ein und schalte dann sofort auf RUF zurück, 
wo man RCL b ausführe. Tun lösohe man die (letzten) beiden 
E!TSR-Befehle und gebe stattdessen RCL IED Z ein, dahinter 
RCL IND 17 und RN. Jezt sohulte man wieder auf RUE um, wo 
man nooh den Inhalt von Register b findet, den aın vorher 
abgefragt hit. Fun der Trick: dieden speichere wın aittels 
STO b wieder in b-Register ab und schalte danach auf PRGM 
um. Der Reohner befindet sich nun da, wo vorher der zweite 
(dritte) ETTER-Befehl stand. Hier steht nun die Adresse 
ID z, d.h. eine 241. Dies liest der HP-41C jetzt ıber als 
Alphıstring der Länge 1, und dafür braucht er ja auch ein 
Alphazeiohen. Als solches liest er nun das erste Byte dee 
nächsten Befehles, Also von RCL WD 17. Führt zın nun SST 
aus, so findet der Reohner hinter den String die vsrblei- 
bende Adresae IND 17 entsprechend Byte 145, was or natürlich 
als erateu Byte seines STO-Befehles interpretiert. Deshalb 


liest. er das nächste Byte nicht als RD, sondern als Adresse 
N (117). Dies hıt aber keine besondere Bewundtnis, weil sich 
der Rechner Ja praktisch bloß verirrt hat. Wenn man jedooh 
nıch STO b den vorgefundenen Alphastring löscht, so lösoht man 
in Wirklichkait die adresse ITD Z und das RCL von RCL MD 17. 
Damit hat man über die Adresse IHD 17 "befreit" und den Befehl 
STO K erzeugt, im Programmspeicher steht nun RCL 00 (Lang- 
forn!), Leerstelle, STO M. 

kuf anıloge Weise lıssen sich noch viele andere Befehle kon- 
struieren und mın wird sich bald eine gewisse Routine darin 
ıneignen. loch ein Neispiel: Tir löschen nun RCL 00 und geben 
st.ıttdessen ein: RCL MT 2, RCL ITD 64, EYTER, "AA". Im RUR- 
Nodus führen wir STO b aus (falls das x-Register nicht sejt 
dem letzten Bısteln abgeändert wurde), löschen wieder den 
Alphastring, in Programm steht dann der Refehl ... nicht zu 
fıssen,wie? Yach Pack steht er dann auch im CAT 1 (bevor dies 
nicht der Fıll ist sollte mın nicht versuchen, ihn direkt zu 
löschen, üı stattdessen der nächste davorstehende ErYD-Refehl 
bzw. dıs nüchate richt-lokale Lıbel gelöscht wird). 

kit dieser Technik lassen sich fast alle Bytes gewinnen: 


[e) Leerstelle nach löschen 
1-159 durch entsprechende Befehle 
128-227 aus indirekten Adressen 00-99 
240-244 aus RCL IED T bis RCL MDL 
241-255 aus entsprechenden Alphastrings 


Mit etwas Geschick lassen sich disse Bytes dann zu neuen Be- 
fehlen zusammensetzen. Einige Schwierigkeiten treten dabei 
jedoch auf. Verändert mın nämlich den Programmspeicher, werden 
sofort die Sprungpositionen in GTO- und XEQ-Befehlen gelöscht, 
Sprungbefehle it fertigen Sprungpositionen können erst gar- 
nicht (ohne weiteres) entstehen. Dies wirft Schwierigkeiten 
auf, wenn etwa ein der ırtiger Befehl als Zwischenprodukt ent- 
steht, z.B. bein Aufbau eines Alphastrings. END-Befehle ala 
zwischenprodukte sind ebenfalls unangerehn, da diese: .. nach 
Ausführen von PACK im CAT 1 stehen und dann nioht mehr un- 
bef4ıngen wsiterver ırbeitet werden können. Solohe Sohwierigkeiten 
kann mın wohl verveiden, wenn man gewissermaßen "unter einem 
ALphastring versteckt" b.stelt und erst zum Schluß den "Korken” 
entfernt. Dieg ist ıber sehr konpiiziert, da man die zwischen- 
durch erzeugten Tefehle „uch nicht mehr durch PACK zuaammen- 


sohieben kınn. In solchen Fäilen ist es einf.cher, Auf das 


"SBASTEL"-Programn zurlokgreifen (falls möglich). 

Etwas spitzfindiger muß man auch bei der Erzeugung der 
Bytes 228 bis 239 sein, z.B. in dem Befehl RCL IND A: 
1) LBL A, ENTSR, ENTER eingeben, ECL db auf den 2. SUTER 
2) BITER-Befehle lösohen, RCL MID Y, GTO A eingeben 

3) GTO A mit SST im RUT-Modus ausführen 

4) kurz “uf PRGN sohalten, dan.ıch im RUT-Modus STO b 

5) auf PRGM sohalten und folgende Befehle eingeben: 

RCL IND Y, EETER, RCL IED 2, RCL IND 16 (IFD 16 für RCL) 
Unter underem ist nun der Refehl RCL IED A entst.unden. 

Zu 4) Tuch Durohführung von GTO, GTO, , PACK u.v.a.n. 
verliert der HP-41C die Orientierung im Prograsnspeicher 
und orientiert sioh deshalb bei Umschalten auf PRGM neu, 
so daß der "Sohwindel" bemerkt wird. Deshalb vor STO b 
kurz auf PRGM schalten. 

Der Vortsil dieser Tuastelmethode besteht darin, dıß sie auch 
im Key-Assignnent anwendbar ist, wenn’ wan dessen Aufbau kennt. 
Man kann die zu belegenden Funktionen an der richtigen 9telle 
aufbauen, ggf. auch den Alphastring der Länge O. Dieser ist 
sehr wichtig, da sonst dieses und alle davor stehenden 
Koy-Register ignoriert werden. Dieser String muß unter 
Benutzung des davor stehenden Registers auch dann aufgebaut 
werden, wenn mın das Register duroh das Bastelprograum 
erzeugt und dem entsprechenden STO ITD-Befehl in das Key- 
Assignnent gebraucht hat, da ja stattdessen eine O “un An- 
fang des Registers steht. Yützlich zum Basteln im Key-is- 
signment ist auch das JNP-Programn: mit dem aus 192,3 er- 
zeugten Alphastring kann man etwa mittels STO db zum 
4. Byte des zuletzt belegten Registers springen, man kann 
den $tring dann auoh bis zur weiteren Verwendung abspeichern. . 
Wichtig: Will man im Key-Assignment Schritte eingeben, so 
muß mın ggf. andere Schritte lögohen und Leerstellen schaffen, 
da sonst Memory lost erscheint. Besondere Vorsicht ist bei 
Zahleneingaben Beboten, da in diesem Falle auch vor und 
hinter der Zıhl ein Leerbyte stehen muß. Außerden iet zu be- 
“ohten, d4ß durch PACK die einzelnen Befehle hier nicht zu- 
8.ınmengosohoban werden, dıfür uber auch nicht die Sprung- 
pouitionen in GTO- und X30-Befehlen gelöscht werden. 

Man be.uchte “uch, daß die .ıngagebenen Tastenbelegungen 
ait den Tıstenbelagungsflaugs übereinstimmen, wıga z.R. dadurch 
gewährleistet ist, dıß mwın die entsprechenden Tasten vorher 


belegt und in diesem Register bastelt. Dabei ist zu be- 
„achten: Jird eine Taste belegt, so wird die Belegung ‚ 
vorrıngig in die noch freie Hälfte eines bisher nur halb 
genutzten Key-Registers geschrieben, ansonsten in das 
vom Frogr.ımnspeicher ges#hen letzte Register (für das 
JUP-Progrına mit 192 zu adressieren). Übereinstimmung 
nit den Tastenbelegungsflags lEßt sich im Zweifelsfalle 
auoh daduroh erreichen, daß mın eine Status-Karte beschrif- 
tet und wieder einliest. Ähnlich kann nan auch in dıa 
vierte Byte eines \lphanumerischen Labelg eine Tasten- 
belegung schreiben, dag Prograun auf’ Kurte aufzeichnen 
und in USSR wieder einlesen. Auf diese Weise ist eg so- 
gır möglich, die SHIFT-Raste (bzw. die geshiftete 
SHIFT-Tıste!) und die imaginäre zweite Hälfte der 
ETTER-Tuste zu belegen. 
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Und lust not least: der Sprung in RONM's! Anleitung: 

1) Zwei Bytes in ROl und RO2 eingeben 

2) XEQ "CSTR” 

3) In irgendein ROM an irgendeine Stelle gehen, kurz 
auf PRGN schalten 

4) den durch *CSTR" erhaltenen String in b abspeichern 
und wieder «uf PRGM sohalten, fertigt 

Zu 1) Die beiden Bytes haben folgende Bedeutung: 

0/ 0 bis 47/255 12-K-ROM-Bereioh des HP-4lC 

96/ O0 bis 111/255 Drucker 
128/ 0 bis 143/255 ROM in Position 1 


160/0 bis 175/255 ROM in Position 2 

192/0 bis 207/255 ROM in Position 3 

224/0 bis 239/255 ROM in Position « 
Kein Wunder also auch, daß der Drucker stets zuerst 
im CAT 2 erscheint! Wenn man jetzt die Befehle des 
Mioroprooessors kennt kann man also mit einigem Ar- 
beitsaufwand die ROM-Programne entschlüsseln. 


Das wuren ulso in etwa meine Erfahrungen, die ich ge- 
gunnelt und die Techniken, die ich entwickelt habe. Mit 
etwas Einfallsreichtum und ein wenig Glück lassen sich 
sioher noch t.ıusende von Trioks entdecken. Ein Beispiel: 
Ist während des Programmabluufs der Flag 52 (PRGK-!odus) 
gesetzt und kommen in diesem Programm Zahlenbefehle vor, 
so füngt der Reohner plötzlich an, sioh selbst Zıuhlen- 
befehie einzugeben! Einfıohes Reispiel: X) "ARr® 5. 
tooh ein Wort zur Vuwardlung von Daten- in Prograun- 
register. Diese läßt sioh auch ohne Benutzung des 
STO IFD-Befehls erreichen. Fügt man einen Nefehl irn den 
Progrımmspeioher ein, ohne daß die erforderlich Anzıhl von 
Leerbytes vorhanden ist, wird ein ganzes Register ein- 
gefügt und der Rest des Programmspeicherg nach oben ge- 
sohoben. Gibt min aber etwa hinter dem letzten Byte des 
Datenregisters ROl einen Befehl ein (nit dem JMP-Progrimm 
kann man leicht hierher gelangen, man muß bloß die Tummer 
des Registers berechnen), eo wird das Datenregister ROO 
zum erst»n Programnregister. Dies kann mın sicher für 
ein modifiziertes BASTEL-Progrann :usnutzen. 

Zu sagen bliebe nooh, daß ioh selbstverständlich ın den 
Answender-Club eintrete und um die bisherigen Veröffentlichun- 
gen bitte. Weiter bitte ich durum, mir die WALL-Karten oder 
die entspreohende Zahl leerer Karten zurückzusohioken. 
Ansonsten viel Spaß beim Basteln!!! 


Meine Adresse: 
ZU: FEOTRLWTELEIS 
sent Mistlaas arahizl var 
Kannkechessrein, | 
lerne. 
telefer. I RE 


EIBETLIETIZFEREE ET EIS E 


Lieber Oliver! * Oberursel, den 14. 9. 80 


Nit Dank habe ich Deinen Rrief erhalten. Zunächst ein 

Wort zu der entfleuchten Seite. Als ioh sie ein paar Tage 
nach Verschicken des Briefes fund, war ich selbat erschrok- 
ken, dı sie nänlich besonders wichtig war. Diesem Brief aber 
l.egt sie run bei. 

In Deiner Antwort äußertest Du die Hoffnung, daß meine Ak- 
tivitit au? Leu Gebiet der synthetischen Programmierung 
(Basteln) weiter “arhült. 2.T. schon in Erfüllung gegangen: 

Das CSTR-Frogr ımnm wurde ersetzt durch ein BLD-Progrann 
(in JMP u. CTLG nun ZEQ"CSTR" ersetzen durch 2, XEQ"BLD"), 
dıs CHT-Frogramn wurde von den letzten beiden „uf ulle sie- 
ben Tytzs des x-kegisterg erweitert, und außerdem habe ich ein 
BASTZL-Progr.ınn entworfen, dus bei jedem HP-41C funktioniert, 
alt den mar richt mehr „uf 6 Bytes beschränkt ist und mit dem 
man Überall und richt rur an einer festgelegten Stelle basteln 
Karn. Entscheidend wır die urkenntnis, d4A Daten duroh STO- 
nefehle «allein noch nicht verändert werden (Dios ist auch in 
dem Bericht unter dem Purkt "Zur Tutenspeicherung" zu korrigie- 
ren). Dieser Punkt war air gunicht «ufgefallen, ich werkte es 
erst nıch Studium des KA-Programıs (Prisma, 18/7-80). Zu die- 
sn Progr.ama roch einige Bexnerkungen: 
1) Bei zir furktioniert es noch nicht 30 ganz 
2) 2s läßt sich teilweise vereirfachen. Die Schritte 12ff. 
lasser. sich ersetzen durch eiren Alphastrirg der Länge 5, 
nämlich durch STR(1,105,12,0,191), wenn ich diase Totation 
einführen darf, wobei ich gleichzeitig den Vorschlag muohe, 
im Zwsifelsfalle Informationen Über Alphastrings unter Anga- 
be der Schrittnumer in dieser Weise hinzuzufügen. Die Schrit- 
te 24-26 des Ki'Progrimms sind durch STR(240) zu ersetzen, 
wodurch bereits dag Unterprogramn B überflüssig wird. Schritt 
155-160: STR(127,0). Ergänzend zu dem Bericht von Detlev Book: 
XRON OO,nn ist gleichwertig mit XROM nn,nn. XROM nn,OO ist der 
Fame deg entsprechenden Moduls! 

Ein Tort zu Prisma 17/7-80: Springen zu einem Programmsohritt 


durch Manipulation des e-Registers ist nioht möglich, entschei- 
dene ist dıs b-NRegister. 


Doch nun zur Besohreibung der neuen Prograume. 


BLD (auf Taste-25) 
kit diesem Programm kann jeder beliebige Alphastring bis 
zur Länge 7 erzeugt werden. 
Eingabe: Bytes des zu erzeugenden Strings in ROLl ff, Länge 
des Strings in das x-Register. 
Das Programm l1Hßt di6 Register Ol-07 unv»rändert, das String- 
zuiohen riohtet sion nach dem 256-ger-Rest des Absolutbetra- 
ges des jeweiligen Registers. 
Ausgabe: String in Alpha-Register, erste 6 Zeichen in x und 
| ROO; y-Register: durch den String erzeugtar Inhalt 
des M-Registera 
Häufige Anwendung: als Unterprogr.ımm 
Es liegen zwei Versionen bei. Die erste kann jederzeit ver- 
wendet werden, die zweite (BLD, Drucker) ist einfacher und 
arbeitet sohneller, greift aber auf den Drucker-Berehl AERFRE 
BLDSPEC zurück. 


cET (auf Taste -63) 

Gegenteil von BLD. Jedes einzelne Byte des x-Regis“ers wird 
analysiert, die Ergebnisse in ROl bis ROT abgespaichert und 
am Ende außerdem einzeln angezeigt. Bach jeder Anzalge auf 
R/S drücken, auch nıch dem 7. Byte, damit der ursprüngliche 
Status erhalten bleibt. Bei gesetzten Flag 00 wird die An- 
zeige unterdrückt, was nützlioh ist, wenn dag CET-Programn 
ale Unterprogramm aufgerufen werden soll. 


BASTEL (auf Taste -74, greift auf BLD zurück) 

Dieges Progr:ima ermöglicht es, jede beliebige Folge von 
Bytes an irgendeine Stelle in Programmspeioher zu schreiben, 
Voraussetzung zur Angabe dieser Stelle ist, daß sine Taste 
mit RCL b belegt ist. 

Kurzbeschreibung: Den Mippel durch die Luasche ziehen! 
Ausführliche Anleitung: Man gehe zu der betreffenden Stelle 
im Progrimmspeicher und gabe mindestens 13 neutrale I\-Byte- 
Befehle ein (EITSR), falls die Anzahl der zu synthetisieren- 
den Bytes 7 Überscohreitet jeweils 7 weitere Befehle für jedes 
ıangefingene Register. Dann gehe man zu dem ersten L-Ayte-Ne- 
fehl zurülok und führe RCL b aus, dıraufhin XEQ"BASTEL". Das 
b-Register ist bek.ınntlich entscheidend für die Position im 
Progrimmspeicher. In dem BASTBL-Progrann verarbeitet der Re- 


chner diese Informıtion zu einem Alphastring, der in RO9 
abges;eichert wird. Durch RCL 09, STO b kann man daher 
jederzeit zur "Baustelle" zurückkehren. Auch der Inhalt 
von RO8 darf nicht verändert werden, da sich hier die 
Irforaution befindet, welches Register als nächstes mit 
den angegebenen Bytes besohriftet wird. Das zuerst be- 
schriftete Register ist d.ıs auf die angegebene Position 
folgande,wenn sich die Position .ber am Anfung eines Re- 
gisters bofindet dJisseg Tegister selbst. Auf jeden Fall 
wird kein Eefehl überschrieben, der sich vor der angege- 
bsnen Position befindet. 

Fach X7Q" BASTZL" kommt der Rechner in eine Eingaibesohlei- 
fe. kan gibt hier ohne R/S die zu synthetisierenden Bytes 
ein. Der Rechner zeigt dis letzten Eingaben an, bei ange- 
schiosseren Drucker werden sie Außerdem ausgedruokt. Taoh 
jeweils 7 Rytes ein Register synthetisiert und in den Pro- 
er. ı23spsicher geschrieben. Besondere Zingaben: 


negatives Vorzeichen letztes zu synthetisierendes Byte 
(-256 bei 0) 

XEQ A Abbruch der Eingabe ohne Pesohrif- 
tung des nächsten Registere 

x@QB Zu synthetisierende Bytes bereits 


in ROl-RO7 eingegaben. 
Faoh \nhalten des Frograums kann mın mittels STO b oder SST 
zu dem ersten Bastelregister springen (nach SST ist die Tummer 
des Progrımmschritts nicht korrekt). XEQ"BC" erlaubt es, die 
Eingabe fortzusetzen, es werden dann die den bisher besohrif- 
teten Registern folgenden überschrieben. Falls man erneut von 
dem ereten Bastelregister aus starten möchte: RCLOY, KXEQ"BAS- 
TEL”. 

Anwendung des B\STEL-Progrumns als Key-Assignment-Progranmn: 
1) Dafür sorgen, daß vorher eine gerade Zahl von Tasten mit 
Furktionen belegt sind (Irgendeine Tıste belegen, Relegung 
wisder löschen, falls sich die Anzahl der freien Register 
verringert hat). 

2) Gewünschte T.ısten mit irgendwelchen Funktionen belegen. 

3) 192+Anzahl der zu synthetisierenden Key-Register in ROlL 
eingeber, 1, X2J"BLD” 

4) XS0"BASTEL" 

5) Wie oben beschrieben Aytes der Key-Register eingeben 


6) Sc£. zusatzlichs Belegung nach 1) löschen 


Inzwisohen h.ıbe ich .ıuch eine neues mınuelle Bastelnethode 
erfunden, nämlich uit Hilfe des "Wolf-Bafehle*. Diesen kann 
man uf sine T ıste lagen, wenn man für die beiden Rytes 

zur Destimmung der Funktion 247 und 87 eingibt (statt 87 
auoh ıllas andere “außer O möglich, 87 steht für W wie Wolf). 
Hier die Anleitung: 

“ 

Dieser Befehl entspricht den beiden Bytes 247 und 87 «ls 
2-Ryte-Key-issipmment. Im Progr.ımm-iodus bewirkt er die 
Bing.be eines Alphustringe der Länge 7, er wird aber von 
HP-4AlC als 3-Byte-Pefehl gehalten. Ist beim Eingeber ıber 
keine “usreiohende Lüoke vorhanden, können bis zu 5 Bytes 
von deu Alphastring" aufgefressen" werden. Gibt mın den Woif 
z.B. zwischen zwei ohne Leerbyte aufeinsnderfolgende Be- 
fehle ein, so wird zunächst ein Registers eingefügt, an des- 
sen Anfang der Wolf-Befehl geschrieben wird. Dieser unf«ußt 
aber insgesumt 8 Bytes, so da3 dıs erate Byte des folgenden 
Befehla von dem String absorbiert wird. Man kann dies wieder 
rückgängig machen, indem man den String seinerseits wieder 
auf die gleiohe Weise durch den Woilf-Befehl zerstört. Die 
Handhabung des Wolf-Refehle uls Bastel-Instrument ist ähnlich 
wie die von BCL b/STO b. Hier ein Beispiel: 

1) RCL MD 17, RIM eingeben 

2) zweimal BST 

3) Wolf eingeben 

4) Wolf lösohen 
kit dem Wolf hıt man gleichzeitig das RCL von RCL IED 17 ge- 
löscht, zurück bleibt STO M. 


Soweit der neuste Stand meines NRastel-Labors. Anwenlungs- 
beispiele' werden noch folgen, aber frühestens !:iitte Dktober. 
Danit ich nicht als einseitiger Bastel-Fanatiker verschrien 
werde, habe ioh nooh drei Programme beigelegt, die (f.ıst) nur 
aus normalen Hefehlen bestehen. 

1) PFZ: Zahl eingeben, XEQ"PFZ", Rechner druokt Prinfaktoren- 
zerlegung aus. 

2) VSZE: Reohner bestimmt Anzahl der Datenregister und zeigt 
diese an. Die Geschwindigkeit ist etwa dieselbe, eg+l ob 

O oder 319 Datenregister vorhanden sind, da eine richtige 
Rutestrutegie einprogrammiert ist. x- und y-Register werden 
duroh das Progr.ımm nicht verändert. 

3) &I: Integralprogr.mn 


Taoh X:iQ"xI" alle Abfragen. beantworten und R/S drücken. 
Singabe n bei Sohritte/l bedeutet n Sohritte bei einem 
Integrationsinterv«all der Länge 2, 2n Sohritte bei einem 
der Länge 2 usw. Dıs Zrgebnis der Integration wird an- 
gezeigt und ist auferdem in RI2 gespeiohert. Fach Ausfüh- 
rung der Integr4tion bestehen folgende ilöglichkeiten: 


I a oder einfach R/S Selbes Intervall, aber neuer 
naoh Singibe einer Zuhl Wert für Sohritte/l 
Zıhleneingabe, XEQ A oder Stimmfunktion (zuerst einge- 
nichtlokal X5G" IF" gebene Untergrenze, aber 
neue Obergrenze) 
ımn ol Selbe Funktion, völlig neue 
Angaben 


Vorteil des Progranns: !laoht man nach X5Q"zI”" alle Angaben 
außer der Obergrenze und gibt, falls £ O,den Funktionswert 
an der eingegebenen Untergrenze in Rl2 ein, kann man duroh 
xEQ "IF" oder lokal XEQ A die Stammfunktion eines Tertes 
berechnen, sie vom Drucker plotten lassen oder auch mit 
entsprechenden Programmen die TTullstellen suchen lassen. 


Zu einer ausführlicheren Besohreibung der Programme habe ich 
noment«an leider keine Zeit. 

Yoch ein anderes Thema: An sich braucht man bei der Progr.ıu- 
mierung des HP-41lC mit den Bytes nioht besonders sparsam zu 
sein. Sine Schallnauer ist aber manchmal durch die Anzahl der 
besohrifteten llıgnetkartenspuren gegeben. Deshalb hier ein 
paar v.iöglichkeiten zum Einsparen von Rytes: 

1) Renutzung der Flags 42, 48 und notfalls 50. Diese lassen 
sich nänılich durch die 1-Byte-Refehle GRAD/DEG, AOF/AOFF und 
AVIEX/ CLD steuern. 

2) kan spart sich ein Tyte, wenn man statt RCL L den Befehl 
LAST X benutzt; uber auch beim Speichern in das L-Register 
1ä9t sich ein Byte ein Byte einsparen, wenn man statt STOL 
den Befehl SIGE benutzt (Auch bei Alphastrings möglich!) 

3) Mınohnal kann man zwei Abfragen hintereirandersohulten. 
Ber folgende Befehl wird gen.ıu dann ausgeführt, wenn die 
erste Bedingung nicht erfüllt ist oder wenn die zweite er- 
füllt ist oder wenn beides der Fall ist. Z21B. x4y? x>y? 
entspricht der nichtvorhandenen Abfrage x:y?. 


"Das mag WI den Augenblick genügen. Statt leeren Magnet- 
karten hätte ich diesmal gerne die beweglichen Feiertage 
sowie die U-Boot-Jagd. Ansonsten wünsche ioh noch herzliches 


Deprr 
Ero3aranmin: 


und nooh mehr Spaß beim Bastelnt ti 


Annerkung: EINEM? Zu a 
Ich nöchte Matthias zu diesen beiden gelungenen Beiträgen herzlich 
gratulieren und hoffe „ daß viele Clubmitglieder viel Spaß daran 
haben werden . 

Zumal diese beiden Berichte aber mehr oder weniger "Programmbe- 
schreibungen" sind,ist es sicherlich notwendig,die entsprechenden 
Programme auf Magnetkarte zu besitzen.Ob die wichtigsten Teile 
auch als Bar-Codee im nächsten Quartal erscheinen,s‘eht nicht fest. 
Daher : wersich mehr für dieses Bastelprogramm und alles,was dazu- 
gehört,interesseiert,schicke bitte zehn Magnetkarten an Walter 
Pieperhoff (285) und lege einen adressierten,freigerachten Rückun- 
echlag und eine 59 Pfg Briefnarke bei . 

Ebenfalls von Walter ist ein wenig überarbeitetes Key-Assignnent- 
Programm erhältlich (zwei Magnetkarten) . Alle neuen Mitglieder 
oder diejenigen „ die jetzt erst ihren Kartenleser bekonnen haben , 
sollten dises Progeamm anfordern -, denn es stellt die zentrale 
Rolle in der synthetischen Programmierung dar . Außerdem wird es 

im nächsten Quartal in überarbeiteter Form als Bar-Code erscheinen. 


Fröhliches Basteln Euer 
Oliver 
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Tabelle _ rer Frnrorarme: 


Names: Ontenren,: Prom.Ren.: Zeilen: benötinte Label's: 


ARL 3 7 23 ABL 

LIN 7 17 71 LIN, A, 01-03 
EIN 3 15 54 BIN, 00-05 

DEZ 5 13 77 DEZ, 01-04 

CL a 3 11 CL 

PFZ 3 26 113 PFZ, 01-08 

FN 5 30 114 FN, A=-J, 01-06 


ABL leitet bekannte Funktionen an heliebiger Stelle ab. 

LIN berechnet Funktionsqleichung einer Ger„den durch zwei 
serebene Punkte unf deren Abstand. 

BIN wandelt Dezimalzahl in Binärzahl um, ? 

DEZ wandelt Finärzahl in Dezimalzahl um. 

CL bringt den Rechner in normalen Status zurück. 

PFZ zerleot einr beliebige Zahl in ihre Primfaktoren. 

FN zeigt die x- und f(x)-Werte einer Funktion an; mit 


Fehlererkennung und 1a Sonderfunktionen. 


Ich möchte darauf hinweisen, daß es mönlich ist, Haß die 
Programme "PFZ* und "FN" An der nfchsten Zeit in der 
Zeitschrift "chip" aboedruckt werden! Es ist aber nicht sicher. 


BE SR 


Zum Programm ABL: 


Dieses Pronramm leitet - wie bereits gesant - eine Funktion 
an einer beliebigen Stelle ab, bestimmt also dort ihre 
Steinung, d.h. die Steigung des Giraphen. 

Eigentlich müßte dazu der Grenzwert des Differenzenquotienten 


gefunden werden, also lim ( mshlotix) ). Dles wird in der 


h=o 
Differentialrechnung aber gern als Näherung En deroestellt. 


Dabei soll das h einen mönlichst kleinen Wert haben, mu? aher 
nicht gegen Null gehen, Im Programm habe ich für N 10" nes hlt, 
was in der Regel ausreichen dürfte. Das Programm hat allsrıincos 
die Voraussetzung, daß die Funktion an der Stelle x überhart 
differenzierbar istl 

Input/Dutput: 

Nach XEQ 'ABL erscheint in der Anzeige "FN?"; darauf erwartet 
der Rechner den Namen des Labels, unter dem die entsprechen“e 
Funktion abgespeichert wurde. Nsch R/S erscheint "X?*® woraufhin 
die Stelle eingegeben werden muß, an der die Fünktion abmeleitet 
werden soll. Nach nochmaligem R/S erscheint z.B. "M=0,50n0" 


was die Steigung angibt. 


Die Statusinformationen entnehmen Sie bitte aus der voransırhenden 
Tabelle auf Seite 2. 


Zum Programm LIN: 

Das Pronramm LIN berechnet die Funktionsnleichunn einer Geraden 
durch zwei negsebene Punkte P,(x,/flx,))und P2Cxa/flxz). 

Es wird auch deren Abstand ermittelt. 

Die allgemeine Funktionsgleichung einer Geraden ist f(x)=mx+h. 

Das m ( die Steinuna ) wird berechnet als me(Plx,I-Plx II/Ixy-r,)e 
Das b ( der Schnittpunkt mit der f(x)-Achse wird berechnet als 

1° Als Abstand der beiden Punkte ergibt sich 
nach Pythanaoras: GESARTCXzr DEP RI ID. 

Da in der Regel eine Ausgabe wie "Y=1,00X+0,00*" unerwünscht ist, 


b=f(x,)-max,=f(x, )-max 


wird wenn m=1 ist, m weggelassen, 

wenn b=o ist, b weggelassen, 

wenn b negativ ist "+" weggelassen, 
so daß im obigen Fall das Resultat "V=X" wäre. 
Das Programm erkennt auch ob es sich bei der Funktion um eine 
Parallele zur x-Achse handelt, m also o ist. In diesem Fall 
wird hinter "Y=" nur der Abstand mit Vorzeichen angezeigt, 


Input/Dutput: 

Nech XEQ'LIN erscheint in der Anzeige "X1=" für den eraten x-Wert, 
nach R/S "Y1=" für den ersten f(x)-Wert, nach R/S *X2=" für den 
zweiten x-Wert und nach nochmaligem R/S *"Y2e" für den zweiten 
f(x)-Wert. Die entsprechenden Werte sind jeweils einzugeben. 

Nach Drücken von R/S kommt nun die Funktionsgleichung in die 
Anzeige. Ohne Überlauf der Anzeige können m und b maximal 

39,99 werden. Nach R/S wird die Entfernung der beiden Punkte 

durch "DIST=..." angegeben, 

Durch doppeltes R/S kann das Programm neu gestartet werden, 


Zum Programm BIN: 


Das Programm wandelt eine Dezimelzahl in eine Binär- bzw. Dualzanl 
um. Die Zahl, die umgewandelt werden soll, muß kleiner als 1024 
sein. Die Ausgabe der Binärzahl ist eo geordnet, daß die Zahl 
von rechts nach links gelesen werden muß. Es stehen also die 
Stellenwerte im folgender Reihenfalge: „...,16,8,5,2,1. 

Das Programm untersucht zuerst, ob die Zahl zur Verarbeitung 
klein genug ist, Ist sie das nicht, erfolgt die Ausgabe 

"Zu GROSS". Ist sie es aber, so versucht der Rechner zuerst 

2? zu subtrahleren. Gelingt das, ea führt er diesen Schritt aus 
und addiert 10? zu dem (im Moment noch nicht vorhandenen) 
"Binärwert", dekrementiert den Exponenten (9) und wiederholt 
den Vorgang - nur mit dem Unterschied, deß der Exponent bei 

2“ und 10“ nun um eins kleiner ist. 

Sollte die Subtrektion nicht gelingen, so wird der Exponent 
erniedrigt, ohne daß der "Binärwert" verändert wird. 

Da die nächstfolgende Addition in den "Binärwert"-speicher 

um eine Zehnerstelle kleiner ist, entsteht eine Null in 

der Reihe der Ziffern in ihm. = 

1101" heißt also, daB die ersten beiden und die letzte 
Subtraktion gelungen sind, die vorletzte aber nicht. 

Die so entstandene, maximal zehnstellige Zahl wird vom Rechner 
dezimal aufgefaßt, gestattet aber dank ihrer Darstellung nur 

zu lesen, 


aus Einsen und Nullen sie ale Binäruert 
I, 


mn. 


__ Input/Output: 


Nach KEQ'BIN fragt der Rechner mit "DEZ=* nach dem umzuwandeln - 
den Dezimaluert. Nach Eingebe und R/S folgt die Ausgabe der 
von rechts nach links zu’ lesenden Binärzahl. 


Zum Prooramm DEZ: 


Das Programm wandelt eine Binärzahl in eine Dezimalzahı um. 
Zuerst prüft rer Rechner, ob die Zahl zur Verarbeitung klein 
genug, d.h. kleiner als 1111111112 Ast. Wenn nicht, erscheint 
die Anzeioe "ZU GROSS". 

Der Rechner "nimmt" nun die am weitesten rechte stehende 
Ziffer der Zahl, die von rechts nach links gelesen werden 

muß (1), die ja dem Binären Stellenwert 1 entspricht, 
multipliziert sie mit 2° - also 1 - und addiert den ent- 
sprechenden Wert zu Variablen d, die die umgewandelte Zahl 
darsteilen soll. Der Exponent ( im Moment noch o ) wird 

um 1 erhöht, und es folgt die zweite Ziffer, die mit 2! 
multipliziert und dazuaddiert wird. Es wird also immer die 
n-te Ziffer mit 2"? multilpiziert bis n 10 erreicht. 

Dann muß - laut Vorbedingung darf die Zahl höchstens zehnstellig 


sein - die Zahl " zu Ende * sein, 


Input/Dutput: 

Nach XE2'DEZ verlangt der Rechner mit "BIN=?7"* die Eingabe des 
umzuwandelnden :tertes,. Nach R/S zeigt der Rechnerdie die 
entsprechende Dezimalzahl in gewahnter Reihenfolge ( die 


Einerstelle ganz rechts ) en. 


Zum Programm [L: 


Das Programm CL ist zwar nicht sehr kompliziert, aber 
trotzdem recht praktisch. 
Es ist dazu da, den Rechner wieder in den normalen Status 
zurückzubringen, nachdem er z.B. durch ein Programm in 
weniger zweckmäßige Modi gebracht wurde. 
Das Programm löscht Stack ,Register,alphe-Register,die Flags 24 
und 25, setzt Flag 29, wählt das Anzeigeformat Fix &b.und 
des Winkelmaß DEG,. , ! 5 
Es ist günstig, dieses Programm einer bestimmten Taste 
zuzuordnen, denn ao können alle aufgezählten Funktionen 
mit einem Tastendruck ausgeführt werden. 
Das Programm ist wie gesagt nicht sehr kompliziert, hat 
eber trotzdem zwei unübersehbare Vorteile: 
1) das Programm benötigt keinen Kartenleser. Es ist klar, 
daß eine entsprechend beschriebene Statuskarte wesertlich 
besser die Aufgabe erfüllt, zum Normalstatus zurückzukehren, 
als dies Programm ( de z.B. Size nicht programmierbar ist ), 
aber es 1st ebenso klar, daß die Möglichkeiten einer 
Statuskarte für HP-41c-Besitzer, die keinen Leser haben 
unerreichbar sind. 2 
2) selbst wenn ein Kartenleser vorhanden ist, geht die Aus- 
flihrung dieses Programms immer noch schneller als dae 
Einlesen der Karte und ist vor allen Dingen schonender 
für den Kartenleser, der ja bekanntermaßen nicht allzu 
robust ist. Außerdem spart man mit diesem Programm 
den Batteriestrom für den Leser. 


Zum Programm PFZ: 

Das Pronramm zerlent eine beliebine nanze Zahl größer als 
eins in ihre Primfaktoren. Sollte nie Zahl diese Bedingungen 
nicht erfüllen, wird Mies vom Re:hner mit "NICHT ZERLELBAR" 
angenehen, Der Rechner erkennt auch, nh es sich um eine 
Primzahl handelt. Zunächst wird die Zahl, falls sie kleiner 
als acht ist, oesondert untersucht. Das liegt daran, daß 
Wurzel aus sieben kleiner als der erste feste Testdivisor 

( drei ) ist. 

Dann wird die Zahl auf ihre Teilbarkeit durch zwei, denn drei, 
fünf, ‘sieben, neun und so weiter untersucht. Ist sie teilber, 
wird der entsprechende Divisor angezeigt, die Zahl durch ihn 
geteilt, und dieser Schritt so lange wiederholt, bis sie 
nicht mehr durch diesen Divisor teilbar ist. Dann uird der 
Divisor um zwei erhöht und wieder die Teilbarkeit geprüft. 
Das geht so lange, bis der Divisor größer als die Wurzel 

aus dem Anfangswert wird. Ist bis dahin noch keine Ausgabe 
eines Divisors bzw. noch keine Teilung erfolgt, muß es sich 
um eine Primzahl handeln. Das wird vom Rechner mit "PRIMZAHL" 
angezeigtgab es bereits eine Zerlegung, 1l4uft das Programm 
normal weiter bis der Divisor größer als die Hälfte des 
Anfangswertes wird. Ein Weiterführen der Untersuchung über 
diesen Punkt hinaus wäre sinnlos, da dann der nächst Divisor 
kleiner els zwei sein müßte, was aber unmöglich ist, 


Input/Uutput: 
Drei Beispiele für den Dialog: 
1.) für eine zerlegbare Zahl: 
XED'PFZ; in der Anzeige erscheint "Z=?*". 
Nach Eingabe der Zahl (z.B. 90) R/S. 
Nach ca. 5 sec ist die Ausgabe beendet (2,3,3,5,)«. 
Für 1024 werden 10, für 1600 9sec benötigt. ‚ 
2.) Für eine Primzahl: 
XEU'PFZ; in der Anzeige erscheint "Z=?7*. 
Nach Eingabe einer Primzahl (zd. 157) erscheint in der 
Anzeige (hler nach ca. 5 sec) "PRIMZAHL® 
3.) Für eine nicht zerlenbare Zahl: 
Der Rechner nibt nach knapp einrr Sekunde "NICHT ZERLEGBAR" 


Zum Programm FN: 

Das Programm gibt nacheinander schrittweise die x- und f(x)-Werte 
einer zuvor eingegeben Funktion aus. Dabei werden Definitilons- 
lücken erkannt (wie z.B. x=0 bei der Funktion 1/x). 

Es ist zwar kein allzu kompliziertes und anspruchsvolles 
Programm, aber. ich kann als Schüler der gymnasialen Oberstufe 
bestätigen, daß es zumindest in diesem Bersich sehr nützlich 
ist und oft angewandt wird. j R 

Die doch etwas merkwürdige Struktur des Programms mag auf 

den eraten Blick unsinnig erscheinen, aber es ist auf den 
HP=-41c nicht anders möglich, die Anzeige auf gleiche Art 

mit einem einfacheren Prögramm darzustellen ( es erscheinen 
dann immer am Ende der Ausgabe einige Zeichen, obwohl das 
wegen vorherigem FIX 2 und CLA's eigentlich nicht passieren 
dürfte ). 

Zur Fehlererkennung benutzt daa Programm das Systemflag 25 

das - zuvor gesetzt - nach einem mathematischen Fehler 
geldösscht wird. \ 


\ 


Input/Output: r 


Nachdem das Programm eingegeben ist, muß nach GTO.. nach 
die Funktion als Programm eingegeben werden, deren Werte 
berechnet werden sollen. 
Hier zum Beispiel: GTD,. 

01 LBL'!1/X 

02 1/X 

03 RTN 

ob END 
Nun kann das Programm mit XEQ'FN gestartet werden. 
In der Anzeige ergfheint “FN?". Der Rechner verlangt dadurch 
den Namen der ae Funktion. Nach der Eingabe: 
san R/S. In die Anzeige kommt "STEP?". Damit fragt der Rechner 
nech der Schrittweite, in der die einzelnen x-Uerte folgen 
sollen. Nach Eingabe der Schrittweite (hier ‚1) R/S. 
Der Rechner fragt "AB?". Nun soll der Anfangswert für das 
erste x eingegeben werden. Hier z.8. -1. mit der nun folgenden 
Ausgabe "RUN/STEP?" fragt der Rechner, ob die Werte fortlaufend 
ohne snzuhalten (RUN) oder schrittweise (STEP) durchlaufen sollen, 
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Die Einnabe "2" für "STEP" 1st dann sinnvoll, wenn man rlle 
einzelnen Werte z8. in eine Tabelle eintragen will. 

Die Eingabe "1" für "RUN" ist dann zu empfehlen, wenn man sich 
nur ein Bild vom ungefähren Verlauf der Kurve machen will. 

Bei "STEP" erwartet der Rechner nach jeder Ausnabe R/S. 

Nech der Einsrabe R/S drücken. Der Rechner beninnt nun mit der 
Programmausführung. Bei "RUN" folnen die Werte je nach Länge 
der zu berechnenden Funktion im Abstand von etua einer Sekunde. 
In der Anzei1g- erscheint ( hier bei tier Funktion 7/x ): 

"x1,C0 F1,00", Dabei steht "X" für "X-Wert:" und "F* für 
"F(X)-Jert"”. Das Anzeigeformat ist auf zwei Nachkommastellen 
beschränkt, was aber in der Regel nenügen dürfte. 

Bei der Funktinn 1/x erscheint bei x=o in der Anzeige: 

"x8,00 ERROR". Das bedeutet, daß die Funktion’ für den 
betreffenden x-Wert nicht definiert ist. 

Normalerweise würde das zur Fehlermeldung “DATA ERROR" führen 
nach der das Prooramm anhalten würde. Das wird aber hier umgangen, 
und der Rechner fährt mit dem nächsten x-Wert fort. 

Das Programm läuft so lange weiter, bis es durch R/S geatoppt 
wird. 

Soweit zum normalen Programmablauf. Die letzten 53 Zeilen 

( ab LBL A ) wurden bislang nach nicht berücksichtigt. 

Sie enthalten 10 Sonderfunktionen zur Programmausführung. 
Diese sind den oberen zwei Tastenreihen zugeordnet; es 
empfiehlt sich, die einzelnen Funktionen auf der Magnetkarte 
oder einem Overlay zu markieren, da es sonst leicht zu 
unbeabsichtigten Funktionen kommt. 

Sind diese Funktionen ( oder einige davon :.) unerwünscht, 

so genügt es, die betreffenden Labels zu löschen. Der 
Pronrammrumpf bedarf dabei keiner Änderung. 

Die Funktionen sind folgendermaßen auszuführen: 

Wenn das Programm im "STEP"mode bei PROMPT anhält, bewirkt 

z8. der Druck auf die Taste "LOG": xXEN D. Die Funktion wird 
ausgeführt, und der Rechner kehrt selbsttätig zum Hauptpraonremm 
zurück. 

Im "RUN"mode ist es etwas schwieriger: kurz nach Erscheinen 
der Anze)ne Ast zurrat auf R/S zu drücken und dann auf dir 


entsprechende Taste. 
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Ole zehn Funktionen, die das Betrachten einer Kurve 
wesentlich angenehmer machn sind die folgenden: 


Label: Symbol: 
EN 
Stepa2 
Step/2 
>Run 
>Step 

Xz 


Sek ron mono >» 


Funktion: 

letzten Wert zurückrufen 
Schrittweite verdoppeln 
Schrittweite halbieren 
Stepmode umwandeln in Runmade 
Runmode umwandeln in Stepnmode 
neue Eingabe für x-Uert 
Laufrichtung umkehren 

x-Wert mit (-1) multilpizieren 
Schrittweite gleich x-Wert setzen 
neue Eingabe für Schrittweite 


LBL"ABL i 
END 48 BYTES 
LBL’CL 
END 23 BYTES 
LBL’BIH 
END 99 BYTES 
LBL"DEZ 
END 92 BYTES 
LBL'PFZ 
END 179 BYTES 
LBL'FN 
END 213 BYTES 
LBL’LIN 
END 121 BYTES 
Bi+LBL "ABL* 
FH?" AON PROMPT 
ASTO BB AOFF X?" 
PROMPT STO 81 1 E-5 u 


xEQ IND BB ENTER | 
RCL 81 XEQ IND EB - | 
LES 7 STOR2 | 
ARCL 82 PROMPT END | 


BIeLBL "CL’ Ä 
CLST STOL CLRG CLA 
CF 24 CF 25 SF 29 | 
FIX 4 DEG END | 


el+LBL "BIN 
CF 29 FIX 8 CLRG 
9,98881 STO 81 "DEZ=" | 
PRONPT STO 88 1824 
X=Y? GTO 64 


13+LBL 68 | 
2 ENTERt RCL 81 INT; 
Ytk RCL E98 XOY Kat? 
GT0 81 DSE 81 GTO 88 


GTO 82 


26+LBL 81 
RCL 61 INT 181% 
ST+ 0@2 2 RCL Bi INT 
YtX_ ST- 88 RCL 88 
x=8? GTO 83 DSE 61 
GTO 88 


4i+LBL 82 
RCL 08 X=8? GTO 83 I 
SIT & 


47+LBL 83 
VIEW 82 GTO 85 


SO+LBL 4 
"ZU GROSS" PROMPT 
S3+LBL 85 
END 


BL+LBL "DEZ 
CF 29 CLRG ‚B1aBl 
STO @1 "BIN=?* PROMPT 
STO @2 1111111112 
x=Y? CTO 83 

i2+LBL 81 | 
RL E62 19 7 FRE 10 
* STO.d4 ST- 92 10 
ST 82 RCL 82 RCL 84 
2 ENTER? RCL 81 IN 
YeX »* ST+ 03 RCL 82 
X=9? 610 82 ISCA | 
cT0 ei 

37+LBL 82 

VIEH 83 GTO 4 


48+LBL 83 


| 
| 
ZU GROSS” | 


PROMPT! 


43+LBL 84 
END 

BI+LBL "PFZ" | 
FIX 8 CF 08 CLST 
-7=?° PROMPT STO 88 
STO e1 INT RCL B1 
xsY? CTO 85 RCL BB 2 
xY? GTO 85 RCL O8 8! 
x)Y? GTO 88 CLA 


22+LBL Bl | 
RL O1 2 7 ENTER? 

ReLeI 2 7 INT Xer?, 
6T0 83 3 STO 82 | 


I5LBL 02 
RCL 81 RCL O2 7 
ENTER? RCL 01 RCL 82 
+ IN X”? 61084 2 
ST+ 82 RCLO8 2 7 
RCL 82 XY? GTO_86 
FS?. 088 GTO 082 RCL 82 
RCL 88 SORT X)Y? 
6T0 82 CLA 

62+LEL 07 
"PRINZAHL” AYIEN 
GTO 86 

66+LBL 95 

"NICHT ZERLEGBAR" AVIEN 
6T0 86 

?O+LBL 83 

-F2,° AVIEN SF 08 2 


ST/ RCLBL 1 %=r? | 
| RCL 2 cHS RM - 


CTO 86 CTO @t 
BIeLBL 84 
a | 
SF @B RCL 2. ST7 81 
RCL 61 1 K=V? 6TO.86 
CT 82 
9ZeLBL 88 
CLA RCL@B 2 - X=8? 
CTO 87 RILEB 2 7 | 
ENTER? RELBB 2 7 
INT %=Y? CTO 81 
cT0 97 


411+LBL 86 
CF 08 END 


ARCL 62 AVIER |. 


e1+LBL "FR" 


STO 82 GTO 93 
I3HLBL G 
RCL 81 CHS STO ai 
GTO 83 

98+LBL H 


STO 82 CTO 83 


: SF 27 FIX 2 *FN? AON 
PROMPT ASTO 88 AOFF 
"STEP?" PROMPT STO Bt 
AB?" PROMPT STO 82 
-RUN/STEP?" PROMPT 3 
+ 570 9 
a as u 
XEQ IND 88 STO 84 FIX 2 "X1=9" PROMPT 
FS? 25 C6T0 82 RCL 93 n u RU 
5 - x=8? 610.86 CLA = 
"X = ARCL 02 °+ ERROR" n ee ge PROMPT 
3 w 
ae RCL 82 RCLBB - 
ARCL O4 CO mag REEL - CAS sroes 
' RCL 02 RCL 88 - xt2 
45+LBL 83 
RCL BL ST+ 82 CTO A a a Be 
4ILBL 84° a 
AVIEN CTO 83 
RCL 84 X=8? CTOA 
S2elBl 65 | ARCL 84 
PROMPT GTO 83 
SSeLBL 86 48% 
CLA X" ARCL 82 „sesLBL Ol 
=+ ERROR" PROMPT 
cTo 83 SBeLBL A 
beeLBL A | REL 85 SICH -1 =Y? 
RCL BI 2 * ST- 02 CTO 82 RCL 85 x=9 
CTO 83 | 61083 Fr" ARCL 05 
68+*LBi B 6T0 83 
RcL BI 2 STe at 
cTo 03 62+LBL 82 
T3eLBL C ARCL 85 
ReLAL 2 ST ei 
gTo 83 | 64+LEL 83 
TBrLBL D | FIX 2 PROMPT FIX 5 
4 ST0 83 CT0 8; is ARCL 86 PROMPT 
B2+LBL E 
5 STO 83 CTO 83 
B6eLBLF f 
"X=9- PROMPT RCL 81 -. 


| 


185+LBL I 

RCL 82 STO BI CTO 83 
109 LBL J 
"STEP=?" PROMPT STO Bi 


GTO 83 END 
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Kommentar zu den Flußdiagrammen: 


"BIN®: 

x: einneorhene Dezimalzahl 
a: Laufwert zur Potenzierung 
b: zu berechnender Rinärwert 


RPFZM:. 
z: einnenehenr Zahl zur Zerlegunn 
a: Laufwert ( Testdivisor ) 


x: x-Wert 

s: Schrittueite 

m: Entscheidung für "RUN" ( m=&u ) oder "STEP" ( m=s5 ) 

Der Befehl "al:f(x)" bedeutet: die normale Ausgabe ( ohne 
Fehleranzeige ) wird in das alpha-Register geschrieben, aber 
noch noch nicht angezeigt. Das geschieht - je nachdem, nb m=% 
oder m=5 ist - in Label ob oder 05. Das Ausgabesymhnl "ERROR" 
bedeutet: der Trxt mit der Fehleranzeige *".... ERROR" wird 

in das alpha-Register geschrieben und je nach den neben 

den Svmbolen stehenden Befehlen per PRDMPT oder per AVIEN 


ausnereben, 


"DEZ?: 
x: eingegebene Zahl ( binär ) 
z: am weitesten rechts stehende Ziffer von x 


d: zu berechnender Dezimalwert 


“LIN®;: 

x1,y1,x2,y2: Koordinaten der beiden Punkte 

m: Steigung der Geraden 

b: Schnittpunkt der Geraden mit der y-Achse 

d: Entfernung der beiden Punkte 

Der Befehl "al:....* bedeutet: den entsprechenden Text ina alpha- 
Register schreiben, aber noch nicht ausgeben 
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FluAdlanramm zu Pronramm "PFZ*®: 


a 
or) © Pamranı 
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. Flußdiagramm zu Programm "FN": 


Pe | e 
hei 
in 
(02) al: [oo m:52 
Fr eoet 
ee 
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Flunfiarnramm zu Pronramm "DEZ": 


N 
Dante > (03) lv 6oRosr 


we x 
Pr] 
INT(a 
drd+ te 
ya 


Flußdiagramm zu Programm "LIN®: 


"HPLC 


Unterprogramm RUKUN: Differentislgleichungssystem nach 


Runge-Kutte 

Gegeben seien N (gekoppelte) Differentisigleichungen erster 
Ordnung: 

day, 

dx 
mit den N Anfengsbedingungen 
(£) 
Y 


= v = ra, Yarı.. Yy? ie 1... N 


(8) 
y‚x )= 


(m und m punkt- 


Die Lösungen vo werden -susgehend von x 
ueise durch Anwendung des Verfahrens von Runge-Kutta berechnet3 
zu einem kleinen Zuwachs h in x wird in vier Stufen ein kleiner 
Zuwachs a, in Y ermittelt. Der Index i läuft jeweils von 1 bis N. 


ı_,m, 1ı,,(0 


1. Stufe: x ı vv“ 
1 h 1 I I 
Kı = zut,x ’ Yar ... Yn? 


II c h II (g) „I 
2. Stufe: x = x P),n; v, =yı +kı 


11 h II 1I II 
k, zart » Yan “ee Yy ) 
3. Stufe: gi = „13, yanı = yeuzt 
ae eree i i i 
111 h il I1l l1ll 
= zur,“ Yan eee Yy ) 
4. Stufe: „IV = „Pin; yo = VD ezunı TI 
Iv h, , „IV Iv IV 
k, - zuf, x Ya ee Yy ) 


Die neuen Punkte der Lösungsfunktionen ergeben sich mit 


4 I 1I 111, ,IV 
q, * zulk,+2uk, +2uk,  +k, ) zu 
„m e „m, n; er = vi, q, 


61) vo wieder als An- 


Für den nächsten Schritt sind die x A 
Fangswerte „RT. „in zu interpretieren, woraus sich dann wie- 
(DD m 

I 


der die nächsten Punkte x 5 ergeben usf. 


RUKUN muß als Untzrprogramm von einem Hauptprogramm eufgerufen 
werden, das folgende Aufgaben erfüllen soll: 
1. Ggf. Zuweisung von „D ye und h zu den entsprechenden 


Registern (siehe Speicherplen) 
2. Ggf. Zuweisung des Funktionsnamen für die f, (B. u.) 


) 


en des WEgister Ra7° 
3. Ggf. Erzeugung einer Schleife, die nur nach jedem m-ten 
Integretionsschritt Ergebnisse susdrucken läßt. 
4. Bildung der auszudruckenden Funktionswerte aus den „13, yı». 
5. Anzeige bezw. Ausdruck der gewünschten Werte. 
6. Beendigung des Programmes bei Erreichen eines Enduertes Ke- 


Des Funktionensystem der f, (li = 1... N) muß vom Benutzer pro- 
grammiert werden, beginnend mit LEL "FN®, endend mit END, wobei 
"FN® ein beliebiger Funktionsname (max. 6 Alpha-Zeichen) ist. 


Speicherplan: 


Run: Adresse für dynemische gu? N 


Speicherzuweisun z 
°P zuweisung Ryg} btartänresse > - 


Rag: Schleifenzähler für N Age! Inkrement h 

Rg2: 5-1 Ran: “FN“ 

Agzt «1; „il, „TIL, „Iv Ayas „B), „ı”D 

Ro Ro 140 D ri; ae > 

Ran "Rg-aran? YarooYn 

Rosan“Rs-aran? var ygi ..; ven 

Rassen kasseknt PER. Ku as 

Ro un“ "Rs-as5n° Irssilnı ...; Erg (Zuischersumnmen der k) 


Die Speicher Ryan bie Rya eind fest belegt, währenz die übrigen 
Speicher, in Anpassung an N und an die Komplexität des Funktic- 
nensystems der f, dynamisch zugewiesen werden könren, beginnend 


mit Ru und endend mit Ro 1450? S wird in Ras festgelegt. 


Die Funktionen f, im Unterprogremm "FN" sind mit den Argunent- 
werten aus den Speichern Ry3 und Ro son "Rs-143n zu bilden und 
denn nach Ron“ Rs-1+2N sbzuepeichern. 

Beispiel: 

Im folgenden wird die Differentislgleichung y* = -y mit den 
Anfengsbedingungen y(B) = B; y’(B) = 1 zugrundegelegt, deren 
Lösung bekanntlich y(x) = sin x (x in Raedien) lautet. 


Durch y]) = y und y, = y' wird hieraus ein SWWtem von 2 Dir- 
ferentislgleichungen 1. Ordnung: 

v=% vD=- 8 

va=-y, v2.) - 1 
Der Einfachheit halber soll Rag des erste Register des dynani- 
schen Speicherbereiches sein, also 5 = 9. Wegen N = 2 lautet 


denn das Funktionsunterprogramm für fı und f, mit dem Namen 
ABLEIT: 


LBLTABLEIT CHS 

RCL 14 sTo 12 

sTo 11 END 

RCL 13 
Das Hauptprogramm HAUPT geht von folgender Speicherbelegung aus: 
2 . t _ 2 . - . = 
Pay: = 2 Pas! S=9 Ryo! h= 2.1 

k (2) R 

Rag: v2(2) = 1 


weiterhin wird von HAUPT verlangt, deß nech jeweils 18 Integra- 
tionsschritten x und y;, zur Anzeige gebracht werden. Für diesen 
Schrittzähler wird der hinter dem hier definierten dynamischen 
Speicherbereich liegende Speicher Rıg benutzt. 


Das Hauptprcgrammn hat dann folgende Gestalt: 


LBLTHAUPT ARCL 99 
12 AVIEW 

sTto 19 LEL 91 
CLA XEQTRUKUN 
Fix ı DSE 19 
ARCL 88 GTO 91 

br GTOTHAUPT 
FIX 6 END 


(#8 bedeutet SPACE) 


Nech der Speicherfestlegung durch XEQ SIZE B2B wird das Pro- 
gramm durcn XEQ HAUPT gestartet. Ein Vergleich der -nach je- 
weils etwa 178 s Rechenzeit- erhaltenen Werte von x und v0) 
mit den im RAD-Modus direkt errechneten Werten von yı.= ein x 
zeigt, daß das Programm fehlerlos arbeitet. 


Die folgenden Seiten enthalten die Struktogramme von RUKUN und 
seinen Unterprogrammen nach Nassi-Shneiderman sowie das voll- 


ständige Listing. 


Hamburg 73, den 23.83.1988 K. W. Hoenow 
Alaskaweg 18 


Unterpi ® mm RUKUN 


Speicherbelegung bei Programnstart: 


s P . „(m 
Ru: N Rays! [1 Ros B 2 

3 5 Mi 2) 
Rys! 5 Ra7? "Fn® Ro_ 441° vs i=1...N 
5-1 —Rgn 


a a a a a 


Flegs 83 und B4 löschen 


Speicherbelegung bei Programmende: 


wie bei Stert, jedoch Rga° „m 


R 


w 


DD , 
5=- 144° Yı ie1...N | 


Unterprogranm B2 
Speicherbeleguna bei Progremmatart: 


Rau ı N 


Rai 


yi” 4=1...N 


Ro-as3ns4° Kı 1e1...N fells Flag AA gelbscht 


(8) 
YuTYa Rs ar2n41 


= Fleg 89 gesetzt? 


Yymytkme Ro a4znsi 


Flag B1 gesetzt? 


YvyrKk—mRS_ ranH 


Unterprosramn "Fn® 


Speicherbelegung bei Programnstart: 


R 1=1...N 


S-1+2n+1° Vi 


D i221...N 


vimf, O0 Yan seem Ro auna 


Unterprogramm 95 


Speicherbelegung bei Programmstart; 


Ras ’ n 
Ro_a4 8 yo falle Flog B4. gelöscht 
Ren F Vi 
Ro_ 44041? 1, falls Flag 92 gelöscht 
1=1...N 
ieN, 1, -1 
k AL t——R 
12V S-1+3N+i 


Flag %2 gesetzt? 


nein 


l,ck, ——R 


le Rund 


> Fleg 23 gesetzt? 


5-1+1uN+1 


. (9_ (8) 1 


z - 171. 


27 Register 


LBLTRUKUN 
RCL B5 
1 


BB5 STD 82 
RCL 88 
sTo 83 
Sr 28 
xEQ 82 
BıB cr ag 
xEQ IND 87 
SF 92 
sFr Eu 
xEQ B5 
B15 CF 82 
RCL 88 
RCEL B6 
2 
/ 
222 + 
sTo 83 
sr 21 
xıEQ 92 
xEQ IND 87 
B25 SF 83 
x£Q 85 
xEeQ B2 
xEQ IND 97 
xEQ 85 
B3R RCL 88 
RCL 86 
+ 
STo 93 
sto da 
B35 CF 91 
xEQ B2 
xXEQ IND 87 
CF 83 
CF Bu 
BLB xEQ B5 
RTN 
LöL 82 Unterprogramm 
RCL Bu 
sT0 81 
Bu5 LEL 83 
RCL 81 
RCL 82 
+ 
sSTo £3 
B5A RCL IND BB 
REL 84 
2 


[\ 
ST+ 88 

855 RON 
STO IND BA 
FS? 88 
GTO Au 
RCL 84 

BSA ST+ BR 


LIT 


B85 


EL 


895 


128 


195 


118 


115 


BB 


Ba 


2a 
BB 


28 


Ba 


10 - Mikte Gauß - Quadratur 


Das folgende Prograsm benutzt die 10 Fkte Quadratur 
nach Gauß „ um schnell und genau das Intesral einer 
als Tastenfolge definierten Funktion zu terechnen „ 

Die Funktion muß als globales Latel definiert ver 
den „ Bei Aufruf der Fkt ist x im X-Register vorharden. 
Zur Programmierung steht der Restspeicher , der Stack 
und die Datenregister ab R 17 zur Verfüzung . 
Singularitäten oder Diskontinuietäten der Funxtion 
verursachen einen Abbruch der Integration . Diese Schrie- 
rigkeiten können nit stückweiser Integration behober 
werden 


GLEICHUNGEN . 


B 40 
) b-a z,(b-a)+b+a 
J I(x)dx = a 2 wtf (- a +b+a__ ) 


LrA 
wobei : 2,” +.1468743390 26* .21°9263825 
25= .2955242247 2,7” „8650533657 
2,” 4553953941 Zg= +144.513092 
2,= »2692667193 zg" -9752065235 ‚ 
25” -6794095683 21.” 6667134430 10 ' 
BEISPIEL . 
10 
f 2 dx = In 10 = 2.302585093 
P7 


Die Integration mit diesem Progrann liefert : 2.302578678 
( N=1) 


Lbl AA INPUT TASTEN DISFLAY 
ax 
RTN XEQ 6Q ke? 

10 R/S B=? 

ı R/S li=? 


4 R/S FUNZZ 
AA R/S Fa2.5025 


"2753 IMSTRUKDICHSN 


NFÜT TASTEN OUTPUT 
A)sin"abe Lbl — 
Fit .-o... 
Run 
").nvahl Frei xE, GG‘) Az? 
A R/S B=? 
B R/S N=? 
N R/S FUNCTION WANIE? 
Name K/S F=- ---- 
3)Zintzne A/B x)a siehe ?) 
A)sinzabe N XQ A N=? 
N R/S F= ---- 


weiter 1),2).,3),4). 


Beneriungen : 


2) siehe Frorrammlinie 026 : Function Name? und ff 
Für Besitzer des EATH1A Hoduls : X2Q ROM XFN 


2) Frosrar.linien 058 , 063 „ 075 X4>X erfüllt die 
zun=tion einer HCP - Funktion . 
Einzureken als : Xb: Alpha XZ2>Alpha . X 


3) Prosrarm eingeben ; Daten eingeben in folgende Register: 


Rep lir. Konstante 
PAg] 
& z2 
9 23 
1C zu 
11 z 
12 z6 
13 z7 
24 ze 
15 29 
16 210 
Dice Daten sind mit 7,016 XEQ Alpha WDTAX Alpha 
auf eine Kartenhälfte zu beschreiben . 


DETLEV BOCK 


Tg BiKkTE GAUS QUADRATUR 


g1+LBP -caQ- 
82 1.488743 
39 E-1 

83 STOo 97 
084 2.955242 
247 E-1 

85 STO a8 _ 
86 4.333953 
941 E-1 

87 STO 89 
088 2.692667 
193 E-1 

83 STO 18 

18 6.794995 
683 E-1 

11 STO ı1 

12 2.190663 
625 E-1 

13 STO 12 

14 8.659633 
667 E-1 

15 STO 13 

16 1.494513 
492 E-1 

17 STO 14. 

18 9.739865 
28 E-1 

19 STO 15 
28 6.667134 
43 E-2 

21 STO 16 

22 CLST 

23+LBL a 

24 "B=?" 

25 PROMPT 

26 STO 01 

27 -A=?" 

28 PROMPT 

29 STO 88 

38 SF 08 


34 RCL 61 
35 RCL 88 


37 8<>Y 
+ 
39 2 
7 
41 STO 82 
42 SF 88 


43 RCL 88 
44 RC>Y 


46 STO 93 
47 "FKT NAM 


48 AON 
49 PROMPT 
50 ASTO 85 


si AOFF 
52*LBL E 
53 RCL 83 
54 RCL 82 
55 + 

56 LASTX 
57 + 
58 RCL 61 
59 x<=Y? 
68 GTO e 
61 X<>Y 

62 STO 83 
s2 8 

64 FS?C 88 
65 STO 04 
66 6 
67 STO 86 
68 XEQ b 
69 XEQ b 
78 XEQ@ b 
71 XER b 
72 XE@ b 
”3 GTO E 
74+LBL b 
75 ISG 8 
76 x> x 
77 RCL 93 
78 RCL 92 
793 RCL IND 
86 

80 * 

81 - 

82 XEQ@ IND 
es 

83 ISG 86 
84 X<> X 
85 RCL IND 


. 86 P 


86 * 


181+LBL e 


182 
1983 
104 
185 
106 
187 
188 


RCL @2 
RCL 64 
E ; 

-F= . 
ARCL X 
PROMPT 
END 


ty 


VLERSCHE GAITAFUNKTION 


Die Eulersche Gamrafunktion ist in der Zahlentheorie bis 
zur theoretischen Fhysik eine oft verwendete Funktion . 
Sie ist durch ein uneigentliches Integral definiert : 


P@) = fetrrta ‚ PC4) = In" 


und von C.F.Gauß für alle x/0,-1,-2,... durch den Grenzwert 


n!n? 


ı 
. n 
Po) = Lim, x(xrA) (xt2)... (x+n) 
erklärt . (n!- eXldEn nit positiv-reellem Logarithmus) 
Bei diesem Programm ird als \öherungsberechnung für die 
Funktionswerte die Stirlinssche Formel benutzt : 


x ri 
ro) ar re 
Für x840 liefert das Prosrann ein Ergebnis mit einem Fehler 
von 10”’ dis 10” „ Für x<45 wird Gamma von x nit 


R BERN LS DEBEREEN 
ro) FmE-NEI ... = 


wobei z=45+Dezinalteil vonx . 


DISTRUKTIONEN .z 


DSiPUT' TASTEN DISPLAY 
A)nur beim x XEQ GM Ix).—— 
1.Durchlauf 
2) x A 8.0. 


Anmerkung : ber Verwendung eines Druckers kann das GANNMA- 
Symbol nit " 7 ZEG Alpha ACX / ACCHR Alpha " 
erzeugt werden - 


DETLEY BocK 


PRP = 


45+LBL 09 
81*+LBL "GAM 46 1 
MA- 47 - 
82 CF 28 48 STO 83 
03 FIX 3 49 LN 
84 RAD 58 LASTX 
85 CF 01 S1 * 
086 X<=9? 52 LASTX 
87 XEQR 098 53 - 
88 STO 91 54 LASTX 
89 FRC s5 12 
18 xX=9? 56 * 
11 GTO 82 5?’ 1/8 
12 45 58 + 
13 RCL @1 59 ETX 
14 x>Yy? 68 RCL 83 
15 GTO 89 el PI 
16 RDN 62 * 
17 + . 63 2 
18 STO 92 64 
19 RT 65 SORT 
28 - 66 * 
21 STOo 94 67 RTN 
22 RCL 82 
23 xEQ@ 09 68+LBL 88 
.24 RCL 82 69 SF 01 
78 CHsS 
25+LBL 01 ?i RTN 
26 1 
27 - 72+LBL 083 
2e 7 73 RDN 
29 LASTX ”4 GTO 88 
38 DSE 04 
31 GTO eı 75*LBL 82 
32 FC? 01 76 LASTX 
33 GTO 83 er 
34 %* ‚8 - 
35 PI 9 FS? 01 
36 7 88 ı E2 
37 RCL 91 81 FACT 
38 LASTX 
39 82*LBL 98 
48 SIN 83 "IcxX)=- 
am 84 ARCL X 
42 17/X 85 AVIEN 
43 CHS 86 „END. 


ACHT DAMEN PROaLEN 


In CHIP wurden schon öfters Programme zur Lösung dw 

8 Dasen Problems vargestellt,aber noch nicht für den HP41 c 
Diese Tatsache hat mich veranlaßt,ihnen ein solches 
Prograsa zuzusenden. 

Bei dliesz= Spiel handelt es sich darum,acht Damen auf 

einem Schachbrett so aufzustellen,daß kaine die andere 
schlagen kann, 

Das Programm wird mit XENTDAHE gestartet.Es werden alle 
zulässigen Konfigurationen susgegeben(92),denn gibt der 
Rechner einBeep und schaltet ab.Um sich die Lösungen noch 
einmal anzusehen schaltet man den HP=-41c wieder ein. 

Er bringt dann "DIE-LOESUNGEN:* ins Display und zeigt 
nacheinsnder,begleitet von einem ker-Ton,die möglichen 
Aufstellungen an. 

Beispiel: 


UM ALLE LÖSUNGEN IN DEN DATENREGISTERN UNTERZUBRINGEN, 
BENÖTIGT MAN ZWEI MEMORY MODULLEI , 
Ausweg: Man 1580t die fünf Befehle (PSE PSE STD IND 14 
1 ST+ 14) vor Label 87 weg und fügt stattdessen 
einen STOP-Befehl ein.Allserdings ist dann dis 
Anzeige der Lösungen nach dem OFF nicht mehr 
»nöglich. 2 


Andreas Weiler 


Listingliegt bei. 


Lietings 


"LELTOANE 

ELRG 

FIx 8 

CF 29 

15 

sto 14 

8 

sTo gg 
sLeL Bd 

[:) 

STO InD 88 

DSE BU 

GTO #9 

7 

sto 89 
»LaL 91 

RCL IND 99 

X=#? 

GTo 18 

[:) 

sTo 18 
“LBL B2 

RCL 18 

RCL 89 

x=d? 

GTO 84 

sto 11 

sTto 12 
»LBL 83 

RCL IND 19 


RCL BB 11 


+ 
sTO 13 

RCL IND 89 
x»f? 

GTo 97 

REL 919 

RCL 12 


+ 
xAd? 

GTO 89 
RCL 89 
RCL 18 


CHS 


DSE 44 
GTO d6 
TONE 8 
VIEW X 


STD IND 1% 


GTO 13 


TDIE LOESUNGEN: 


AVIEW 
PSE 
BEEP 
15.186 
STOL 
“LBL 12 
RCL IND L 
TDNE & 
PSE 


ISG L 
GTO 12 


”LöL 13 


ELST 
FIX 4 
BEEP 
END. 


Speicherplan: 


Bd: Arbeitsspaicher 
At:rı 

#2:r2 

B3:r3 

Bu:rh 

85:15 

Be:r6 

87:r7 

B8:r8 

89:z 

18:u 

11:3 

12:u-z 

13:1 

14:Zähler 
15:Lösung 1 
16-106:Losung 2-32 


Flags: 


CF 29 
FC? 55 
sFr 91 


Andreas Weiler 


N erg" 


N er Ar Wa [1 r- Ss at 
An 
21..3.1980 Kropf Walter, Schönowitzstraße 14, .. Jd Leoben 


ZEZ3ZNEZEZISSZEIZZESZEIE SEI SZEISSZSSZS SH ZEFS ZEEIZSBSTESS TE SZzsz 


Diskrete _Fourier-Transformation 
=asz=22222225222225522555225552zc23 


Programmzeilen: 249 444Bytes 64Register 
Datenspeicher: (K+1).2+T+6 
System Konfiguration: l Memorymodul, Kartenleser, (Printer) 


Das Programm berechnet aus einer Anzahl von Abtastwerten einer 
harmonischen Funktion die Frequenzkomponenten. Die Anzahl der 
Abtastwerte ist nur durch den Speicherraum befrenzt, die Anzahl 
der Prequenzkomponenten ist beliebig.Die Abtastwerte werden am 
Beginn fortlaufend eingegeben, die Durchführung der Transformation 
erfolg dann automatisch. Das Resultat kann in rechtwinkliger 

oder polarer Form ausgegeben werden. Bei polarer Ausgabe können 
die Oberwellen in % der Grundwelle ausgegeben werden. Das Programm 
ist zur Verwendung mit oder ohne Drucker geeignet. 


Wenn eine Berechnung abgeschlossen iet, können weitere Frequenz- 
folgen ohne neue Eingabe angehängt werden. Für spätere Verwendung 
können die Eingabewerte auf Magnetkarte gespeichert werden. 


Das Eingabeforbhat kann durch Änderung des Programmschrittes 29, 
das Ausgabeformat durch Änderung der Schritte 158, 159, 161 bzw. 
168 leicht den Erfordernissen der Genauigkeit angepaßt werden. 


Die Anzahl der Abtastwerte soll mindestens doppelt so groß sein 
als die Oränungszahl der höchsten zu berechnenden Frequenz. 


Grenzen und Einschränkungen: 

Wenn die Abtastwerte xon einer Magnetkarte eingelesen werden, 
muß äie Anzahl der auf der Karte gespeicherten Abtastwerte und 
die Eingabe T=... übereinstimmen. 

Der Abstand der Abtastwerte muß konstant sein. 

Wenn kein Drucker angeschlossen ist, müssen aufeinanderfolgende 
Ausgabewerte mit R/S abgerufen werden. 


Verwndete Formeln: 


T-Periodendauer als Summe der Abtastwerte t 
K=Anzahl der zu berechnenden Frequenzen k 
kl= erste Oberwelle welche berechnet wird 


& k =. 
As B . J 
fl) + 2 a,.cosk.2.m.t/T + b„-Sink.2.w.t/T 3 —rig.e fr 


rs r 
EMO). ME ber EHE). sin HAEL 
Ollver Rietschel 


An alle Cluimitglieders Hesien: ard Che 


Postscheckkonto Hmb. 48635-207 
Postfach 373 - D-2420 Eutin 


BBERZHEZ22222sgmmezzernosmzuassuamze3s 3553 5S5S3SSsZessSESszsässsessezszzsese 


Das vorliegende Programm ist mit keiner Verpflichtung oder Garantie 
irgendwelcher Art verbunden. 

Der Verfasser UÜbernimmt keine Verantwortung und keine wie immer 
geartete Haftung, die auf irgendeine Art aus der Benutzung dieses 
Prograznmes entsteht. 


Vervielfältigung und Weiterverbreitung obigen 3° RAS nur mit 
Zustimmung des Verfassers. 


ao 


Beispiel: _n eriodische Punktion heat den unten ab,ebildeten 
Ver. f. Es sind die Harmonischen bis zur 8. Oberwelle 
zu bestimmen. Es stehen 30 Datenresister zur Verfüzung. 
Bei einer Transformation können 

K=( 30-6-14):2-1 = 4 Frequenzen 
berechnet werden Die Transformation muß in zwei 
Rechengängen durchgeführt werden. 
Das Ergebnis soll rechtwinklig und polar ausgereben 
werden. Bei der polaren Ausgabe sollen die Oberwellen 
in % der Grundschwingung berechnet werden. 
T=14, K=4, KleO (=5) f(t) 
18 
1 


12 


-13 
-15 
-20 
10 | -22 


Vvosnwaunrie 


Beispiel: Lösung 


Eingabe 


14 
16 
18 


18,390 


18,390 


Taste 


f 
R/S 


T= 


14 


i= 16,880 
2= 18,808 
3= 12,088 
4= 5,888 
52 -4,508 
6= -18,88 
?= -13,08 
8= -15,88 
9= -28: 888 
18= -22:0 


1 


1= -18,8 


12= -18,8 
13= 0,888 
14= 10.888 

K=4 

K1=0 

END DFT 


K 


mA TB 


nal mm DB 7 DB 7% 


:b:a 


: 8,088: 
: 14,899: 
: 3,195: 2,259 
: 8,745: 
ı 8,422: 


:b:4a 


: -8,188: 
: 8,296: 
: 8,898: 
: 8,29%: 


PHI: 


: 4,884: 
: 4,683: 
: 8,808: 
: 1,608: 


® 
d 
1) 


88 
68 
88 


7,357 
11,897 


-8,574 
-8,867 


"GC 
: 7,357 
: 18,398 


GC 

: 7,397: 20,0% 
: 18,398: 189,0% 
: 3,878: 21,1% 
: 8,941: 31% 
: 8,428: 2,3% 


8,817 
-8, 889 
8,588 

8.869 


Ü 

8,181: 1,8% 
8,297: 1,6% 
8,508: 2,7% 
8,297: 1,6% 


NA 102/3 


Kommentar 
Eingabe von T 


Eingabe der Abtastwerte 


Anzahl der Frequenzen 
l1.Frequenz 
Berechnung 
Ausgabe rechtwinklig 


Ausgabe polar 
nach K=1 mit R/S stoppen 


Eingabe des Wertes für 


100% 


Start fiir nächste Freqguenz- 
gruppe 


Programmablauf: 

[nr] Anweisung 

|_1 jTfrogramnmstart 

Anzahl der Abtastwerte glei- 
en Abstands 

BENLISERTTT des. 1.Abtastwertee 


BR. 


ABErGeS eure der Abtastwerte im Display easie; 
BEEP "END DFT" 


Wenn die Abtaatwerte 
_auf Datenkarte 


Tacenkarıs einlesen 
weiter bei Schritt 4 
Wenn T nicht mit der Anzahl der gespeicherten 
Abtastwerte übereinstimmt, wird Schritt 7 


wiederholt. 


|_B Korrektur falscher Eingaben: [B__ —]ignor. 
= richtige Werte eingeben 


weiter bei Schritt 3 
oder, wenn di 


bereits eingegeben waren 


|_ weiter bei Schritt 4 
| 9JAusgabe der Koeffizienten a, b 

[10 JAusgabe der Koeffizienten c,P, 
1ljAusgabe von c, $, mit % Änzeige: 
Wert von cl nach Schritt 10 
berechnen, Prgr.stoppen R Ss f e| "c1=" 


| __ jel für Grundwelle eingeben [5 K:Phi:c: 
12|für Berechnung einer welteren FE 2 
Folge von Frequenzen "xK=" 


weiter bei Schritt 4 F= 
fiir neue Rechnung nach Schritt oder 
Status: Size (K+l).2+T+6, Prgr.Reg. 64, User Mode ON 
:Flags: 00 Pointer t setzen 
01 Eingabe von Karte, Resultat polar 
02 Ausgabe mit % 
03 negativ, ao % 
Tastenzuordnung: FOUR : 11 
Register: 00 Pointer t, k 
01 Pointer k 
02K 
03 kl 
04 t, c1/100 
05 T 
06 t Eingabewerte 
xx 
xx Koeffizienten 
xx 
xx 
xx 


ano 


PROGRAM LISTING MA JOReE INT 


i 
5 
: 
8 
Ä 
Ä 


Liwe Lem Tomi Camzen , 
BIeLBL "FOUR ogramsstaert_ |  5Some Speichefberei 
wer Pt um eich 
0%LEL 10 ren 5 10 91 
“sr 2 ee 
a. een 
ec Be ee 
em gneichern I nn Schleif$ DFr 
09 NER 09 ee ALM on 
10 570 65 Be 64 AYIEN _t in Alzeige 
11 FSK H tückspring wenn | 43 XE0 88 Pointef_setzen k 
12 RTH Pingabe |von Karte | %-1 
11 Seen] 67 so 02 
14 ST0 4 ähler für 1 | 6B+LBL 83 
15 F2 5 RE 91 
16.(£ 21 I AR 
I7oLBL B art Dateneingate | IM 
1° ee, N 
Su zer) 8 
ann gen TI 5 
2er Se, 
ee 3 eingeben I 7% 
23° * MiSPD n* 

24 ARIL Y R EI 70 REL 94 

25 *r= I* 

26 FIX J Eingabe |Format 68 REL 85 

«27 AREL X a et W 

28 AYIEN Eingabe 82 RCL IND 08 

29 X0Y ee] 83 PR 

30 STO &4 ee re) 84 Ste IM 01 

315 BEER 5x 

2+ ee 86 156 1 

3x0 es ee 87 ST IND 91 

un Eee. SE 

SR Bere N 

“a en ei " 

me ERBE + 

% 

a alle Stützwerte | game 

“cm B eingegefen? OO | 94 XEU 88 

MeLßL It ren %2 

42 5f 21 I] % RL 

43HLBL C tart Fquriertransf| 9, 

4FIL Br ReLBL 

45a K epeickem | 2 

“rn Pan 

1ER EEE 

en RI Speidhaon | ua 

um, Bere m 

557003 Bene 184 “END BET» 

51 SF 68 185 AVIEN 

52 XEO 8 Pointer|setzen k, t/ 186 PROMPT 

53 CUX EEE 107eLBL 98 

BL 0 Er I RL &S 
ers in sit. Ärzten rin lee Arnd re RER a Ren 


Keysuokes 


Fasean.ier 
Vrruches 
Tan 
155° ° 
118 + 
Nr ER 
127 
1136 
114 + 
115 FS?C 08 
116 STO 98 
17 Ra 8 
1164 
119 + 
128 58€ 
121 7 
122 + 
123 RCL 85 
124 + 
125 STO M 
124 RTN 
Idee 
128 CLX 
129 "cl=* 
139 PROMPT 
31 168 
132 7 
133 STE 84 
134 SF 02 
1F5LBL E 
136 °K : FHI 
137 AYIEN 
139 SF al 
139 CT0 05 
ta84LBL D 


1 ba 


142 AYIEN 
143 CF &l 
144+LBL @5 
145 XEO 88 
146 RCL 03 
147 519 68 
14B>LBL 86 
149 FIX 0 
159 CLA 

151 ARCL 88 
152 °F: * 
153 RCL IKD 01 
154 156 91 
155 RCL IND 61 
156 F5? 0 
157 XEQ 08 
158 FIX 3 
159 RU) 

168 XOY 
t6ı AMD 

162 ARCL Y 


nt che 
arm Kap 


26" 


Atesmgps Kulherise tape mus 
nundhlun Aleuine horn Dreh Inenchen" 


ISTAGE DU FR 


Pointe 


setzen k 


Pointe 


TEE | 
ern 
| setzen k_ | 


Resultatauspgabe 
mie. | un 


Wert für 100% 


—Kesultatausgabe 
rechtwinklig 


"ple) in Änzeipe 


al peme" 


LISTATO DI PROGRA 


Liu 
MMA 


163° ° 
164 ARCL X 
165 FC? 02 
166 C10 097 
167 °F: ° 
168 FIX 3 
169 Rt 

170 RHB 
171 ARCL X 
172 *H%° 
173+LBL 67 
174 AVIEN 
175 1 

176 ST+ 09 
177 186 01 
178. C10 6 
179 CF 01 
198 CF 82 
131 BEEP 
182 ADY 
183 RTN 
184+LBL 98 
185 YOY 
186 R-P 
187 XOY 
188. X0° 
189 SF 03 
199 2 

191 PI 

192 

193 FEC 63 
194 CLX 
195 + 

196 FC? 82 
197 RTN 
198 KOY 
199 ENTER? 
208 ENTER? 
261 RCL 98 
202 X=9? 
283 SF 03 
204 REN 
285 FS? 83 
206 2 

287 FS?C 83 
299 7 

209 RIL 4 
218 / 

211 RM 
212 X0Y 
213 RTR 
214 LEL 89 
215 PROMPT 
216 ARCL X 


SUP wihes ch La cedie a papırı armer (nechklenng 
Pirasume wre leudtopuemun ol 


Commenu 
Kıumenenar 
Genen 


_—alc) in Anzeis 
Forfat | 


Result 
el 
62 u RE 
GEBE 
De 

t 


Hessen 


BAT ass i 


LISTATO Di PROGRAMMA 
Line Keyenukes 
Lure Te 
ligne Temuchen 
baren Tan 
217 0975 Te ee 
218 PAR Eingalie drucken | 
219 aTh EEE VE 
2204L8L b ee 
221 SF 0 a 2 Fl a 
222 XE0 00 Pointer stzen £ | | 
ne EERESE ER EEN 
N er 
HR ee 
226 CF 21 
227 "WAT INP* i U ER 
228 AVIEN Eingaledaten uf | | 
229 MDAX arte DD | | 
230 CT0 11 le Seil 
ZZILL a Be er 
27 Sf 9 | Ne] 
273 YEO 10 KERN I 
2 SE 0 En 
us r setzen + | | 
BE Er 
237 RL er Fre 
238 1 ELF are 
2: Tr] 
ne Fe 
241 "BAT IM" 
Eingalodaten lesen | 
242 AYIEN 
243 RITAX EEE 
244 RI BET 
245 RL 65 BEE EEE 
246 X? T falsch: Eingabe | | 
247 CIO a Wiederolen | | 
248 60 11 _ I TI nn | 
249 END DIGRETERN FEN 
LBL"FOUR EEE 
END 444 BYTEs ee ee 
ee er 
a al 
Er EEE SA 
De ee Fee ne | 
a re ee 
BEE EEE ER EEE 
ea alte ee fe 
I — 
Be 
a Er RE RN 
ee En ee 
a EEE ER 
ee 0. 05 
BE ER EFF 
2 2. 1.2 


H 
4 
33 
I; 
2X 
is 
rı 
2u 
ir 
p 
> 
4 
i: 
er 
}2 
Hi 
ri 
I 


| 


| Commenu 
Kırmmemse 


BEEEEEE FT 


SV.P. wahrer abe Ta audi 8 pagemee power finer den hstngn Don tulaanın asilm sta freiem ale zer emmprunen 
Per tareen ware Da cola gets Ian ı banate IM maarı achunan gen ab rn ho uarıgaaner” 


24. 3.1980 Kropf Walter, Schönowitzstraße 14, A-. .)0 Mbten 


Inverze Fourier-Transformation 


Programmzeilen: 199 398Bytes 57Register 
Datenzepeicher: n.3+17 
System Konfiguration: 1 Memorymodul, Kartenleser, (Printer) 


Das Programm berechnet aus einer Anzahl von Frequenzkomponenten 
die harmonische Funktion. Die Fourierkoeffizienten können in 
polarer oder redhtwinkliger Form vorliegen. Bei Verwendung des 
Printers «kann die Summenfunktion auch als Diagramm dargestellt 
werden. 
Das Programm stellt die Ergänzung zum Programm "Diskrete Fourier- 
Transformation" dar, 
Das Programm erfordert nicht die Eingabe einer geschlossenen 
Folge von Frequenzen. Es brauchen nur signifikante Oberschwingun- 
gen eingegeben werden. 
Das Ausgabeformat entspricht dem, vor Abruf der Berechnung 
gespeicherten Format. 
Bei Darstellung der Punktion durch den Printer: 

Mame: PT 

K-Achse: Zeit 

Y-Achse: f(t) 


Grenzen und Einschränkungen: 
Der Pnasenwinkel Phi muß im Winkelmaß Radiant eingegeben werden. 


Verwendete Formeln: 

T= seenausr (frei wählbar) 

ak, bk, ck, k,=Pourierkoeffizienten der RN k 
n= Anzahl der gegehenen Frequenzkomponenten 


Oliver Rietschel 
Howiert-Packard Anwender-Club 
Postscheckkonto Hmb. 48635-207 
Postfach 373 - D-2420 Eutin 


An alle Clubmitglieders 


BErTrZZZTr=2SZESSSLsensemgeassseocegmmsemse ns seems mamma ausemmmsemess 


Tas vzrlierende Prozramm ist mit keiner Verpflichtung oder Garantie 


WULTITTETTI LT I. O TIZE 
Zustimmung öss Vertassers. 


Beispiel: E57 harmonische Schwingung ‚besteht aus folpenien 
K. on n: 
k b .a ao= -7,357 
1 14,099 11,807 
2 3,155 2,255 
3 -0,7455 -0,574 
4 


7 0,0 0,5 
Es soll 'die Funktion für die Werte t=2 und t=6 bei 
einer Periodenlänge von T=14 berechnet werden. 
DerVerlauf der Funktion ist graphisch darzustellen, 
wobei die Periodenlänge mit 360 bezeichnet wird. 


Eingabe Taste Kommentar 
F REC Eingabe rechtwinklig 
7,357 CHS Br 39=-7,557 
5 R/S N=5, 886 
1 S Kzl l. Komponente 
14,099 y2 b=14,899 z 
11,807 R/S a=11,607 
2 R/S k=2 2. Komponente 
b=3,155 
a=2,255 
K=3 
b=-8,745 
=-9,574 
R=4 
b=8,422 
=-8,867 
k=7 
b=9,066 
328,508 
C END INP Berechnung einzelner 
14 R/S 1=14,008 Werte 
2 R/S 2.608: 17,951 
6 R/S 6,889: -9,755 
E T=368.808 Aufruf der Plotroutine 
360 R/S 
FT R/S PLOT OF FT 
-25 R/S X (UNITS= I) 4 
20 R/S YaTS= DD» 
[0] R/S 25:0 238 
o R/S 6,0 
360 R/S Be 
30 R/S ’ 2. 
: 38 ’ . 
x] 68 ‘ 5 
"1 % a ) 
18 “ 
Ö 158 .. 
166 . ' 
4 ® ! 
R 240 « ’ 
i 228 © : 
' 398 . ' 
f 338 “ 


MA 103/3 
Programmablauf: 


Nr] Anweisung j Eingabe[Taste Anzeige Br N 
I Prosramnstart PUT [REG a 


‚2 Wenn_die * Einrabe polgr erf. soll fc 
._ Taste f ce dient als Schalter "R/ZS__.. 
3. Einzabe_v von _a0_ R/5 
4 Anzahl der gegebenen Frequ. R/S 
Ördnungszahl der i.Frequenz R/S 
Faktor bk (ek in RAD R/S_ 
Faktor ak (ck) R/S___ 
Schritt 5 wiederholen für alle 
uenzkomponenten __ EL ERIRNEN ren BEEP_*END INPUT'_ 
Korrektur einer falschen "Eingabe B 'K=! 
falschen Wert k eingeben  ]|k_  |R/S Er 
nach Schritt 5 und richtige Werte 
eingeben_ n u eek a ta En nie 
Wenn die Eingabewerte auf Karte 
espeichert werden sollen £f_b_ "WDAT IND _ 
Programnstart mi it t Daten von Karte fa _]'REC* 
nach Schritt j =] "RDAT INP' 
| TDatenkarte sinlesen | [BEER END INPUT" 
Der Wert für n muß mit den Werten auf 
der Karte übereinstimmen, sonst wird 
Schritt 8 wiederholt, a Fr Er 
9 |Berechnung von f(t) für einzelne 
Werte C__, 
10 |Periodendauer eingeben T _IRYS 
| Il |t eingeben t R/S 


Schritt 11 für beliebige T 
wiederholen 
12 |Berechnung von f(t) für eine Folge t |D 
13 !Periodendauer SEnBenen = T R/S 
A\ersten Wert für t eingebe tl] R/S 
15 |Schrittweite dt Sinoben at R/S 
Wenn kein Drucker angeschlossen ist, 
müssen folgende Ergebnisse mit R/S 
abgerufen werden, aD 
graphische Darstellung der Funktion |E |T=' 
17 |Periodendauer eingeben T IR/S | *NAME® a, 
Werte für Plotroutine eingeben 
Name FT, Y=f(t), X=t ae ke 
Status; Size n.3+17, Prgr.Reg. 57, User Mode ON 
Flags: 00 Koeff.polar 
01 Input von Karte, Einzelschritt 
02 Plotroutine 
Tastenzuordnung: INFOUR : 21 
Register: 00 Plotregister 08 t 
ıl " 10 dt 
12 T 
13 (n.3+16)/EEX3+17 
14 Pointer 
15 £R13)-2, f(t) ab R15 werden die Register auf 
16 e0 Datenkarte aufgezeichnet 
17Kk 
18 bk ( k) 
19 ak (ck) 
20 x Speicherlänge variabel nach Anzahl der Glieder 
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11 FS?C 08 


HF 


f,16.MIEN 
17 FIK 3 
18 +38=° 
19 70? 01 


42 Xen 92 

43 STO IND 1% 
44 150 14 

45 FIX 3 

4 *b=* 
47978 

48 "Pilz" 

49 WER 82 

58 STO IND 14 
51 156 14 

52 "a=“ 

33 £5? 90 
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6 02 
% 16 IM) 14 
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68 SF 2 
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62 "END INP" 
63 AYIEN 
64_RTN 
65 82 
66 PROMPT 
67 ARLL Y. 
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182 SF 01 
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165 - 
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187 "RAT INP" 
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| Keyatroken ı Comunents ' Line j Key pressod ‚ Cumnienis 
Tantentedge Kumentas Zerle | Tauenfolge j Kunmenun 
Teuches Vainitntattes Lay | Vauches Uuummentanmes 
Tas Comment hunca Inte Cemment 
189 RDTAS u nn: zu 
118 RCL 15 at 64 RCL 
111. xeY? Be Be 
112 CTO 3 5 ZN h6 KCL 
113 GCT0 @8 = Fe  F$? 
TI4eLBL E TER ee 7 A P-R 
115 SF 82 5 Te ae 9 RCL 
116 XEB 57 as map N} 
117 CF 82 = "1 P-K 
118 BEEP - - 2 5Ta 
119 RTN pur ”3 RDN 
128eLBL C BER A EBEN >4 5T% 
121 SF tl BR LE El ad 75 RDh 
122 CF 02 ?6 > 
.w 123 CTO 07 rote 
124+LBL D 78 156 i 
125 CF 0! 178 070 
126 CF 82 8a Rcı IS 
+LBL 6: gi FS? 
128 5F 21 Ya RTN 
129 "T=" a a 63 CLA 
138 XEQ @2 VE NER Re 134 ARCL 95 
131 5T0 12 rel ne 155 76“ 
132 FS? 82 ne — 156 ARCL 15 
133 610 "PRPLOT" -- - -- —- SR BRERHE 197 AYIEN 
T34LBL 94 REN ES et 188 FS? @l 
135 "T1=° Re L. EESENESEREEAEEEN 189 GTG 84 
136 PROMPT ee = ER EB 198 RCL iR 
137 STO 88 | = elle 191 ST+ 88 
138 FS? B1 I 132 RCL iz 
139 GTO 03 j 193 RCL 88 
148 “dT=" u le 194 %=1? 
141 XEO 62 i Kurz 195 610 83 
h 142 STO 10 akrrr ae: 7 196 BEEP 
143 RCL_B8 Berne een PR 197 ADV 
1444LBL_"FT" ee Mr ; 198 RTN 
145+LBL 83 a ale 9 I Biss tr 199 END 
146 STO Ak = ce ni in L&L" INFOUR 
147 RCL 13 SERIE LEL'FT 
148 STO 14 ....._. Porn} Z END. 
149 RCL 16 en 
150 2 
151 7 
152 $T0 15 
TS3oLBL 08 
154 RCL IND 14 
155 RCL 08 
156 * 
157 RCL 12 
158 / 
159 2 
168 » 
161 PI 
162 * 
Pleswe use paper gluc to anach Intungs. Adbesive tape ınay alter pri! SV. oedisez de la volle a papier pour Ainer bes hstings. Lex rubans adhests peusent alterer Kinipressen 


Barec Linings mut Papierleim ernkleben. Kleben konnen Druck hleichen’ Der tavore usare la colla per tissarcı Ita Haastro adesivo pa alerare Je seunpate" 


Seite 1Avcon 10 


SUPERHIRN HP - 41 C 


Ein Programm für den programmierbaren Taschenrechner HP-H1C 
Autor : Ulrich Davertzhofen „ 1979/80 


Spieler A steckt x Codestecker in die x Löcher „ ohne daß 
der Entschlüsseler B die geheime Steckerkombination einse- 
hen kenn. Bei der Zusammenstellung des Geheimcodes ist es 
gestattet „ auch 2 oder mehr Stecker der gleichen Farbe zu 
verwenden ( z.B. rot,weiß,rot,grün ). Spieler B versucht 
nun, den Code exakt nachzubilden. Nach jedem Versuch gibt 
A Auskunft über den Stand der Dechiffrierung durch schwar- 
ze und weiße Chiffrierstifte. Dabei bedeutet : 


1 schwarzer Stift 2 ein Codestecker entspricht nach Po- 
sition und Farbe einem Stecker der 
geheimen Kombination ; 


1 weißer Stift : ein Codestecker entspricht nach der 


einem Stecker der geheimen Kombina- 
tion. 


Steckt A als Infornation x schwarze Stifte, ist der Code 
vollständig entschlüsselt und das Spiel beendet. 


Das Prograra 


Der Rechner entschlüsseltS jeden Code, der vom menschlichen 
"Gegenspieler" A z.B. auf Papier notiert wird, mit bis zu 

9 Positionen (x) und bis zu 9 Farben (y). Dabei wird jeder 
Farbe eine Ziffer (1-9) zugeordnet (z.B. 1=freie Stelle, 
2zweiß, 2... „ schwarz ). Zu den einzelnen Versuchen des 
Rechners gibt A die entsprechenden Informationen in der Form 
s.w ( Anzahl schwarze.Anzahi weiße Chiffrierstifte) ein, wo- 
nach der Rechner bis zur vollständigen Entschlüsselung sei- 
ne(n) nächsten Versuch(e) ermittelt. ) 


HP 41C PROGRAM SUBMITTAL FORM 
PROGRAMMFORMBLATT/DOCUMENTATION DU PROGRAMME/GENERALITÄ SUL FROCRAMMA 


No. of daw segisters 2: PREC- Akbısıa 


No. of program lines 
Aal Penn 245 Arad benbagrn Derangenckr A440 44: FATA- RER. 


Ne dh Tine da programme N® du regen weit 


Recommended HP 41C $S L] 
Eapichine Harn Kanfgumaun nun euwlhory Module 
Conkgunane rerommmundie 

Conkpun une ruronwadum 1.772} BEE EEE SEHFERHEEE SEO,” X UHREN BERGEEEGGEERENELTEHEREEEGE ER EEE EEE FERITEN 


Gr _ 


ramm barmaust folgende Programenz als Umerprngramme: 
Ce programme uns ir) programs muvanıs COMME So (TOTER: 


| Thie men requires the following programe as subroueines: 
Qume progmmee wu 1 we gumnaı progremmi come suheuumee: 


HP Applicsdons ROM Program Name: 

HP Appukanons ROM — m Pro: - — 
ROM d’sppicsuum HP Nom du progamme: 

ROM & sprimasone HP TE = 7] 2 a 


Prognm Abaınaı HP-44 _ FINDdS Your SECRET CODE WITH ur To _I Posıriows 
Kaumd And UP To I CoLourRs . AFTER EACH Gucss You TELL_ 
Berve drseriumen THE MACHINE How MAN Y NY NIHBERS. _ ARE RICHT IN _PO- 
PEG )_ And) HaW MANY 
Hese nn OKMATIOM 
ES  (wiırh 


PROGRAM Runs “FAsr” 


Nam fNom) Nom Ulrich Davertzhofen 


ER Huenefeldstrasse 109 
ent zu MMDDORRaL m 2. ee 900 . + „ehe „ WGesmang —_ 
Lat Dry aa A 
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Erklärung und Ermächtigung / D£claration et Autorisation Dichiarazione e Autoriza=:,ore 


To the best of my knowledge, I have che right to cantrıbure this program material wırhour bresching any abligaı. sn concerning noad:scloswre 
or conhdential informarion of other persons or organizations. | am cunınbuung this program marenal on a noncorndentun nmobligato:s bar 
to Hewlett-Packard S.A. ("HP") for inclusion ın its program library, and I age that HP may use, duplicare, meıfy publish. and sell the 
program materal, and auchorize orhens 10 do so withour obligarion or lüabiliry of any kind. HP may publish mır name and address, as ıhe 
contributor, to facilirate user inquiries pertaining t0 thıs program material. 
Ich veruchere auch brrrem Ware, dns ch uber menra Progrummberng (re. verlugen kann, ohne dam ach dadurch für HP. andern Progran wruizer ine mu ungen weiche 
== Verpfichrengen gegenuber Drnien oder smmange rechtimhe Nacheele ergehen. HP kann menee Programmhrareg ohne Gehrmhalungs- und wmic je Verpnehwungen a hrischges 
Wer bemaia sen oder verwerum. Gegen cınz Verafferalshung manner Namanı ım Zummrmenhang mit mrınem Prograrmmbwerng halber sch suchen eınaun m 
Au mazen de ma cannuumumen, je däzlars arom is drom de fournus la presene programme sanı enfrendee des abiıgsrons de sarmı b Kigaed d’auamı [2 nnen ou orkunmren. je Kern 
ke priaem programme 1 la Soc Hewiet- Packard $.A. («HPe} sur une base non canfidenterik, powe ıncorpuraton dam 16 biblmuhegur dr prugrammen + sau ae MP, gun powsn a wo 
wur suronwer d’smims pursansee, & I’wrberr, ig reprinduere, ig modıler, ie publur er he diwrbmwer, ans ublugstans ne respemsahnien d’surure wire HOT cm autor a pmurkarr 
am nn er adreium on Dre qu'awtrur du prüuen programme, en vun da lailıter ler charges ln for mann avec Ins wrliwreunn de ar progmmme 
Per quasın me wm a corsa, ho d dıraro de form quista programme wnz verlam alcum obbien de warm 0 cuntideruelis ven slıre cur won zarunm neuen aewo 
programar.. alla Hewiers Packard 3A. (<HPo} mu une bene non ronfdierumie pre ıncluderko rurlin num bebiwmeen de programm € avturuso m wumin HF new 6 vun vul pr Burn 
 qure une are pre, a wlazario. npradurio, moxhhearlo, pubbimario € deuribuirlo uenan mbigo ne mepemaabslim de eicunm spec 12-40 3" ur, a mn deurrree, 
publaicame Hd mus noena € eudrume qua netom ae] Prosenie progsamıme onde (dran la werben Winlurmasmmnı com gb sulaasıon deli srmamo 


Signs: 


Be hut Ale SE Unik Dach WEREHEENREN: 


Da rn WERE. 


PROGRAM DESC 


PROGRAMMAFSCHREIBUNGIT 
DESCRIFTION DU PROGRAMME I 
DESCRIZIONF. DEL PROGRAMMA I 


Application, Equsdona, Variabies __ _ A BOU STRIaTEEY = 

Anwendung, Guchungen, Vetadri ehe 

ern ee bee) WORKING UP THE INFORMATION THE CALCULATOR 
TRıes To ARRANGE A_NEW COMBINATION WHICH 

IS _ NoT IN CoNnTRADdICTIoN TO Hıs FORMER ÜUESSES. 


EXAMPLE: SECRET CodE: _A2GAG 
4. 55 cc Y G 
AAA 1.0 62 
G 
2 


3. 4.4 


4.0 


Opernuing limi and Warning _ 1) _LOOK_ FOR _CORRECT INPUT OF Your __INFOR- 
ee ee MATIOW. Eu Fe a ren at 


Deepmane remner 2) NUMBER 0oF Posırıows [Colon < 


This pougram har been venfed only wich respect to che numencal example given in Program Description Il. User sccepts and uses chin program 
matenal XTHISOWN RISK, ın reliance wicly upon hıs own inspection of ıhe program material and wirhour reliance upon any representation 
ar de np euncerning the program matenal. 

NEITHFA HPNOR THE CONTRIBUTOR MAKES ANY EXPRESSOR IMPLIED WARRANTY OF ANY KIND WITH REGARD TO 
THIS PROGRAM MATERIAL. INCLUDING, BUT NOT LIMITED TO. THE IMPLIED WARRANTIES OF MERCHANTABILITY 
AND FUINESSTOR A PARTICULAR PURPOSE. NEITHER HP NOR THE CONTRIBUTOR SHALL BE LIABLE FOR INCIDENTAL 
ORCONSEQLUEN FILME DAMAGES IN CONNECTION WITH OR ARISING OUT OF THE FURNISHING, USE OR PERFORMANCE 


OF THIS PROGRAM MATERIAL. 
Dwer Progrune wurde felgluh anhand ber un der Pogrummbrschreibung || enthaltenen Zahlenbeupicis uberpeuft Der Benutser erhal und benutzt das Programmarerml suf eıgerun 
Kakotga,crhare ind: gienhaulag. cben Bere saderwerng prammmert oder buchen werde - wiber me ureeriuchem 

WEDTRHPNOCHDER EINSENDER DES PROGRAM MSUBEANEHUEN FÜR DAS PROGRAMMATERSAL EINE TRGENDWIF GEARTETE GEWÄHRLEISTUNG ODER 
HAFTUNG, INIBESCHHDIRF NICHT FÜR SEINE VERAK AT FLICHKEIT ODER SEINE VERWENDBAARKEIT FÜR EINEN BESTIMMTEN ZWECK. HP UND DER EIN- 
SENDER HN NFTEN AUCH NICHT FÜR INDIRFKTE ODER FOLGESCHADEN 

Le preuene pugrumme n’a tee were zum cr Qua Conreme leuernpie mumdtrayun mine dans is Jeterrpinm de programme Il. L’uclimicur wrepre er wtılue le prösenm programme 
ASESPROFRER RIM R Der hin ve ner vanguemgat a m prmpre Aapmeiman Jude Dramen sanı w reicrer a ınum avır declantıon er dewnpnan. 

HP ET LE FOLRDNISSELA NE DUNNENT AUCLNSE GARANTIE, EXPREISE OU IMPLICITE CONLERNANT LE PRESENT PROGRAMME, NOTAMMENT DE 
COMMFRUALIMTION ET D’SDSPTINON ALS USAGE PARTICLLEER HP ET LE FOLANISSFUR N’ASSUMENT AUCUNE RESPONSABILITE EN CE QUI 
COSLERNE LES DOM MAGESINDIRELTINFS DR. LA FOLRNITURE, DE LLTIUISATION OU DU FONCTIONNEMENT DU PRESENT PROGRAMME. 

Queser Drums 4 1800 Vena wurane., per quad) cancer Ütempm Mumeran ındgaro neıla Dirwriensne del Pengramma IT. L’uulisustorg secetm € uulzuch H preumm programm 
AILOINTLAO AIM MIO, Kanne unsanenee Jets prapma verrue dei prersmera ec non sad wu alım Inhanzon 0 denne 

NE LA ANIETA NE LALTDAE DANS ALCLNA GARANZEA IMPLICHTA © ESPLICITA CONCLANENTE IL PRESENTE PROGRAMMA, IN SPECIAL MODO 
RELLARDAN ALLA SLALOMMERCTILIZZNZIONE CO ADATTABEILITN AD LN LE PARTICOL ARE N LA KWIETA HP Ni. L’AUTORR ASIUMONO ALCUNA 
RESPONSANUTA PER DANNEIMMEDIATIO STEDIATI CAUSATI DALLA FORNITURA, UTILIZZAZIONE O FUNZIONAMENTO DEL FPRESENTE PROGRAMMA. 
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Ein Spielprogramm für den programmierbaren Rechner HP-4H1C 


Autor : Ulrich Davertzhofen „ 1979/80 


Spieler A steckt x Codestecker in die x Löcher „ ohne daß der 
Entschlüsseler B die geheime Kombination einsehen kann. Bei 
der Zusammenstellung des Geheincode ist es erlaubt, auch 2 0- 
der mehr Stecker der gleichen Farbe zu verwenden (z.B. rot, 
blau,rot,grün). Spieler B versucht nun, den Code exakt nach- 
zubilden. Nach jedem Versucht gibt A Auskunft über den Stand 
der Dechiffrierung durch schwarze u. weiße Chiffrierstifte, 
Dabei bedeutet : 
1 schwarzer Stift : ein Codestecker entspricht nach Position 
und Farbe einem Stecker des Geheimcode ; 
7 weißer Stift s ein Codestecker entspricht nach der Far- 
be, aber nicht nach der Fosition einen 
Stecker der geheimen Kombination . 


Steckt A für alle x Positionen als Information schwarze Stifte, 
so ist der Code vollständig entschlüsselt und das Spiel been- 
det, Ziel ist es, den Code in möglichst wenig Rateversuchen zu 
finden. 


Das Progrann 

Der Rechner übernimat den Part von Spieler A „ inden er (pseu- 
do-) zufällig eine Ziffernkombination erzeugt, die der "mensch- 
liche Gegenspieler" B entschlüsseln muß. Der Geheimcode kann 
aus max. 9 Positionen (x) und max. 9 Farben (y) bestehen, wobei 
jeder Farbe eine Ziffer zugeordnet wird (etwa: 1= freie Stelle, 
2= weiß ,„ ... ,„ 9e schwarz ). Zu den einzelnen Rateversuchen 
gibt der Rechner die entsprechenden Informationen in der Forn 
s.w (Anzahl schwarze.Anzahl weiße Chiffrierstifte) aus. 


HP 41C PROGRAM SUBMITTAL FORM 
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No. of progtam lines 
AsaN fruammmarılen 


408 


Nomnber de hanıcı de prugremume . Nrmbre de egcstrer de deemeer 

N de kan di prromme Node irranı 

Recommended HP 41C Sysiem configuration 

Empfohlen System Konfgunem 

Camhgurenim srenmmander ManMl 0 fan ke ee re rn 
Cnnhgurarıme nceomandeu [10,27 DE Bes ‚7 7. 2 PER AEG EADISE PIERRE FE 7 


This program requires the following programs as subroutines: 
Dares Pr umım benuinı firhgende Pr-,gramms ah Unierprogramıme 

4a programme wtulıng key Programmes mais ones eamme mas pragrammeı 

"Juruen prugramme us ı guenu programmı come yubenutinee 


HP Applications ROM P: N H 
a ankLnen ac en en ae ae N BEINE ER CHODNREERAURSFRSERWEN RER 
ROM Sapplucasuem HP Ned. NH DEREN 


aOM de spplussone HP Prugurıra 


Program Absracı _YOUR CALCHLATOR GENERATES A_ SECRET Cole Wwırn vP_ 


u To I Positions And I Corouns (A- mas 9) , Amd ıT 15... 
rjtekotalieeid YouR TASk To Find _IT OUT, AFTER EACH _GVESS HP-HA 


me TELL$ You How MANYy _ Diets ÄRE Rıonr ın PosiTıoen 
And COLouR N Bıack kEy- PE6 ) And How _MÄnY ÄRE Ri6nT Im  LOLOUR _ 
Tony TwHirE) AT THE EmD Your HP__SHowSs THE SECREr LopE 

Au) THE NUMBER OF GUESSES You WEEDED FoR DEcodiınco_ıT. 


een Name ULRICH _DAVERTZHOFEN ___ 
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Lersiret ende parstal nn. 
Ca car Fe 


ACKNOWLEDGMENT AND AGREEMENT 
Erklärung und Ermächtigung / Declaration er Autorisation, Dichiaraziome e Autoriztarione 


To ıhe best of my knowledge, I have the right 10 contribute thıs program material wahnut bresching any obligarumn onceming nendiiorun 
or confidentisl information of orher persons or organizations. |] am contributing thıs program material on a nuncımÄdennet nonohlıgatıır, bası 
oo Hewlett-Packard $.A. (**HP'') for inclusion in its program hibran. and I agree chat HP may use, dupiwate, mudilv poblih, and sell che 
progam materüsl, and authorize others 10 do so withaur obliganion or labılın of any kınd HP may publish my n.me and adırems, as che 
conıribunor, co fscilitate user inquirics pertaining 10 this program matenal. 
Ich veruchem nach beuem Wnsen, dass ch uber memen Programmibernng fra verfügen bann. nhne date sun dedvich fur HP, anacm Pergmmmbenurer ınlr much ned weiche 
Verpfinhzungen gegeauber Drwen ader umge rechtliche Nachteile ergeben. HP kann meinen Programmieung scher Cehmnba gs und eng Sepfle mungen m bewichager 
Wer bematarn adırt verwerien. Gegen eine Veroffemluhung mencı Namanı ım Zuemmenhang mu ana Prigemmmbrncog hate ah nun engen 

Au amına de mm conrausenee, se darlorı avoır ie drom ur Irmrmur ir present programme -anı eniminder dev dıgaanı de wma a Degard deuten zer emer u orgennmen je terms 
u prizere progremene & Is Sactat Hewi Packard SA (“MPe) wur une ta man crmndeniwllg, peut on uentern dans 1a bublerthagen dr pr mann wre HP qw pre num 
m sunerur demsres pananncs, & lurirnge, ip eprmluire, le munlıher, le puhlee nm be Jenaer, ons shigeiune me arpemun u dwume wire HT em ano a ph 
m nm ar anna en ae qu'swinus de prewtar programme, en wur de lacılırer br changes dnturmermns an ar uhren Ar car prenee 

Per quaneo me sun a conowcenee, ho J dırmro di fnmın questn programme senzs vos law sdhlimu dh wgmu n sunbdenselm vorm am perrmc can Formen guren 
progzmr.s alla Hawiete- Packard S.A. (cHPe) mm una beur na cunndensiie per meluderh va bhinuera de programm wir ar a ur HP, m nor a 1a Fr pr rw 
mM qurmin urnm ale perwane, s wduserlo, nprudurbe. madılmackh, pobblwackı e dixter era bir pr ae rar Sa mn I par date 
geabialeraen d man nem € dumm qunie aurart del pemenie posgramenm une Smlmare bi ne dnemerna n ge adunının Bin um. 
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"PROGRAM DESCRIPTIONI 
PROGRAMMBESCHREIBUNG TI 
DESCRIPTION DU PROGRAMME 
DESCRIZIONE DEL PROGRAMMATI 


Apnlicauon, Equstions, Variabies 


Aswendunz. Giectungen. Versndertuhe 
Applasrum, Cutz, Vorakien 
Aypizasers. Eqususs, Voratah 


you WANT TO DECODE A _ConBinATion WITH 
S Posırıoms And) LP To I CoLouRs ; 


Operating limis and Warninge A) 4 c < I 


Grenzen una Emuhrankungen 
Bra urn 


—-—,_— 7) Look FoR CORRECT INPur OF YauR GUESS (£$) 


3). Er NoT_ PRESS RCL M..., Rct 09 ! 


“ 
Ew This prouram has been verified ı.n!v wirh cespect to che numerical enample given ın Program Description Il. User accepts and uses this program 
meer“! ATHISONN RISK, ın relance wleiy upem his own ımspectinn uf the program material and without reliance upon any represeaunon 
or Jewripiion enn«erning che program materul 
SEITHER HPNR THECONTRIBUTOR MAKES ANY EXPARFSSOR IMPLIED WARRANTY OFANY KIND WITH REGARD TO 
THIS PROGRAM MATERIAL, INCLUDING,. BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 
ANDFITNFSSTOR A PARTICULAR PURPOSE. NEITHER HPNOR THE CONTRIBUTOR SHALL BF. LIABLE FOR INCIDENTAL 
OR COINSIEOQUENTIAL DAMAGESIN CONNECTION WITH OR ARISING OUT OF THE FURNISHING, USE OR PERFORMANCE 
Dr THIS? ROXGR AM MATERIAL 
Der Pragzaınm wuer that anhand am an der Pranmmbwchre.bung Il erhaltenen Zahlenbripwelt uberpruh Der Benuiser erbalı und bu das Progremmeienel wef eigrms 
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HAFTUNG. INSBESINOERFE NUEHT FIR SEINE VFRKALFLICHKEIT ODER SEINE VERZENDBARKEIT FÜR EINEN BESTIMMTEN ZWECK. HP LND DER EIN 
SESDER HAFTEN ALCH NICHT FLUR ISDIRFKTF ODER FOLSFSCHADFN 
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HPLTIEOFOUERNISSELR SE DOANNENT ALIEN GARANTIT, EXPRESSE OU IMPLICHTE CONCHRNANT LE PRISENT PROGRAMME, NOTAMMENT DE 
LOWWFROTALISATION ET DADSPTATION SEN LSACE PSRIKÜIFER HP ET LE FOLRNISSEUR N'ASSUMENT AUCUNE RESPONSABILITE EN CE Qi 
CHNEFRNF LES DOMMAGESINDIRFOTSNESOF EN FOLRNITURF. DEF ULTIUSATION OL DU FONCTIONNFMENT DU PRESENT PROGRAMME. 
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e feıreisan 
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CounTeR_ (P)| 
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Assignments 
Towenbuiegung Isugnistene Asegnemeen 


"] Function Key Function 
Fonkiom Ton Funarem 
rem Teuche Komm 
-[tuneene Taso Fun ee 


Edmund Weitz Essinghausen, 22.07.80 
Beinr.-Heine-Str. 101 


3151 Essinghausen 


Kerrn 
Oliver Rietschel 
Postfach 373 


2420 Eutin 


ballo Oliver, 


hier habe ich einen kleinen Vorschlag zur Programmänderung für 
das Ganes Solution Book. Er betrifft das Programm Wari. Hier habe 
ich zwei Punite zu "bemängeln": 


- Egal, wie der Seed eingegeben wird, er wird durch Clrg 
inner wieder auf O gesetzt 


- Ein Fehler in den Spielregeln: Es ist nicht erlaubt, aus 
einer leeren Kuhle Steine zu "verteilen", d.h. eigentlich 
gar keinen Zug zu machen, obwohl das alte Programm dies 
zuläßt. 
bas neue Programm (aiso nach der Änderung) entscheidet hin- 
geszen, ob der Zug illegal war (wenn noch Löcher besetzt 
sind) oder ob das Spiel beendet werden muß (wenn alle Lö- 
cher der ausführenden Seite leer sind). 


Folgende Änderungen müssen gemacht werden: 


Positionieren des Rechners auf Zeile 08 (Lbl E) mit Gto.008. 
Einfügen der folgenden Schritte: Rel 00 Cirg Sto 00 

Zweimal Sst ausführen 

Löschen von Schritt 13 (Clrg) durch « 

Zinfügen von Enter 

Prgm-Modus aus 

Gto B 

Prsa-Modus wieder ein 

Dreimal Sst ausführen 

Sinfügen: Si 10 und Gto 12 

Sst 

Einfügen: Cf 10 und Lbl 12 

Gto.175 (Gto 50) 

Löschen von Gto 50 durch e 

Einfügen von Gto D 

Zun Ende des Speichers gehen mit Gto.999 

Einfigen von Rtn und folgenden Programateil hinter Rtn einfügen: 


Lbl D Fe? 10 1.006 Fs? 10 7.012 "TLLEGAL" Aviow Lbl 10 
Rel Ind X XZ0? Gto 11 Rdn Isg X Gto 10 "ENDE!" ct 2% 
Lei 11 Beep St 26 Pronpt 


Fertig!! Das neue Programm benötigt zur Aufzeichnung auf Karte einen 
Track mehr als das alte, also 5 Tracks. 


t 
Happy Programzing 


Kurzbeschreibung: 


Formel I fir HP-L1IC 


Der Spieler hat einen Forzel-1I-Kagen und sieht eine 3ennstrecke 
vor sich. Im Gegensatz zum Rennfahrerspiel nud er auch noch lenken. 
Das Spiel ist sicherlich eins der interessantesten, ca) je für 
einen Taschenrechner geschrieben wurde, 


Referenz: 


HP-67-Programm von Jean Thiberge 


Ciranm 
50107 Cherbourg 
Frankreich 


Beschreibung der Anzeige: 


G.1ıi111orrrr 


G= Gang 

l=- linker Streckenteil 
o= Fahrzeugnase 

r= rechter Streckenteil 
Beispiel: 


1.1115011171 
Rechtskurve mit Limit (5) in 3 sec (Jede Kurve wird 3 sec in voraus 


1.155501111 


Beginn dieser Rechtskurve 
3.411106661 


Ende einer Rechts-, Beginn einer Linkskurve 


angezeigt) 


Kurvenlimits (bedeutung der Kurvenzahlen) 


Je höher die Zahl, je langsamer die Kurve 


1 300 
2 270 
3 240 
9 30 
Speicherbelegung: 
O= seed 

= Beschleunigung 


Fon 
vaıı 


-— 


rechte Seite 
Zeit 


Gang 
Beschleunigung 


Ganglimits 
Gang Linit 
1 90 
2 140 
b) 195 
y 252 
5 300 
\= nächste Kurve 2= aktuelle furv: 
4= linke Seite 5= Mitte 
7= Strecke 8= Tecpo 
10= Tempolimit (Gang) 
12= gerade Strecke 13= Länge der Strecze 
in km/h/sec 153 benutzt 


Sedieunungsanleitung 


Schritt 


Fun 


Anweisung Input Tasten 
Programm laden 

xEQ "Fi" 
Distanz eingeben Dm R/S 
Seed eingeben Ss R/S 
--> Countdown 
1. Gang einlegen 1 
jede Sekunde: 
Während dieser Anzeige kann man 
gleiches Tempo c 
Vollbremsung b 
1/3 Brensung B 
Vollgas d 
1/3 Beschleunigung D 
Linkskurve A 
Rechtsxurve E 


Nur als letzte dieser Aktionen: 


h) 
? 


10 


Gang einlegen Gang 


Rennende 


Fehlermeldungen 

Zu schnell für jeweiligen Gang 
Zu langsan 

Keine ! am Start getippt 


In Kurven zu schnell oder falsch gelenkt 


® 


Output 


"DISTNAZ?" 
"SEED? 


Rennstrecke 
Tempo 


Zeit 

Distanz 

Tenpo bei Ziel 

Durchschnitts- 
tempo 


Überdreht 
Abgewürgt 
Start verschla- 


fon 
Unfall 


Um die Anzeigen (End anzeigen) ya zu betrachten: 
S 


Für Neustart mit gleicher Distanz: J 


0 


08 


31 


LBL "Fi" 
"DISTANZ?" 
PROMPT 
sTo 13 
"SEED?" 
PROMPT 
GTO c 
LBL 00 
10 

ST/ 06 
RCL O4 

x 

FRC 

RCL 05 

+ 


RCL 06 
+ 
RCL 11 
+ 


ENTER 
FRC 

sTO 06 
FIX 4 
RND 

STO 04 
ST- 06 
CLX 

RCL 12 
+ 

FIX 9 
LBL 10 
PSE 

PSE 

FIX 1 
CLA 
ARCL 08 
Urs KM/E" 
AVIEW 
PSE 
PSE 

CLD 

LBL 01 
FS?C 22 
XEd 02 
1 


ST+ 09 
RCL 08 
ST+ 07 
RCL 10 
/ 


x>Y? 
6GTO 09 
RCL 14 
xX>0? 
P-R 
ST+ 08 
RCL 08 
ST+ 07 
SF 25 
SQRT 
FC?C 25 


® 


Start des Prosranıs 
Länge der Rennstrecke in %Zetern 


Zufallezanl (zur Erzeugung einer zufälligen 
Kurvenfolge) 

Zum Countdown 

Aufbau der Anzeige 


Rechte Seite eine Position zach rechts schieben 
Linke Seite eine Position nach links schieben 
Verhindern, daß linke Seite in den Gang hinein- 
geschoben wird 

Mitte aktualisieren 

Gesantstreckenabschnitt 


Gang addieren, Anzeige fertig 


Hintere sechs Stellen abschneiden 
Neuer linker Abschnitt 


‘Neuer rechter Abschnitt 


Gerade (1111011131) addieren 
Anzeigeformat 


2 sec anzeigen 
Anzeigeformat für Tempo 


Tempo zwei sec anzeigen 
Anzeige löschen 


Lag eine Eingabe (Gangschalten) vor? 
Wenn ja, Gang einlegen 


I sec addieren 


Gefahrene Strecke addieren 


Zu schnell (Motor üderdreht?) 


Effektive Beschleunigung, falls Beschleunigung 
positiv ist 

neues Tempo 

Zur gefahrenen Strecke addieren 

Fehlermeldung verhindern 


Tempowert negativ? 


103 


117 


". SEC® 
PROMPT 


äköı z 


Fehlerroutine 


Kurvencode 
Korrekt gelenkt? 
Wenn nicht, Unfall & 


Tenpolimit für Kurve errechnen 


Zu schnell? 

Wenn ja, Unfall 

Ist eine neue Kurve nötig (nach 3 sec) 
Wenn nicht, Kurvenerzeugung überspringen 


Kurvenzeitzähler wieder auf 3 sec stellen 


Zuletzt gefahrene Kurve in den zur Kontrolle be- 
nutzten Speicher abspeichern 
Zufallszahlengenrator 


Neue Zufallszahl abspeichern 


Erzeugung ganzer Zahlen zwischen +9 und -9 

Als nächste Kurve abspeichern 

Wenn negativer Wert, Linkskurve 

In diesem Falle um 2 Stellen nach rechts schieben 
Wert ohne Vorzeichen 


Ale mittleren Streckenteil speichern 


Strecke von km in n Stunden in m in n sec un- 
rechnen 


Wenn gefahrene Strecke vorgegebene Distanz Über- 
schritten hat, Endanzeige 


188 
190 


211 


22h 


229 


234 


239 


7 


© 


LBL 03 Errechnen der neuen (alten) Beschleunigung 


LBL D 1/3 Beschleunigung 


3 
IE 22 Mit 3 oder mit 9 malnehmen 


x?0? Positive Beschleunigung, 
XEQ 03 Dann abhängig vom Gang 


RTN Wenn das Upro aufgerufen wurde, Rücksprung 


LBL A Nach links lenken 


LBEL E Nach rechts lenken 


Limit für jeweiligen Gang berechenen 


LBL 03 Evtl. neue effektive Beschleunigung berechnen 


RTN 

LBL 04 
"UNFALL" 
AVIEW 

BiEP 

RTN 

LBL 09 
"UEBERDREHT" 
AVIEW 

BEEP 

RTN 

LBL 08 
NABGEWUERGT" 
AVIEW 

BEEP 

RTN 

LBL 07 
"START VERSCHLAF" 
"LEN" 

AVIEW 


"kr M" 
PROMPT 
CLA 
AZCL Y 
"2 KM/H" 
PROMPT 
"SCHNITT=" 
ARCL X 
"b KM/H" 
FROMPT 
vun 

135 LBL J 
RCL 00 

137 LBL ec 
RAD 
SF 05 
SF 27 USER-Mode an 
7.28 
CF 29 
RCL 13 
CLRG 
STI 13 
RDN 
STD 00 
1 


SıDd 10 
FIX 9 


3 
sTto 15 


= Erzeugen der Geraden „111101111 
sTo 12 Abspeichern 


cHS Countdown vorbereiten 


FSE Ende des Countdowns 


FC?C 25 Eingegebener Wert nicht 1? 


FT?C 25 dto. 


GIO 01 Zur Anzeigeroutine 
178 LBL_b Vollbrenmsung 


180 LBL B 1/3-Bremsung 


183 LBL C Konstantes Tempo 


186 LBL d Vellgas!! 


C) hrus_- inz 


zu 'Kalenzerrechr n' 


Oliver Rietschel 
Bissarckstr. 31 


2420 Eutin 


W. Germany 


09/02/80 


Das folgende Programs stellt ein Unterprograsa zu'Kalenierrechzungen’ 
aus der Standardprogrammsammlung dar. Folgende Eingabe: 

- Geburtsdatum eingeben — XEI A 
- Beutiges Datum “ -—- IN} 
- Differens in Tagen berectnen — XEN C 
- Biorkythmus’berechnen — IE D 


XEO 88 


AREL X 


Benötigter Speicherplatz ı 


10 Register 


Guido Studer, Turnhallenweg 7a, 4143 Dornach (Schweiz) Seite 1 


Programm: Entfernungsberechnung mit Koordinaten 


a) Zeschreibung - 


Diesas Entfernungsberechnungsprogramm ist ein speziel auf dem HP-41 C ent- 
wickaltes Anwenderprogramm, das nach der Formel 


E (miles) = con”! [einem ) sin(NL,)+ cos(NL,) cos(NL,) cos(0n,-08,) ] x 60 


abläuft. 

Die Entfernung ("E”) ist eine Angabe in Milas. Für die umrechnung in 

km muss mit 1.8544 multipliziert werden. 

Ich have dieses Programm erstmals am 30. Juni 1980 geschrieben. Die jetzt 
vorliegende fassung geht auf den 30. Juli 1980 zurück. 


Noch einige Bemerkungen vorweg: Bei einem Input von negativen Werten 
wird richtig über den O-Meridian hinweg gerechnet. Vorsicht: Bei Input 
von zweimal dem gleichen Punkt wird 90 m Entfernung berechnet. Diese iat 
jedach falsch. 


das Programm verlangt nun bei Begin die Eingabe von 4 Positionen (genauer 
2 mal x und y). Während der Verarbeitung gem. der oben erwähnten Formel 
zeigt Ger Rechner im Anzeigefeld die Bemerkung "Berechnung". Programn- 
schritt 36 und 37 können bei einer Ausgabe in Miles weggelassen werden, 
dsch empfehle ich dann den Pgrm.schritt 4D (" KM") durch (" MILES") zu 
ersetzen. 


“wenn nun die Anzeige "” 999.99 KM " im Display steht, kann das Programm 
mit (R/S) weitergeführt werden. Falls man jetzt aber mit diesem Wert 
rechnen will, genügt es, die [Clear-Taste (« ) zu bedienen. Die nächste 
Anzeige ist nun "NOCH EINMAL ?",. Wenn dort "Y" ("Yes") eingegeben wird, 
verzweigt das Prgn. wieder zum Start; wenn nicht, dann kommt die Frage 
"INPUT-VIEW ?" (Anzeigen der Eingaben). Auch hier kann wieder mit "Y" 
geantwortet werden, dann zeigt die Anzeige für eine sec. "KONTRÜLLE : 
und bringt dann für jeweils eine sec. die Werte (1-4) in dieser Form 
in den Display: "1. 99.99" / "2. 99.99" /"3. 99.99" / "4. 99.99". An- 
schliessend kommt die Frage "ZUM ANFANG ?" in die Anzeige. Wenn nicht 
"Y* eingegeben wird, zeigt der Rechner " » ENDE = ". 


Das im LBL 07 verwendete Zeichen "Y” kann natürlich auch mit der deutschen 
Eingabe "J" ausgewechselt werden. Ich persönlich ziehe jedoch "Y" vor, 
weil es unter dem "*"-Zeichen sehr günstig liegt und einfach zu merken 
ist. 


Auch der Names für das LBL 07 ist sehr willkürlich gewählt. Ich verwende 
in allen meinen Prgm. XEQ 07 für die Verarbeitung von "Yes/NO" Eingaben. 


Das ganze Prgm. kommt auf 33 belegte Prgm.Zeilen, was 95 Programmschritten 
entspricht. Es werden die Speicher 00-05 und das Alpha-Reg. benützt. 


Ueber Ideen, wie sich mein Programm verbassern oder verkürzen lissse, 
wäre ich sehr dankbar. 


Guido Studer, Turfffellenweg Ta, 4143 Dornach (Schweiz) Seite 2 


mm; Entfernyngeberechnung mit Koordinaten 


Start en 


999.9 KM 


FANG ?IT; 


INFUT 


+ 
< 


le"Y” 


INPUT 


> 


2 
oO 
> 
=z 


Berechnung b) Flussplan 


gem. Form. 


m 
= 
oO 


"Euido Studer, Tu 


TREE ARE 


znhallenws 


an Year 


g Ta, 


en De: 


4143 Dornach (Schwei. 


Programm; Entfernungsberschnung mit Koordinaten 


ce) Listing 

O1 +LEL "ENTF 
02 +LBL 01 

03 [N 2 2 

04 "Pos. ı (X) 
05 PR. 

06 STOo Ol 

07 "(y) 

08 PA. 

09 sTo 02 

10 "Pos. 2 (X) 
ıı PR. 

12 STO 03 

13 r(y) 

14 PR. 

15 sTo 04 

16 "BERECHNUNG 
17 AVIEW 

18 ENTER / 

19 RCL 02 

20 = 

el C05 

e2 RCL 03 

23 COS 

24 a 

25 RCL 01 

26 CoDS 

&7 hg 

28 RCL OL 

29 SIN 

30 RCL 03 

3ı SIN 

32 ® 
Erklärungı 
(7/9 

67 we 3 


2 
33 
34 
35 
36 

7 
38 
39 
40 
4 
42 
43 
44 
45 
46 
47 
48 
49 
50 
5} 
52 
53 
54 
s5 
56 
57 
58 
59 
60 
61 
62 
63 
64 


1.8544 ) 

2 

sTto 00 

” KM 

ASTO 05 

CLA 

ARCL 00 

ARCL 05 

PR. 

"NOCH EINMAL? 
ADN 

PR. 

XEQ 07 

X=Y?7 

GTO 01 
"INPUT-VIEW? 
PR. 

xEQ 07 

XAY? 

GTO 03 


+LBL 02 


"KONTROLLE 3 
AVIEW 

PSE 

ELA 

"Lex 

ARCL D1 
AVIEN 


65 
66 
67 
68 
69 
70 
7ı 
72 
73 
14 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 


BETESY 


FRE 


PSE 

CLA 
ra 
ARCL 02 
AVIEW 
PSE 

ELA 
"I.n 
ARCL 03 
AVIEW 
PSE 

CLA 
"en 
ARCL 04 
AVIEW 
PSE 
"ZUM ANFANG? 
PR, 


xEQ 07 
X=Y? 
6TO 01 
+LBL 03 
na» _ ENDE,*®_ 
PR. 
+LBL 07 
ASTO Y 
CLA 

"Y 
ASTO X 
RTN 
END 


ı Klammern (ich stelle diese mit dem "grösser als" und 


dem "kleiner ale"-Zeichen dar - Shift 'I'! a'('!, Shift 


rt a')'!) 


Zeilennummer / '"' = normalerweise ein halbes "T"(hab 
ich aber nicht auf der Schreibmaschine) / 2. /' ' = 


SPACE 


0. tuder, enhallenueg 7a, 4143 Dornach (Schweiz) 


mn 


Lamm; Entfernungs 


d) Beispiel 


rechnun 


X = Nördliche Länge 
-X = Südliche Länge 


ra us! 


Perie : 


Eingabe: 


XEQ "ENTF" 

48.833 (R/S) 
2.333 (R/S) 
47.566 (R/S) 
7.583 (R/S) 


(R/S) 


N (R/S) 
Y(R/S) 


N (R/S) 


48.033 / 2.333 


mit Koordinaten 


N 


Y = Destliche Breite 
-Y = Westliche Breite 


Basel ı 


BERECHNUNG 
413.98 KM 
NOCH EINMAL? 
INPUT-VIEW? 
KONTROLLE : 
1. 48.89 

2. 2.39 

3. 47.57 

4. 7.58 

ZUM ANFANG ? 
”s ENDE ”. 


47.566 / 7.583 


(ca. 2 sec. 


jeweils ca. 1 sec. 


) 
) 
) 
) 
) 


Seite 


"rg 


GRUNDLAGEN DES PROGRAMMS A SM 
Ersotzschaltbild der ASM : 


Alle Werte auf Stünderseite bez. 


Definitionen : 


ana. nz 
$= Fon In ts 
PS .:Polpaarzahl 
x1=X1I5 +XH 
x2=X29° +XH 


Komplexe Berechnung des Stünderstromes Il : 


Leistungsformeln : 


PEL=3*U1*11*COSF 
PV1=3°R1*112 
PDEL=PEL-PVI 
PMECH=PDEL (1-5) 
PV2=PDEL*S 


Drehmomentberechnung : 

RE ee 
wu STRIHRZT SS) 

Frequenzönderung : 


x(f n+1)=(f_ n+1) *KOEFF.*X(f n) 
mit : 50 

KCEFF(O)=1 

KOEFF (n+!)= 50/(f n) 


Wirkungsgrad : 


ETA=PMECH/PEL 


m 8 5 2 2 
R2 =UeK *R2=----- 3” ”R2 


2 
x= X2"UeK”-X1 ; wS2"PIHf tz 


11 # darf nicht $ sein !! 


ERLÄUTERUNGEN ZUM PROGRAMM _A_S _M 

Der maßgebende Programmteil ist die Berechnung des Stünderstromes Il. 
Aus diesem werden alle Leistungen sowie COSF und ETA berechnet. 

Die Ermittlung des Momentes Mel erfolgt direkt, könnte ober leicht 

auch aus PMECH und der Drehzahl erfolgen, 

Der Schlupf zu einem gegebenen Strom Il (Betrag) wird durch ein iterat. 
Verfohren ermittelt; ein vorbereitendes Programmstück nühert vorher 

die Kurve s=f(Il) durch eine e-Fkt. an. Die so gewonnenen Koeffizienten 
wirken konvergenzbeschleunigend. 

PROGRAMMLAUF : 

(Rechner fragt Daten der Masch. ab) 

AUSGABE (seqg. mit R/S ) 


NS - Synchrondrehzahl 

oO - Winkel um den Osonnakreis 
gedreht ist 

xg - Durchmesserreaktanz 

ıg - " strom 

UekK - komplexes Übersetzungsverh. 

SK - Kippschlupf 


MK -  " moment (Mot,Gen) 
1 - Ständerstom als Fkt(s) 


COSF - Leistungsfaktor. 

PEL - Ständerleistung 

PVI = Stünderverlustleistung 

PDEL - Luftspaltleistung 

PMECH = mech. Leistung (abgeg.,zugef.) 
ETA - Wirkungsgrad 

PV2 _ - Löuferverlustleistung 

MeL - entwickeltes Moment 

FNEU - Routine zur Frequenzänderung!! 
v - Ermittlung der Koeffizienten 
S - Ermittlung von s bei geg. II 


MASCHINENBEISPIEL : 


PROMPT 
uUl=? 
R1=? 
x1-? 
x2=? 
R2=? 
XH=? 
PS=? 
F=? 
IIN=? 


GEN=SFQ 


1 STO 06 


xEQ V 


a 
D 


NS=1500 1/MIN 
a0=1,040 GRD 
x9=3,246 OHM 
19-67,773 A 
VeK-1 fi 056 
SK=0,2393 
MKM=116,70 NM 
MKG=-173,72 NM 
11=67,56 A 


COSF =0,4040 


PEL=18014,8 
PV1=8899,3 
PDEL=9115,6 
PMECH=0,0 
ETA=0, 00000 
PV2=9115,6 
MeL-58,03 NM 
11=26,71 A 


1167.56 A Werte fUr Nüherungskurve 


SN=0, 052478 


Iteration NENNSCHLUPF 


N=1421,3 1/MIN 


Il=16,00 A 


COSF=0,8504 


PEL-8980,8 
PV1=499,3 


" PDEL=8481,5 
"PMECH-8036, 4 
" ETA-0,89485 
" PV2=445, 1 

" MeL=53,99 NM 


NENNWERTE (MOTOR) 


REGISTERBELEGUNG : ITERATIVES VERFAHREN FÜR S=f(I) 
0 u Annahne : Sen 1=a „Ben! 
01 RI Sı=a e 
2 liefert : In a=---—\ 1 
R2 Ve: Font 
= - 1/lonl * Ina 


+ Iteration : nach SN 


Forderung : I-I(5i) & 0 
I1ns so. el 
Si+l=Si*(1- ( I(Si)-I)b) 


bis: 
16 COSF Si-Sirl£ EPS (1E-09) 
18 1.Kurvenpkt. 


19 2, “ 


20 Ino, a ü 
2 b Nuhgzunge 


Benutzte SUBROUTINEN : CABS,CADD,CSUB,CMULT,CDIV (siehe Beilage) 


Bi+LBL -NSM 


02 FIX 2 
03 "Ul=?" 
84 PROMPT 
85 STO 88 
86 "Ri=?" 
87 PROMPT 
83 STO 91 
89 "x1=?" 
18 PROMPT 
11 STO 82 
12 "K2=?" 
13 PROMPT 
14 STO 03 
15 "R2=?* 
16 PROMPT 
17 STO 94 
18 "XH=?" 
i9 PROMPT 
28 STO 85 
2ı "PS=?" 
22 PROMPT 
23 STO 09 
24 1 
25 STO 17 
26 "F=?*“ 
27 PROMPT 
28 STO 18 
29 508 
38 xX#Y? 
31 REQ "FNE 
uU” 
32 “I1iN=?" 
33 PROMPT 
34 STO 12 


35+LBL NS“ 
36 FIX & 
3?” RCL 18 
38 RCL 89 
39 7 

48 68 

41 * 

42 STO 11 
43 “"NS=" 

44 ARRCL X 
45 "F17MIN“ 
46 AYVIEN 

47 RTN 


48+LBL "30" 
49 FIX 3 
58 RCL 81 
51 RCL 92 
s2 7 

53 ATAN 

54 "a0=" 
55 ARCL % 
56 “+ GRD" 
57 AVIEM 
58 RTN 


59+LBL "xXB"“ 
68 FIX 2 
6i KEQ "UeK 


62 xt2 

63 RCL 03 
64 * 

65 RCL 82 
66 - 

67 STD 0? 
68 "X8=" 
69 ARCL X 
?8 "FH OHM" 
71 AVIEN 
2 RTN 


?”3+LBL "IO"” 
?’4 RCL 08 
?”5 RCL 87 
?r6 7 

rer "-19=" 

”8 ARCI N 
va .Hb A“ 

808 NVIEN 

ul RTN 


97+LBL 


98 
99 
188 
101 


182 
183 
194 
105 
106 
1907 
198 
199 


118+LBL 


111 


126+LBL 


FIX 3 

RCL 81 
RCL 82 
XEQ 


RCL 85 
r 
"VeK=" 
ARCL X 
AVIEW 
RTN 
xt2 
RCL 84 


D 
sTo 88 


FIX 4 

RCL 987 
RCL Bi 
xEQ 


RCL 88 
x>YV 

Pd 

STO 86 
“"SK=" 

ARCL X 
AYIENM 
RTN 


"MKr 
FIX 2 
XEQ "Mel 


“MKM=” 
ARCL * 
-r NM“ 
AVIEN 
STOP 

-1 

ST« 86 
xEQ "Mel 


[L} MKG= - 
ARCL X% 
“FR NM“ 
AVIENM 

RTN 


"-I1” 


127+LBL A 


128 
129 
138 
131 
132 
133 
134 
135 
136 
137 
138 
139 


148 
141 
142 


143 
144 
145 
146 
147 


148 
149 
ı50 


151 
152 
153 
154 
155 
156 


FIX 2 
RCL 94 
RCL 86 
RCL 03 
RC>YV 
RCL 85 
xt2 
x<> T 
CcL* 
RDN 
xEQ 


RCL 82 
RcL O1 
*E@ 


8 
RCL 08 
RDN 
RDN 
xEQ@ "CDI 
v. 
ENTERT 
RDN 


157+LBL 


158 
159 
169 
161 
162 
163 
164 
165 
166 
167 


168+LBL 


169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
1868 
181 


182+LBL 


183 
184 
185 
186 
187 
188 
189 
198 
191 
192 


193+LBL 


194 
195 
196 
197 
198 
199 
208 
201 


202+LBL 


203 
284 
205 
286 
207 
208 
209 
210 


"cos 
E- 

Fix 4 

sto Y 

Rt 

x<>V 

BG 

sTo 16 

"CcoSFf=" 

ARCL *% 

AVIEM 

RTN 


"PEL 


FIX 1 
RCL 88 
RCL 15 
L ‚2 

3 


03 

RCL 16 
L 3 

sTto 13 
"PEL=" 
ARCL % 
AYIENM 

sTor 


-PVi 


RCL 81 
RCL 15 
xt2 

* 

3 

x 
“Pyi=" 
ARCL X 
AVYIEW 
STOP 


CHS 

RCL 13 
+ 

sto 14 
“PDEL=* 
ARCL x 
AVIEN 
STOP 


"PME 
CH “. 
1 

RCL 96 


*« 
“PMECH=" 
ARCL x 
AVIENM 
STOP 


211+LBL "ETA 


212 
213 
214 
215 
216 
21? 
218 


219+LBL 


220 
e21 
222 
223 
224 


>. 
an 


226 
227 


RCL 13 
Di 

FIX 5 

"ETA= .- 
ARCL * 
AVIEN 

sSTor 


“pv2 


FIX 1 
RCL 14 
RCL 06 
3 

. PV2= [7 
ARCL 8% 
AVYITEN 
STOP 


228+LBl. "Mel. 


22 9+L6EL 6 


238 
231 
232 
233 
234 
235 
236 
237 
2386 
239 
2408 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 
261 
262 
263 
264 


265+LBL 


266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
27’e 


279 
2808 
281 
282 
263 


284+LBL 


FIR 2 
RCL 88 
RCL 86 
7 

RCL 91 
+ 

xtr2 
RCL 97 
xt2 

+ 

RCL 88 
xt2 
RE>IY 

Eu 

RCL 88 
RCL 86 
+ 


3 
RCL 89 


RND 
"Mel=*“ 
ARCL * 
“+ NM" 
AVIEM 

RTN 
GTO 


RCL 18 
1: 

+ 

RCL 17 
RX>Y 
sto 17 
R<>Y 

Pi 

ST+ 82 
ST* 83 
ST# 85 
SsT« 11 
KEQ "UeK 


xt2 
RCL 94 
% 

STO 88 
RTN 


"s* 


285+LBL C 


286 


287 
288 
2869 
298 
291 
292 
293 
294 
295 
296 
297 


“GEN=FSO 
e- 

AVIEN 

STOP 

RCcL 21 

RCL 12 

nn. 

ETX 

RCL 28 

„ 

FS? 08 

CHS 

STO 86 


298+LBL 80 


299 
3808 
381 
382 
3a3 
3084 
395 
306 
307? 
398 
309 


FIX 2 
VIEW 06 
xEQ "11" 
RCL 12 
sto Y 
AB> 

1 E-3 
x>YV? 

GTO 91 
RDHN 


310 RDN 
311 RCL 
312 « 
313 CHS 
314 1 
315 + 
316 ST« 
317 GTO 


21 


86 
88 


318 CF 88 


319+LBL 
328 FIX 
321 
322 
323 
324 RTN 
325 FIX 
326 1i 

327 RCL 
328 - 
329 RCL 
339 «+ 

331 


"SN= 
ARCL 86 
AVIEN 


.N=- 


ei 
6 


1 
86 
11 


332 ARCL X 


333 
334 
336 GTO 


337+LBL 
338 .1 
339 STO 
348 <EQ 
341 STO 
342 1 
343 STO 
344 XEQ 
345 STO 
346 RCL 
347 
348 7 
349 CHS 
358 1 
351 + 
352 17% 
353 .1 
354 LN 
355 * 
356 STO 
357 RCL 
358 7 
359 CHS 
368 
361 
362 
363 STO 
364 GTO 
365 


R>Y 


-r 1/MIN 


AYIEN 
335 STOP 


-ıIi1- 
.y. 


86 
18 


86 
-I1” 
19 
18 


20 
19 


KLAUS SCHMITT 


Hemedorf 


14+LBL 
15 STO 


[2] 
e1 


16 SF ei 


17 FS? 
18 XEQ 
19 FS? 
28 XEQ 
21 FS? 
22 xXEQ 
23 RTN 
24+LBL 
25 STO 


2 
06 
83 
87 
84 
04 


8 
e2 


26 SF 92 


27 FS? 
28 XEQ 
29 FS? 
38 xXEQ 
3ı FS? 
32 xKEQ 
33 RTN 
34e*LBL 
35 STO 


ei 
86 
03 
088 


36 SF.63 


37 FS? 
38 XEQ 
39 FS? 
4+B XEQ 
41 FS? 
42 xXEQ 
43 RTN 
44+LBL 
45 STO 


46 SF 94 


47 FS? 
48 XEQ 
49 FS? 
Se xEQ 
5ı FS? 
52 XEQ@ 
53 RTN 
54+LBL 


09 


55 ARCL x 


56 AYIENM 


57 


RTN 


S58+LBL 81 


59 


65 


RCL 
xEQ 


, 
sTto 


84 
85 


02 


.Lz2* 


xEQ 
RTN 


66+LBL 82 


67 
68 
69 
8 
vi 
?2 
73 
74 
75 
76 
‚7? 


RCL 
RCL 


D 
RCL 
. 

1/% 
sTto 


86 
84 


83 


ei 


“Fz=" 


xEQ 


88 


STOP 


GTOo 


?78+LBL 


79 
80 
ol 
82 
83 
84 
85 
86 
87 
88 


RCL 
RCL 
RCL 
* 
+ 


sSTo 


e1 
03 
84 
06 
82 


ol 


-F==- 


KEQ 


sSToP 


GTO 


89+LBL 


99 
9 
92 
93 
94 
95 
96 
97 
98 


xEQ 
RCL 
: 
178% 
sTo 
“C=- 
xEQ 


84 
04 
85 
84 


083 
88 


sSToP 


GTO 


99+L.BL 


108 
101 
102 
1083 
194 


RCL 
RCL 
b 

sSTO 
RTN 


185+LBL 


106 
197 
108 
109 
118 


xEQ@ 
RCL 
0) 
sTo 
“-XL= 


01 
85 
66 
01 


85 
06 
05 
82 


04 


aanaHH 


11 


KEQ 88 


ı 
112 STOP 
1 


13 GTO 84 


123 


*+LBL 87 
xE@ 05 
RCL 083 


GTOo 01 


124+LBL 88 


125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 


“sy a7seL 34p 215 uayanıp “paym Zyasunmab agau9 "y @1P 


SıLes “auyauaq 3949 'E a1p Pam aqeburz "2 Jap YDEN "uaqaba6 


-Up3 UTAH LaMZ NIgy uarse] aıp Jaqn uapıam uueg 'g2’9 = a X 2 


RCL 92 
RCL 03 
%« 

SQART 
RCL 66 
L.j 

1/% 
sTo 81 
“Fo” 
KEQ 09 
STOP 
GTO 86 
END 


zujayasıa abyazuy Jap u] "zuasaLaß sbeL4 aıL® I a3seL IP 


zu uapaam 3syaeunz *(v)z pun (4)9 *(H)7 *(ZH)d usg949 JaLA Uap 
uayasımz bueyusuesnz uap F9Uy9319q „arade]-4H, Wweubolg SaS3}0 


HF- Tapete @& 


I{Hz) L{H) Ci) ln] cf 


BLOI-L: 4 
LBLOZ-F = Hr 
[BLOI-F = ZL, 
(BLOL-C= 4 
LBLOS —-w= Znf 
(BLOG -2Z= ul 


„1 © 
LBL 0? 1:7 


LBLO8 —F= 
BL 0 InvYıc 


Register 


ol 2 CH] 


H. HENZE 


PROGRAMWESCHREIBUNG 


Dieses Programm Tiefpaßfilter (TPFIL) 2. Ordnung mit Einfachmit- 
kopplung berechnet die Widerstände Rıs R, und L,. Der Berech- 
nungsgang ist folgender: 


Nachdem das Programm eingegeben ist, werden die gewünschte Grenz- 
frequenz (f_), die Kapazität, ch - C, in die Register eingegeben. 
Dann entnimmt man für den gewünschten Filtertyp (Bessel, Butter- 
worth oder Tschebyscheff) die Koeffizienten a, und b, aus dem 
Buch: Halbleiterschaltungstechnik von U. Tietze u. Ch. Schenk 

(5. Auflage), Springer-Verlag. Diese Koeffizienten werden in 
Register 03 und 04 eingegeben. 


Dann Taste A drücken; nun vergrößert das Program C, bis der 
Wert unter der Wurzel größer als Null wird. Beim 1. STOP steht 
der hert R, in der Anzeige. Taste R/S drücken: R wird berechnet. 
Falls R, und R, nicht in der gewünschten Größenordnung Tiegen, 
muß C, geändert werden. 


Nun ruft man q| und C, aus den Registern Ol und 02; diese Werte 
entnimmt man dem Lager, mißt sie mit einem Kapazitätsmeßgerät 
aus und läßt die genauen Werte wieder in die Rechnung einfließen. 
Die so gewonnenen Werte für R, und R, müssen nun ebenfalls sehr 
genau ausgesucht werden. 


Für Filter höherer Ordnung muß dieses Spiel für jedes Teilfilter 
durchgeführt werden. Die hierfür erforderlichen Koeffizienten 
sind im genannten Buch bis zur 10. Ordnung ausgerechnet. 


-ı1 
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I1371*+10 


v8 193 608 
+ 80 

” 20 

eıx 90 

ee 193 SO 
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re 193 £9 
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UBSBALRRLAIERUNUUUUAAUUNNNNNNNNNNruru—m— mn 
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‘ 
MAUN-FHONNLRRDONHGLRENENFTAEIKOFNUNNOXI ENDE 
ZAH OA 9 090-349 .009 .- AH OO-HD-AA o 
eo#nroo r rrooorrr vo rroan0o r 
a) a) < 1.9 
vo os 89 so 8900590 oo 0009 © © 
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Te 193 TI 


FJdl- 


mn 
Tiefp fr mit Einfachmitkopplung 2.Ordnung 


Berechnung 
a,Cz- 4b, C, C; 


Berechnung 


a C- Y a,2C22- 46,C, C, 


4rt Ch Ca 


Berechnung 


a,Cz+Va,2C2?-4b,C,C, 


4rtg Cı C2 


PRISMA ELEKTROTECHNIK SEITE 3 


PGM. BEISPIELE 


1) TPFIL 3) PRGM ABS 

fg = 5 kHz STO 00 T und PI Abschwächer 

C1=1nrF sTo 01 

C2=1nrF sTo 02 dB 10,00 STO 00 

al = 1,36 STO 03 21 50,00 STO 01 

b1 = 0,62 STO 04 22 50,00 STO 02 

Ergebnis : XEQ "ABS" R6=71,15 

R1 = 15964 Ohn R5=96,25 

R2 = 27325,31 Ohm R4=96,25 

SF 01 RUN R3=35,14 
R2=25,97 
R1=25,97 
2) HFIL 

fg = 1 kHz STO 03 dB 20,00 STO 00 

C1 = 1o nF sTo 01 21 600,00 STO 01 

C2 = Io nF STO 02 22 50,00 STO 02 

al = 1,36 STO 04 sF 01 

biL.=0502 N XEQ "ABS" R3=136, 36 

Ergebnis : R2=-72,73 

R1 = 23,4 kOhm R1=627,27 

Be eo CF 01 RUN R6=220,00 
R5=47,83 


R4=-412,50 


Prograsmbeschreibung 


Das Programm Hochpaßfilter (HFIL) berechnet ein aktives Filter 2. Ordnung. 
Für Filter höherer Ordnung muß die Berechnung für jedes Teilfilter mit den 
entsprechenden Koeffizienten durchgeführt werden. 


Programmausführung: 
1.) Eingabe der Grenzfrequenz fg [Hz] + 03 


2.) Eingabe der Kapazität C und [, {F} >» 01,02 kann zunächst gleich groß 
gewählt werden 


3.) Eingabe der Koeffizienten &, und bJ- Diese Werte, je nach Filtertyp, 
entnimmt man dem Buch: Halbleiterschaltungstechnik von U. Tietze 
und Ch. Schenk (5. Auflage), Springer-Verlag. 


4.) Durch Druck auf die Taste A wird R, berechnet 


5.) Taste R/S drücken: R, wird berechnet. 
Falls R, und R, nicht in der für den Op. Verstärker gewünschten 
Größenordnung liegen, muß C, oder 9) oder beide Werte geändert werden. 
Dann beginnt man wieder git Punkt 4. 


H Hana 


r 
WNNNNDNNNNN- mn nn me m DO SOSDOOS OS 
SO NNWNEWN- SVEVONAKNEWN-OOVONNWAUAN 
% + 
MT H+DIRNADAOHF-AFD- LOG EINKTNTC MT 
zA 00 99 NONON AO DD DO 
3 x rr Eee xxrxrx ro rr 
90 90 SS © 9 9 D 
ne” aus DD en WW 


IJH- 


für T Abschwöcher SF 


Eingabe : 


d8B+SI0 00 
oder K+>S10 03 


2, +ST0 01 
2,+S510 02 


SIZE 014 


Rn — 10 12 


PRGM : ABS 


T ABSCHWÄCHER 7 


Ur R, R; 
—1 Rz 
ıh U. 
De Tr 
ZN 1 La 
R, = Zı Si RD mr 
NI<F Lg. NeE,d 
Re ap er 
N?«E 1 1. NeF, 1 
Re gap lRs v ver 


'PRP_ -ABS- 


81*+LBL "ABS 53 RCL 61 
u ; 54 17% 

82 RCL 96 55 RCL 85 

83 %=8? 56 * 

84 GTO 01 57 RCL 13 

05 268 58 - 

86 7 59 17% 

87 101% se STO 12 

88 STO 83 61 "R4=" 

62 ARCL % 
89+LBL 81 63 PROMPT 
18 RCL 01 64 GTO "ABS 
i1 RCL 82 “ 
12 7 
13 STO 94 65+LBL 982 
14 RCL 83 66 RCL 3 
15 xXt12 67’ 2 
16 RCL 84 68 * 

17 + 69 RCL 96 
18 RCL 83 r-e 7 

19 xT2 ”ı RCL 1 
28 RCL 84 v2 * 

21 - ' 73 STO 87 
22 STO 66 74 "R3=" 
23 7 75 ARCL X 
24 STO 85 76 PROMPT 
25 FS? 01 77 RCL 02 
26 GTO 82 78 RCL 85 

9 m 
27+LBL 083 88 RCL 97 
28 RCL 03 sl - 

29 2 82 STO 88 
se * 83 "R2=" 

31 RCL 86 84 ARCL X 
32 7 85 PROMPT 
33 RCL 82 86 RCL Bi 
34 178% 87? RCL 05 
35 %* 88 * 

36 STO 13 89 RCL 87 
37 178% 98 - 

38 STO 18 91 STO 89 
39 "R6=" 92 -Ri=- 

48 ARCL x 93 ARCL X 
41 PROMPT 94 PROMPT 
42 RCL 82 95 GTO “ABS 
43 1/% < 
44 RCL 85 96 END 

45 * 

46 RCL 13 caT 1 
47 - caT i 
48 17% LEL"’ABS 

49 STO ii END 

58 "R5=+ 149 BYTES 

Si ARCL X .END. 


52 PROMPT 87 BYTES 


Hans-Günter Lütke Uphues 
Rahnhofstrnfe 20 
4bO1 Altenherge 


HP-b1_C__berechnet Betriehsdämpfungsmaß und 


Dieses für den HP-LIC geschriebene Programm berechnet das 
Betriebsdämpfungsmaf an und den Retriehbsdämpfungswinkel by 
einer Schaltung, einer Vierpolkette, die am Eingang mit 
einem Generator (Innenwiderstand 2, e R, + ,) und am 
Ausgang mit einem Lastwiderstand (z, .R, + 3x, ) abge- 
schlossen ist. , 

Die Vierpolkette besteht aus einer Reihenschaltung mehrere 
Vierpole, auch Zweitore genannt, welche alle sogenannte 


unvollkommene Vierpole eind, d.h.ı entweder 


Schaltung Kettenmatrix 


Werden mehrere Vierpole in Reihe gesrhaltet, so missen 
die einzelnen Kettenmatrizen multipäiziert werden, was 
nach den Regeln der Matrizenrechnung geschieht, Da es 


sich hier um komplexe Kettenparameter Ayır Az Ası 


und Ay, hr > nehmen diese “Serechnungen (Addition, 
Multiplikation, Division und Wurzelziehen) einen richt 


unerhetlichen Teil des Prorcramms und der Rechenzeit ein. 


Mit dem hier vorgestellten Programm lassen sich folgende 
unvollkommene Vierpole verarheiten, Weitere unvollkom- 
mene, aber natürlich auch vollkomnene, Vierpole können 
leicht dem Prorramm hinzugefürt werden oder anstelle 
eines der hier aufgezählten Vierpole in das Programm 
aufgenommen werden, Für diese eventuellen Ergänzungen 


stehen die Label 23, 24, ... noch zur Verfügune. 


LAL_00 LRL_0O1 
2 R y 
——— oO 
R 
Oo 
LBL_02 LAL_07 


LBL_OL L LAL_OS5 
Si — 0 
a 
| ————— °) 
LRL_06 LBL_07 


® 


LRL_08 LAL_O 
R 


LRAL_10 R LPRL_11 
° | f ° R 


LRL_12 R RL 1 
Be R 
L 


Die Zahlenangaben bei den hier aufgeführten Vierpolen 
geben die Nummer des Labels an, unter dem der entsprechende 


Vierpol im Programm gefunden wird um dessen Kettenmatrix 


aufzustellen. 


Theorie und Formeln: 


Das RBetriehsdämpfungsmaß ap und der Betriebsdäspfungs- 
winkel werden in diesem Programn aus dem komplexen 
Betriehsdämpfungsfaktor Dy und dem komplexen Betriehsdäm- 


pfungsmaß Ep wie folgt berechnet: 


ur; 
2° 


Hierin ist 


En = ®p * 365 


1 Z i Z 
"ang (ala € Ay2\az- + A,,1212, * ozlzt ) 


= komplexer Betriebsdämpfungsfaktor 


komplexes Betriebsdämpfungsmaß 


2, 
1) 
an Betriehsdämpfungsmaß 

bn - Betriebsdänpfungswinkel oder Betriebsphasenmaß 


Zur Programmhedienungt 


Die Reihenfolge der Vierpole muß im Anschluß an LOL A 
zusätzlich zu dem bestehenden Prorramm programmiert 


werden, und zwar vom Eingang zum Ausgang der Vierprlikette. 


Bei der Werteeingahe f’ir die Schaltelemente ist dir ?Peil- 
henfolge R, L, € für alle Vierpnole gleich. Nesteht ein 
Vierpol aus nır einem Schaltelement muß natürlich r:ır 

ein Schaltelement dem Rechner eingetippt werden. Zur Fin- 
gabe dieser Werte, sowie der Werte des Generatorinne"wi- 
derstandes und des Lastwideretandes wird das Alpha-Inrel 
"EING" wie Eingabe verwendet und fiir den Werechnngsstart 
das Alpha-Label "START". Nach dessen Aufruf mtlirsen n>ch 
Anfengsfreqnenz f, Frequenzschrittweite Af und die F-d- 
freguenz L nax einrereben werden. Danach startet das ’ro- 
eramm mit der Perechnung und endet mit der Anzeige des 
Wertes f = Imaz + af. 

Es wurde diese Eingareroutine gewkhlt, um Rerechnunr:n mit 
anderen Frequenzen an der selben Schaltung leicht vornehmen 
zu können, wofür einfach mır wieder das Lahe]l "START anf- 


gerufen werden muß, 


Da bei Schaltungen mit vielen Pavelementen eine Fehi-ingahe 
vorkomnen kann, ist auch eine Korrekturronutine ins F:ogramm 


aufgenommen worden. Wenn man z.N. nach Fingate ren '.. 


® 


| 000 
Schaltelementes feststellt, daf dan 2. Rauelement mit einem © 
falschen Wert eingetinpt worden ist, Fann man hier die Fin- 
gaberoutine unterbrechen, die Nr. des zu korriglierenden 
Bauelementes (hier 2) in die Anzeice tippen und mit XEQ TKOR 
die Korrekturrontine aufrufen, wonach in der Anzeige wieder 
R,L,C?n (hier n = 2) erscheint. Jetzt tippt man den richti- 
gen Wert ein, drlickt R/S ınd man kann nach Anzeige von R,L,C?n 


an der Stelle der Eingareroutine fortfahren, wo man sie unter- 


hrochen hatte. 


Pegister- und Lahel-RBelersung des Prorremms: 
A) Repisterbelegung: 


RCO „.. R19: für komplexe Matrizen 
R20: Frequenz f 

R21: Fregnenzschrittweite &Af 

R22: 2 x PIxf= ww 

R29%: verschiedenes 
R2h: " 

R?5: Endfrenuenz ft 
R26ı Zähler 

R27ı reller Innenwiderstand des Generators R, 


ax 


R28: imapinärer Innenwiderstand des Generators 3%, 

R29: reller Lastwiderstand R_ 

RI0: imagin“rer Lastwiderstand IX, 

R?1: Inneninduktivität I, bzw. Innenkapazität -c, des G, 
R32: Lastinduktivität L, bzw. Lastkapazitst -C, 


R33 .„....: Werte der Schaltelemente, beginnend mit n = 1 


P) Lahbelhelepuing: 
LS3L 00 ... 13: für Kettenmatrizenarfstellung eines der 
angegebenen Vierpole 


LPL 14: Wurzelziehen aus einer komplexen Zahl (Unterpro- 
' 


gramm) 


LSL 15: komplexe Multiplikation (\Unterprorramm) & 
LTL 16: Matrizenaustansch 
LRAL 17: Schleife zur Werte-Einpare der Hauelerente 
LRL 18 und 21: Schleife zır Nerechnung des Retriehsdäm- 
pfungsmaßes an und des Betriehsäämpfungs- 
winkele db, in Frequenzschritten von af 
LAL 19: komplexe Division (Urterprocrarm) 
LRL 20: Sprungadresse für komplexe Division EEE 
programm der komplexen Multiplikation 
LYL 22: Komplexe Matrizenmultiplikation 
LPL Ar Label zum Auffinden der Pegm-Zeile, ah der die 
Yettenmatrix-Unterprogramme aufgerufen werden 
ı8L TEING: Eingahe des Generatorinnenwidrstaries 2,» des 
Lastwiderstandes Zr sowie der Werte der Schalt- 
elemente 
LRL ToTartı Eingahe von T, AS, ES und Prorranmstart 
LAL Tror: Korrektwr einer falschen FTingare eines Schalt- 


elementes 


Schluf4emerkungen: 


Soll das Programm in dieser Form ver"erdet werden, ist ein 
Drucker notwendig. Steht dieser aber nicht zur Verfiüpming, 
müssen die Druckhefehle PRA ( = Drucke Inhalt de= Alphn- 
Registers ) gelöscht werden, Bei der Programmzeile 102 kann 
zur Anzeire der Frequerz der PRA-Refehl dırch den AVYIFYW- 
Pefehl und bei den Prorrammzeilen 193 und 197 durch je einen 
TROMTT-Nefehl ersetzt werden, vr an zw. da arzYızeoigen und 
das Programm abzıstonner. Sird lese Anceruncen vorgercerren, 
muß nach jedem berechneten Wert R/S zur Fertsetzu.c der 


Berechnung gedriickt werren. 


Das gesamte Programm ( 1022 Pytes ) kann auf 10 Mnmetkarten- 


seiten danerhaft gespeichert werden. 


Literatvrhirweise: 


E. Philipnow: Grundlagen der Flektrotechnik 

Prühl/Jansen/Vogt: Nachrichteniihertragungstechnik I 

Stefan Hamerlii:ı Wobhelkurven ohne Mefgerät ermitt:1t: 
Elektronik 5/1978 


© 


Programmhedienung: 


Eingare der Vierpolket- 
te: 


Eingahte des Generetorin- 
nenwiderstardes, des 
Lastwiderstandes und die 
Werte der R„!1elemente 


Vorhereitung EQ TRInG 


R/S 


Achtung: = rR/s 
Falls Innenkapazität ? R/S 


oder Lastkapazität 
vorhanden, müssen die- 
se mit negativem Vor- 
zeichen eingegeben 


werden, 


Wenn alle Schaltelemen- 
te eingegeben wırden: 
weiter mit 4 


3 Korrektur eirer R,L,C- 
-Eingate (n-tes Pavele- 
ment) 


weiter bei 2 


y Frequenzeingaben: EQ "STAR F? 
Startfrequenz f R/Ss dF? 
Frequenzschrittweite af R/S F MAX? 
Endfremterz Sike R/S 


Rerechnunrsstart. 
Rechnung endet mit f + &äfr 


BI+LBL "EING* 
ENG 9 DEG "RI?" 


PROMPT "H= * ARUL X 
PRA STO 27? *LI,-CI” 
PROMPT *H= * ARCL X 
PRA STO 31 "RL?" 
PROMPT "F= " ARCL X 
PRA STO 29 "LL,-CL” 
PROMPT "H= * ARCL X 
PRA STO 32 ADY ADY 

3 SO 1 Sta |! 
CF 29 
35+LBL 17 

-"R,L,C?" FIX ARCL 25 


ENG 9 PROMPT -H= “ 
ARCL X PRA STO IND 26 | 
1 STe 25 ST+ 26 | 
cTo 17 

49#LBL -START- 
SF 29 ADY Fr 
“= * ARCLX HZ" 
PRA -dF?" PROMPT 
“tz " ARCLX Fo HZ» 
PRA STO 21 - STO 28 
-FHAX?" PROMPT 
ARCLX =+ HZ* 
STO 25 ADY ADY 


98+LBL 2i 
-Fz* ARCLX °F HZ" 
PRR 2 PI « # ST 2 
REL3I XOY = STO 28 
LASTK REL 32 * STO 30 
REL26 INT 1E3 7 33 
+ STO 3 | 


123+LBL A 

RCL 38 80? 17% 

STO 38 RCL 29 REL 28 
x? 17% STO 28 

RCL 27 XEQ 19 XEQ 14 
sto 88 xCdY STO 89 
xOY REL Bi RCL 88 
xE0 15 STO 88 KDY 
STO O1 RCL 28 RCL 27 
RCL 38 RCL 29 RER 15 
xEQ 14 STO 18 KKDdY | 
Sto 11 ROY REL 83 

RCL 82 RDN RDN XEQ 19 
ST 88 Kor ST+ 8 

RCL 85 RCL 64 REL 11 
RCL 18 XEQ 15 ST+ 88 
xOY ST Mt RCLLB7 
RCL 86 REL 89 REL 88 
xEQ 19 STH 88 XV, 
ST, 91 RLOI 2 7°; 
RtL BB 2 7 R-P LOG 


PROMPT 


Er 


PRA | 


26 * aß“ ARCL X 
“F dB" PRA "bB= 
ARCL Y "GRAD" PRA 
To 18. 

199+LBL 88 


RCL IND 26 STO 16 8 
ste 17 STO 18 STO 19 
TO 22 


207+LBL Bl 

RCL IND 26 17X STO 18 
a sSTO 19 STO 16 

ST9 17 6T0O 22 


2l6+LBL 82 

RÜL IND 26 RCL 22 * 
17% CHS STO 17 @ 
STO 16 STO 18 STO 19 
cTO 22 


228+LBL 83 

RCL IND 26 RCL 22 « 
ST0 19 8 STO 18 

sTo 16 STO 1? GTO 2 


238+LBL 84 

RCL IND 26 RCL 22 
St ı7 8 STO 16 

sto 18 STO 19 GTO 22 


248+LBL 85 

RCL IND 26 RCL 22 * 
17% CHS STO 19 ® 
sto 18 STO 17 STO 16 
610 22 

26urLEL 86 

RCL IND 26 RCL 22 * 
1/X 156 26 RCL IND 26 
RiL22E * - 1/8 

sto 1? 8 STO 16 

STo 18 STO 19 CTO 22 


277+LBL 87 | 
RCL IND 26 ISG 26 
RCL IND 26 RCL 22 * 
17X XOY REL22 * -, 
1% STO 19 @ STO 18 


I61+LBL 10 

RCL IND 26 STO 23 

156 26 RCL IND 26 

RÜL 22 * * STO Z4 
2 1 + 17% ENTER? 
ENTER? REL 23 * 

sto 16 XOY RCL24 * 
CHS RCL 23 = STO 17? 
a STO 18 STO 19 

cTo 22 


39a+LBL 11 

RCL IND 26 STO 23 Xt2 
ISG 26 RCL IND 26 

RÜL 22 * 17% STO 24 
%t2 + 17% ENTER? 
ENTERt REL 23 * 
STO 18 XOY REL24 * 
sto 19 8 STO 16 
sto 17 GTO 22 


416+LBL 12 


: RCL IND 26 STO 23 


156 26 RCL IND 26 

RCL 22 = STO24 7 
ENTERt 17% + 1X 
ENTER? ENTERt RCL 24 

* STO 16 KOY REL23. 
s Stoi?r 8 STOI8 
sSTO 19 6T0 22 | 
442oLBL 13 
RCL IND 26 STO 23 Xt2 
ISG 26 RCL IND 26 | 
RL 22 # STO24 Xt2 
+ 1X ENTER? ENTER? 
RL 23 * STO18 KOY 


STO 17 STO 16 CTO22 | RCL24 = CHS STO 19 


295+LBL 88 


.RCL IND 26 17% STO 23: 


2 156 26 RCL IND 26 
RL 22 = 17X CHS- 

ISG 26 REL IND 26 
RCL22 = + STO 24 

Kt2 + 17% ENTERt 
ENTERt REL 23 «* 

STO 16 XV RCL24 * 
CHS STO 1? 8 STO 18 
STO 19 CTO 22 
329+LBL 89 

RCL IND 26 STO 23 xt2 
ISG 26 RCL IND 26 
RCL 22 « 156 26 

RCL IND 26 RCL 22 «* 
17% - STO24 X + 
17% ENTERt ENTER? | 
RCL 23 * STO18 KOY: 
RCL 24 * CHS STO 19 

8 STO 16 STO 1? 

GT0 22 l 


?6+LBL 18 
Av 1 STO 88 STO 96 
db STo ei STO 82 
Sto 083 STO 84 STO 85 
STo 87° RCL 21 ST+ 28 
RCL 25 RCL 28 %=Y? 
GTO 21 ADVY ADY ADY 
sTop 


| 0 sTo 16 STO 17 


REL Bi STO 89 RCL 88 
STO 88 RCL 17 REL 16 
xER 15 STO 18 XOY 

STO 11 RCL 83 ST+ II 
RCL 92 ST+ 1O REL 19 
RCL 18 XEQ 15 ST+ 08 | 
KOY ST+ 89 RCL 85 

STO 13 RCL 84 STO 12 
RCL 17 RCLIG KEO IS 
STO 14 KOY STOIS | 
RCL @? ST+ 15 RCL 6 | 
ST+ 14 RCL 19 RCL 18 
xEQ 15 ST+ 12 XOY 

ST+ 13 15,067 STO 23 

2 STO 24 
St2eLBL 16 | 
RCL IND 23 STO IND 24 

I ST- 24 DSE 23 

CTO 16 ISC 26 RIN 
S21eLBL 19 

R-P 17X KV CHS 

CTO 28 

927+LBL 15 

R-P KOY 

SIQeLBL 20 

RDN RDK R-P Rt * 

RDN + Rt P-R RTN 


A6T+LBL 22 | 
\ 


RTN 


Y 
zZ 


R-P SORT KO 


ENTERt SIH 
xoOY COS RECL 


541+LBL 14 


" ARCL & 
ARCL X 
32 + ENG 9 PROMPT 


"KOR.: 


"RL,C?" 
ARCL X PRA 


Sto IND Y ADY CTO 17 


SI6+LBL "KOR“ 
END 


FIX 0 
PRA 
u } 


yLISPIELRUFGCHBEN 


1.: Bandsperre in PI- Schaltung: 
L 


: «oyen arlast! 


L 
i L,, " 
188 
RI?= 608. aABaDBBER 
R, = 600 Ohm LI,-C1?= 1,080088888E-6 
N: RL?= 608, BBBABRER 
i F& LL,-CL?= 500, BBBBBRBE-6 ad 
R. = 600 Onm 
L 
m R,L,C?1= 2,38708RB8BEB 
2 R.L.C?2= 15,79088888E-9 
R,L.C?3= 1,B00BBBABBEI 
L, = 2,38 H R,L.C?4= 11,370B0B8BE-3 
£ R.L.C95= 3, 320008808E-6 
c, = 15,79 RE R.L»,C96= 2,00000BUB8ER 
R, = A EB kOhm R,L,C?7= 2,3870B8088EB 
L, = 11,37 mH R,L,C2B= 15, 79800888E-9 er 
c, = 3,32 aF Fr= 768, B@RRBER HZ 
dF?= 28. B0RRABBBEB HZ 
Ron FNAX?= OB, BBBBRBBEO HZ 
L, = 2,387 H " 
ec, = 15,79 nF j gr - 
F= 768, 80088BBEB HZ ® 
iu: BANDSPERRE aB= 995,9072418E-3 dB 
anna bB= 35,13397186E8 GRAD 
£ F= 788,B0RRBBEO HZ & 
LIST 885 aß= 2,890977686E8 dB EYT 
B= ’ 4 
BE bB= 58,62148685E0 GRAD s 
124 XEQ 07 ! F= 808, 88BBRRBER HZ " 
er Hu n | aB= 6,886231534E8 dB L 
= ’ 7 
a, bB= 84,60218B67EB GRAD 
F= 828, B0BBBRBER HZ | E 
aB= 77,23240972E8 dB | 
bB= -162,3824545E® GRAD f 
F= 840, 80BBBBBER HZ 
aB= 5,988997432E@ dB 3 
bB= -84,90558786E9 GRAD 
F= B6B,BOBBBBBEB HZ = 
aß= 2,148621272E@ dB 
bB= -51,93943582E8 GRAD N 
F= 898, 8080808EB HZ Ä 
aB= 1,889591769E8 dB 
bB= -37,86710984EB CRAD it ru al \ 
kt 


F= 900. 0800888E8 HZ 
ab= 656,5725332E-3 dB 
bB= -28,78841355E0 GRAD N 


?,: Randpan: 


= scan Ohm 
= 1 vH 
= 600 Ohm 


=0,5mH 


R_ = 10 kChm 
., = 2,387 u 
= 10 IOhm 
C, = 15,79 nF 
TL, = 5,68 m 
GC, = 4,63 ı«F 


Pi?= GAR, BAAAESET 
L1,-019= 1,88AhuRsABE-6 
P_?= 686, HOBRORALE 
LL,-CL?= 508, 60ROGAKE-& 


R,i,C71= IB.BARROdAGES 
F»L:0?2= 2.3870. °BAREE 
R,L.C73= 18, Boreanagz3 
r.u,C?se I, CTERAARAE-I 
R.1,095= 3, 0FhnanandE-3 
B.L.096= 6. B3RENABAGE-E 


EI= 76h Are m 
dF?= EB. RERERBIEER HZ 
Fr NAk?= 9ab.BABaAdKca HZ 


F= 768, MABRdASTE HZ 
abs SE.7775776EE0 de 
hB= -76. 76RTII4BER GRAT 


F= 756 ,ABOERGER HZ 
ab= 27,89921014E0 dE 
bB= -62,56RIETZSER GRAD 


F= SOG, AaöRnGece Hz 
az 23, 7278007886 de 
bB= -44,65666164E0 GRAI 


F= 824: ABAABRIcE RZ 
PB IE ST ENRZET TER 
hE= -551,8325884E-3 GRAT 


F= Bi, ahnnahdzs 
abs 22, 5320J2ıckE de 
biz 42: EI RY55EER GRÄE 


F= Eoh, BAkigelTe Fr 
ahz 27, ZR3SE User 
h 


B= t EL, 3115855 deE Gral 
6, 149673 3257a 8 
56,507 31768E5 GFäD 


hr ser, kuekuecee Bl 


Bis) 


b) 
WO u 0m 


Trı 


3.: Nochnraf: 


C 
; 
BER ERBEN a Be 


R,= K&a0 Ohm 
L, = 1vF 

Rn = alale) Ohm 
I, =0,5 MH 


C, = 331,6 rF 
ı Chm 


110,4 mH 


r 
l 


I. RSCHPRZS 


LIET #4 


a 
nd 


Ä 
6: 
13 
3e 


217 


an mern 


Dmnmın 


Fr 


.. nn 0a 
mmwvn 9) 


MEN 
aa >. 


P1?= bar. BaHanEnEh 
Li,-C1?= i.BRBRRAMAdT-z 
RL?= 606, Boonäctet 
LL,-CL?= 506, KHBRNaME-€ 


R.L.£671= II, 6-9 
R,L.C?2= 1, BR6RARLHEh 
P.L.CI= 115. 4RANAABE-3 
Fr? 160 Mike 52 
dF?= 10a. Hbsalidze nr 

F MSK?= BOB BERBURAEN HZ 


F= 2ub.AAneeaGEd HL 
ab= 18. 1a4EHTs1ER SE 
pB= -149,8475513ER GRAD 


H 

' 

o 

= 

nn Ju 
mn a 
nr Goch 
6-0 Mm cd 


F= 4AE, annasi 
a6: Taten 
bb= -116.97 PSRS50CR gel 


” = = 


nn, ET 
lTunicEn de 
ÜBBETTTTOER GERI 


ex 


nn 


"SARA I6ETE Mr 
2.HS32ES28E8 GER! 


en: er 


'b= 62: NOTIELZSER Ger: 


K.: Tiefpyaß: 


R, = 600 Ohm 
L.,, =1 HH 


PL = 6CC Ohm 
i RI?= EER, HUGAdABEE 
L, = 0,5 m LI,-61?= 1. OR0RanERBE-6 
RL?= 6AR, BEBRBHRER j 
LL,-CL?= 509, GRSROARE-c 
L,, = 110,4 mY 


R = 
2 ı Chr 


= 231,6 n® 


Fi Sen, GARBRDRTR HI 
dE3= Sen.RÜBRRRGER nz / 
F Hax= J.0nnanhBRREI HT / 


N 


F= 566. BRAHABHER AZ 
. Dacia ad aß= i64.6172850c-3 de 
4.: TIEFPASS bE= 37 ,BIAIEISEER CRAn j ke 


= 1,66 nz 


„IST Be2 aß: 2.6691ETTT2ER 0 
bB= SB.R273S771EC CRAI 
122 L EL k 
“ Er ud PRSRENIIE . , 1% 
Es Keen F= 1,5BARRGRNAEI K2 
125 AEr i! ak: EIRSDASIAER q 3 
126 RL 3 bB= i11.9537371E8 CRAD 


(ET RI ? 


Pu 


F= 3. eaarekuor: 172 
abs i17,B1159854EE ME Y 
hi= 145, 1631 2EER GRAI 


g,: Schwinrkreis? n 
R 


3270 
H l 
“> nn 
2 
2.92 
Z 
2 
Sy 
3 


= Ri?= 6A, WRRRGBREE 


PL?= 6ad, BAREULKER 


LL.-CL?= SEE, BORREABE-6 
R 
_ —=>,hı 1 
1, 
C, = 10,5 nF 
»_ = 100 kChm 


EuRüepEE 


: F= 70, BuRBueRER H7 
ae rc B 
nn abs 24 ,63227S56E8 g? 
an bE= B6,32371126ER GRAD 


F= 900, eraeoeäce Hi 
ab: 35, GnaTTatER cE 


bB= GE, EEESEEESEN GRAD 


12er PüL 39 


un. een 


So 


b= B2.HASETSOGEN 


3 
bB= 69, 24E Sy 1 83ER GERT 


m MEETING rer 
N DESETITSER GE 


ds BR SET ELETTER GrRl 


Name; 


Beschreibung: 


Antwicklung: 


nn Di 


Register: 


15 


Widerstandsbestimmung 


Speicher: STO 00 bis STO 02 


Raimund 3erg, Fagener Str. 200, 5910 Kreuztal 6 


Das Frosramm haostimrt Ter Aim-Wert nnd die "Toleranz von "ider- 
stunden, die nit einen 4 oder 5-stelligen Tarbcode gekennzeichnet 
sind. 


Status: ENG 2, CF 29 
Ausführung: 1 Programm eingeben 
2 Tastenfeld-!'aske auflegen 
3 ersten Wert mit X3Q "OH!" starten, Farben der Reihe nach eintipren 
4 die nächsten Werte können mit R/S gestartet werden 
Tastenfeld-Maske: über die Ziffer o kommt die Bezeichnung SCHWARZ 
1 BRAUN 
2 ROT 
3 ORANGE 
4 GELB 
5 GRÜN/OHNE Toleranzring 
6 BLAU 
7 VIOLETT 
8 GRAU/SILBER 
9 WEISS/GOLD 
Listing: 
= nn ar Berechnen 024 LBL o1 ee ni = Anzeige - 
00 E s 025 RCL 02 o h Er 
005 / es standes 026 10* & 053 CLA Rautine 
004 INT EST 027. ST 01 = nn 02 
005 STO 01 PU RCL 00 Mororhnen HSon 2 oo" 
= ar 09: ven Berechnen der 056 a 2 
007 FRC 030 10 ToLeran z 057 ARCL 01 
008 10 031 % 058 AYIEN 
009 * 032 INT 059 END 
olo STO 00 033 STO 02 
o11 INT 034 5 
012 STO 0? 035 x%Y? 
015 8 036 GTO 02 
o1l4 X»>\? 037 to 
015 GTO 01 038 STO 02 
016 -1 039 RCL2 
017 STO 02 o4o 8 
018 RCLZ 041 X=Y? 
019 9 042 GTO 02 
020 X=Y? 043 
021 GTO 01 o44 STO 0? 
022 -2 045 RCL2 
023 S'TO 02 046 9 
04T X=Y? 
o48 CGTO 02 
049 ?o 
050 STO 02 


Nane: DIN-ASA - Umrechnung 


Beschreibung: Das Prosramm rechnet NIN-Werte in ASA-"erte um. 


Rs ist für alle 


“otofreunde interessant, die keine Ümrechnungstabelie bes.tzen 
oder auf deren Apparate keine ? Skalen aufredruckt sind. Die 
DIN- und ASA-Yerte zeigen die Empfindlichkeit eines Filns an. Te 
höher der Yert, um so lichtempfindlicher ist der Film. 


Entwicklung: Raimund Berg, Hagener Str. 200, 591o Kreuztal & 


Register: 22 


Speicher: STO 00 


Eingabewert 


Status: beliebig, AD und’DA können irgendwelchen T»sten zugeordnet werden. 


Ausführung: 1. ASA-Wert eingeben (3£x£1?800) , XEQ AD 


2. DIN-Wert Bingeben (6£x£4?) , XEQ’DA 


Listing: 


001 LBLTDA 
FIX o 


CF 29 
INT 
STO 00 


3 

MOD 

GTO IFDX 
009 LBL oo 


013 LBL 04 


019 LBL 02 


023 LBL 05 


031 LBL 01 


DIN 3 ASA 
Status festlegen 


etwaiger Dezimalteil 
unterdrücken, abspeichern 


die passende Reihe aussuchen 
1. Reihe 
Anfangswert 


Anzeige-Routine 


2. Reihe 
Anfangswert 


Routine, die die Unregelmäßig 
keit der Reihen ausgleicht 


3. Reihe 
Anfangswert 


0356 LBL 03 


48 


068 


2 
RCL”oo 
3 

£ 

14 


ABS 
INT 
Y 


RN 
L3LTAn 


21 

+ 

RND 
CLA 
ARGL 00 
F ASA= 
ARCL X 
Fr nm 
L3BL 06 
AYIEW 
sr ?9 
FIX 2 


07? uND 


ASA-Wert berechnen 


Anfangswert 
nun = L 
2 b) 


ASA > DIN 
Status festlegen 


Umrechnung 


Standardmodus her: 
stellen 


Titel des "rorrarrs: Forrärderhng am Krapafn 


Xane des Frorrammierers: Hars-Clinter Li!tke Uphues 
Rechnermarke und Typ: Yyr_uIC 

Softwaremodıls veines 

Anzahl der Speicher/Pemzeilen 16/113 

Drucker: Ja und nein (wahlweise) 
Anzah]l der Fartenseiten: 6 ” m 


PROGRAMMBESCHREISUNG / PROTLETPSTELLUNG: 


Die Deanspruchung eines eingespannten Trügers, hervorfrrufen 
durch ein Riegemoment, hat eine Krliimmung der Trägerachse zur 


Folre: 
Ar Sucht 
ar: au uall 


Dir ceformnierte Trigerachse nennt man Piegelinie oder auch 


elastische Linie, 


Dieses Pgm ist so aufgebaut, Jaß verschiedene Relastungs- 
TS1lle überlagert werden, d.h. daf die einzelnen RPelastungs- 
fälle einzeln nacheinander Aurchgerechnet werden (siehe 
Pem-Test) und alle Zwischenerge*rnisse argezeigt x oder heim 
anreschlossenen Drucker mit Text ausgedruckt werden. Auf 
Wunsch karn auch Jederzeit die Ausgabe der Summenregister 


erfolgen. 


Repisterhelemung: 


oO: EI Ci: d 02: y 03: z 
Chraq 05: x oe: F 07: Summe A 


C8: Summe M 09: Summe phiA 10: Summe phid 11: Summe f 
12,13, 14 und 15 benutzt 2 


= Kraft (N) M” = Moment ( N/mm ) 
Durchbiegung ( mm ) FE = Elastizitätsmodul ( N/mm? ) 
= Trägheitsmoment ( mm! ) phi = Winkel (rad ) 


Pu 
[1 


= Streckenlast ( N/mm ) de, y, z und x = Längen ( mm ) 


PROGRAMMPEDIENUNG: 


Anzeige + - 
Dedienungsanweisungt ingabe Taste Ausgzbe |] Terechnurg 


XEQ KRAG F? 
I? 
4? 


1. Eingahe der Systemwerte 


& 


NN 
m 
(A 


1 


2. Fingare und Trerechnung 


Auflarer A 
R/s zZ? “onent Y 
Drehwirkel A 
R 
/S ‚a Drehwirkel « 
R/Ss Durchbiegung 


SINN 
= 

= 

fa) 
rn 
1} 

2 
ET 

Eee) j 
N | 
na 0 


x? 
F? 


r 


N 


3. Ausgabe Summenspeicher: Summe A 
Summe M 


+)ı Wenn Drucker ange- Summe rhi A 


schlossen: R/S nicht Summe rn] d 


Summe f 


seen 


notwendig! 


M-N'a M '‘(t-a 


J 
tenrfte 
FORMELN? 


Krakarm mit 
Streckenlast: 


A=alz -y) 


n. ale,2.r] 


Hx 2 
Me sl2_;.z)- 


zeb 


y-.a 


8 = Yoagtr Sta- 3) + Yazte- 3) + Yaßpaelta - 2.2228) 


Felli: dp>b 
a De Te I 


Fall 2: aecd<b 
N 


M''(b-a) 


3EI” 


Fall 3: dca mtr. m(i- 8) 4 8,8 


M'(h- b+3 
fa3 ” wir Ylszel(o- u) 


Phigz = phi, - »lpzel R (me Mlesa) 


„ uiant)ere)] 


2 


bemitzte FORMELN: 
Krafarıo mit Einzellast: 


M = Fx 


“Im WIM 


alt Trraw 


PGM .„ TEST 


E?=218, 088. A6BR 
1?=18, 080, 08. 88 
d?=2, 158. 08088 


y?=158. 00808 
2?=3,808. 08888 
«?=11.00988 


R=31 ,358. 80888 
N=49, 376.258. 08 
<N=8.02357 
4d=6.02303 
f=33.18771 


£R=31, 350. BBBBE 
£M=49, 376,258. 88 
«A=8.02357 
4d=0.02303 
£1=33.10771 


x?=2,158. 08980 
F?=108, 088. 8888 


R=100, 888. BRBB 
N=215,088. 088.8 
«N=8. 11806 
«d=8. 11086 
f=157.75198 


£R=131, 358. 8088 
£N=264,376.,258.8 
«A=8.13363 

«d=8. 13389 
£f=190. 85969 


FORMÄNDERUNG AM KRAGARM 


E?=219, 088. 8888 
1?=10, 888, 888.00 
d?=188. 00808 


y?=150. 08800 
z?=3, 808. 88888 
«?=11.88088 


R=31,350. 80088 
=49, 376,258. 00 
«A=8.02357 
4d=0.00228 
f=8.11507 


£R=31, 358. 00888 
£N=49, 376, 250.80 
«N=8.82357 
4d=8. 80228 
£1=8.11507 


x?=2.159. 00088 
F?=188, 088. 8808 


N=108, 088. 0888 


N=215,000, 008.8 
«R=8. 11886 
«d=8.81808 
f=8.50397 


£n=131, 358. 0888 
£M=264 ,376,250.0 
<R=8.13363 
£d=0.81228 
£1=0.61904 


E?=218, 808. 8880 
1?=18, 088, a08. 00 
d?=3,509. 88080 


y?=150. 200AB 
273,008. 0A00 
«?=11.00888 


A=31,350. 00803 
N=49, 376,258. BB 
«A=0.02357 
4d=8.82357 
f=64.81123 


&n=31, 358. au? 
£6=49, 376,750. 06 
in=0.02357 
«d=8.02357 
£f=64,81123 


x?=2.158. 00808 
F?=188, 098. 0800 


n=188, 808. 8888 
N=215.888,000.8 
«R=8.11886 
4d=8.11006 
f=386.33234 


£R=131,358.8080 
EN=264, 376, 250.0 
«A=0.13363 
4d=8.13363 
£1=371.14357 


81*+LBL "KRRA 


Gr 
a2 
83 
04 
85 
06 
07 
as 
89 
18 
11 
12 
13 
14 
15 
16 
17 
18 
19 
208 
21 
22 
23 
24 
25 


FIX 5 
CLRG 
CF 13 
"E?“- 
PROMPT 
“-=" 
ARCL * 
AVIEN 
[I I?- 
PROMPT 
"r=" 
ARCL X 
AYIEN 
IR 

sTo 98 
SF 13 
"4?" 
PROMPT 
“„p=e“ 
ARCL X 
AVIEN 
stTo 81 
ADYV 
STOP 


26*+LBL B 


27 
28 
29 
38 
31 
32 


SF 13 
uxgre 
PROMPT 
“-="” 
ARCL 8X 
AVIEN 
sTo 85 
CF 13 
Dur 2) 
PROMPT 
“.r=" 
ARCL x 
AVIEN 
sTOo 86 
ADV 
"A=* 
RCL 86 
ST+ 87 
ARCL X 
AVIEN 
FC? 55 
sSToP 
-M=- 
RCL 85 
« 

ST+ 068 
ARCL % 
AVIEN 
FC? 55 
sTor 
-«A=" 
RCL 85 


66 

6, 

65 
69 
78 
7 

r2 
73 
r4 
75 
76 
77 
78 
79 
88 
81 
82 
83 
84 
85 
86 
87 
88 
89 


STO 


13 


FC? 55 


STOP 


RCL 85 
RCL 81 


Rx<vr? 


GTo 82 


RCL 


"<d= 


ST+ 


12 


18 


ARCL X 
AYIEN 
FC? 55 


STOP 


RCL 
GTO 


98+LBL 


ED 
92 
93 
94 
95 
96 
97 
98 
99 
188 
101 
192 
103 
1984 
165 
186 
187 
188 
189 
118 
111 
112 
113 
114 
115 
116 
117 
118 
119 
126 
121 
122 
123 
124 
125 


RCL 
RCL 
E 
i 
RCL 
RCL 


ST+ 
RCL 
CHS 
RCL 
+ 

ST+ 


13 
16 
92 
86 
85 


81 
85 


13 
14 


12 


18 


"<d=" 
ARCL % 
AVIEN 


FC? 


55 


sTor 


RCL 
GTO 


13 
16 


126+LBL A 
sr 13 


127 


131 
132 
133 
134 
135 
136 
137 
138 
139 
148 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
168 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 
176 
177 
178 
179 
1808 
181 
182 
183. 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 


ARCL X 
AVIEN 
sTo 82 
29" 
PROMPT 
“tr-* 
ARCL X 
AYIEN 
sSTOo 83 
-Q?" 
PROMPT 
“"Lzmr 
ARCL X 
AVIEN 
sTo 84 
ADY 

CF 13 
RCL 84 
RCL 03 
RCL 82 


* 
ST+ 987 
“A=" 
ARCL X 
AVIEN 
FC? 55 
sTtor 
LASTX 


sTo 12 
RCL 863 
RCL 82 


RCL 84 


RCL 13 
RCL 82 


RCL 88 


196 
197 
198 
199 
208 
201 
202 
293 
2094 
285 
286 
297 
298 
299 
zıa 
211 
212 
213 
214 
215 
216 
217 
218 
219 
228 
221 
222 
223 
224 
225 
226 
227 
228 
229 
238 
231 
232 
233 
234 
235 
236 
237 
238 
239 
248 
241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 


& 


264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
2808 
281 
282 
283 
284 
285 
286 
287 


ST+ 
RCL 
RCL 


ST+ 


12 
[-[:] 


15 
14 
12 


10 


ARCL *% 
AYIEN 


FC? 


STOP 


RCL 
GTO 


288+LBL 


289 


298 


291 
292 
293 
294 
295 
296 
297 
298 
299 
398 
301 
392 
383 
394 
385 
396 
307 
388 
389 
318 
311 
312 
313 
314 
315 
316 
317 
318 
319 
328 
321 
322 
323 
324 


RCL 
1 

RCL 
RCL 


55 


15 


16 


81 
13 


81 
02 


326 
327 
328 
329 
338 
331 
332 
333 
334 
335 
336 
337 
338 
339 
348 
341 
342 
343 
344 
345 
346 
347 
348 
349 
358 
351 
352 
353 
354 
353 
356 
357 
358 
359 
368 
361 
362 
363 
364 


RCL 82 
RCL 681 


* 
RCL 83 
RCL 82 


EL 891 
RCL 82 


RCL ı2 
* 


RCL 88 
z 


RCL 15 
+ 


GTO 1& 


365+LBL 15 


366 
367 
368 
369 
378 
371 
372 
373 


RcL 14 
ST+ 18 
-id=" 
ARCL *% 
AYIEN 
FC? 55 
STOP 
RCL 15 


374+LBL 16 


375 
376 
377 
378 
379 
3e8 
3891 
332 
333 


SF 13 
ST+ 11 
» F= “. 
ARCL X 
AYIENW 
CF 13 
ADYV 
ADYV 
STOP 


384+LBL E 


3835 
386 
357 
338 
389 
32a 


"=" 
ARCL 87 
AVYIEN 
FC? 55 
STOP 

. EZEM= - 
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IMZRESS.UM — EEWLETT PACKARD ANWENDER CLUB 
1) Satzung: .a) Eintritt: Der Eintritt ist jederzeit möglich. 

b) Beitrag: Der Jahresbeitrag beträgt z.2t. 40,--DM. 

ce) Leistungen: Zweck des Vereins ist die Förderung von Wissen- 


schaft und Forschung. Der Satzungszweck wird ver- 
wirklicht insbesondere durch Durchführung wissen- 
schaftlicher Veranstaltungen und Forschungs- und 
Entwicklungsarbeiten, sowie der Herausgabe eines 
vereinseigenen Informationsblattes,. 

Letzteres erhalten Clubmitglieder kostenlos; ein 
Verkauf an Nichtmitglieder ist nicht möglich. 
deitergehende Forderungen, auch was Unfang und 
Zrscneinungsdatum der Informationen betrifft, sird 
nicht zaöglich. 


d) Srganieatien: Der Ciub ist völlig frei organisiert und steht in 
reiner direkten Verbindung mit Hewlett-Packard 
ScbE oder irgendeiner anderen Organisation. 


a) Austritt: Ser Austritt ist jederzeit möglich. Da der Bei- 
trag aber jeweils für ein Kalenderjahr entrich- 
set sim, endet die Mitgliedschaft immer zum 31. 
Dezember des Jahres, in dem die Kündigung ausge- 
sprochen wurde, Aus organisatorischen Gründen hat 
der Austritt bis zum 1.Dezember des jeweiligen 
Jahres zu erfolgen, 


f) Zopyrisht: Alle in den Clubheften erschienen Artikel dürfen 
nur nit der ausdrücklichen Genehmigung des Autors 
vervielfältigt, in Datenverarbeitungsanlagen gespei- 
chert oder in einer anderen Weise, die über den 
persönlichen Rahmen hinausläuft, genutzt werden. 
Diese gilt insbesondere für die Mitgliederlisten, 
für die eine solche Erlaubnis überhaupt nicht aus- 
gesprochen werden kann. 


2) Haftwaz: “Weder der Club als ganzes, noch einzelne Mitglie- 
der oder dritte Personen oder Einrichtungen können 
in irgendeiner Weise für Dinge oder Handlungen, ins- 
besnndere für Programme und andere Veröffentlichun« 
zen, sowie den Schaden der durch selbige anzerich- 
tet “erden könnte, haftbar gemacht werden. 

Für namentlich zekennzeichnete Berichte und andere 
Aıblixatisnen trägt allein der Autor die Verantwcr- 


tung. 


za a) Zintri*t: Aeim Zintritt “ird eine Anfnahmegebühr erhoten. 
zu db) Zeitrag: Beitragserhihurgen müssen bis zum 15.N;venber ei- 


nes jeden Jahres jeweils für das Folgende Jahr be- 
«anntgegeten werden, Fbenso Beitragsermäßlgungen, 
nerneawerte Änderungen der Clubleistungen und Auf- 
lösung dee Clubs. Disae Dings sind zuvor auf einer 
Mitgliederversanmlung zu besprechen. 


zu c) leiatunzen: 1981 sind acht Ausgaben vorgesehen, 
zı 1) Sreanisatian: derzeitige Struktur a. 
zu @) Haftung: Die Mitglieder erhalten die vublikatitnen auf ei- 


zenes Ris!xkn hin und haben Si daher ralhat zu ın- 
“eraucren, deder r Autor n-ch eln« o.natiega Par- 


Satzung_e gem“ B_dem Entwurf, von" Oktober 1980 1 in_ verbesserter Form, „Zuständigkeiten 


son oder Organisation übernehmen für das Progranmn- 
und sonstige Material eine irgendwie geartete Gewähr- 
leistung oder Haftung. Dies gilt auch für indirekte 
oder Folgeschäden. 

Die Ergänzung "Für namentlich gekennz.Berichte u.a. 
Publ.trägt allein der Autor die Verantw." wurde hin- 
zugefügt, um zu gewährleisten, daß niemand Schrift- 
stücke einsendet, die bereits anderweitig mit einen 
Copyright versehen sind, 


weitere Erliiuterungen und Ergänzungen: 


a) Die Aktivitäten des Clubs galten bisher dem if-41c. 
Sie werden es auch auf absehbare Zeit. 


b) Die Beiträge und Aufnahmegebühren werden verwendet für: 

- Druck der Publikationen - Portokosten 

- Druck von Werbeschriften, Briefbögen u.ä. 

- Kauf von Papier,Umschlägen,Stenpeln u.s.v. 

- Kauf von Fachliteratur für die Clubbibliothek 

- Kauf von Computer-Hardware und Software 
(insbesondere auch bei Erweiterung des Tätickeitasfel- 

des über den DP-41c hinaus) 

- Aufwandsentschädigungen für besonders aktive Mitglieder 
nder Nichtmitglieder für organisatorische Arbeiten, wie 
z.B. Versand- und Sortierarbeiten, Übersetz-n umfangrei- 
cher Barcodelisten, Zusammenstellung der C'.»infos, Auf- 
nahme neuer Mitglieder u.ä, 

- Durchführung wissenschaftlicher Veranstaltungen, die in 
Interessengebiet der Clubmitglieder liegen, 


3) Aktive Mitglieder und Aktivitätsgebiete (Mitgl.Nr. Name&Adr. : siehe “.zl. Liste) 


Nital- Zuständig für/ Leiter von/ Organisation von/ 


1 Aufnahme neuer Mitglieder : Austritt ® Finanzen > 
Zusammenstellung der Infos und übergeordnete Ürgani- 
sation ; Versand der Clubinfos s Planung neuer Pro- 
jekte : 

2 Druck der Clubinfos : Plotten der Barcodes 

3 Sammelbestellungen ( in finanzieller und recht]. 
Sicht unabhängig vom Club )5 Projektleitung "in- 
telligente Spiele" : 

11 Projektleitung und Autor "Programnierhilfen für 
Anfänger” 
25 Mitgliederliste 
75 Projektleitung und Autor "Synthetische Prgr." 
31 Projektleitung "Kalenderrechnungen"” 
116 ?rojektleitung "Yaunetkartenbibliothek" (s.a.205) 
117 Trojextleitung und Autor "Bücherecke" ı 
Verwalter der Clubbibliotheks Interfacetechniken 
164 Sammelbestellungen Akkus,Zubehör u.ä. (Anmerk, wie (3)) 
205 Projektleitung "Magnetkartenbibliothek" (s.2.116) 
Gesuchtı Projektleiter für "Statik”,"Mathematik" "Statistik", 
"Elexktrotechnix","Plottprogramme", "Spiele" u.v.a. 
WER MÖCHTE 277777 


Lernunnern 39-81 bis A2-A1 wurden versehentlien 
verzeben ! Die reinen Aarl-de-Seiten bitte nit 
"in hezeiernen ! 


Mitglieder! iste : 


Anmerkungen: Diese Liste wird ständig aktualisiert. Änderungen und Ergänzungen 
können mir jederzeit übermittelt werden. Bis Mitgliedamimmer 27 ist die Nr. mehr 


oder weniger zufällig, danach abhängig vom Zeitpunkt des Clubeintritts. 


1 Oliver Rietschel (63) 


we 


> 


a 


Bisuarckstr. 31 
2420 Butin 
Tel. 04521/2813 


Detlev Bock (57) 
Petrikirchstr. 36 
3400 Göttingen 
Tel. 0551/33221 


Ulrich Davertzhofen (57) 


Ostenbergstr. 97/ 2.8 
4600 Dortmund 50 


Gerald Kirsch (56) 
Mühlweg 8 

6922 Meckesheim 
Tel. 06226/8880 


Raiırund Berg (57) 
Hagener Str. 200 
5910 Kreuztal 6 
Tel. 02732/80240 


Rudolf Eber (37) 
Wetzldorfer Str. 12 
8481 Erbendorf 
Tel. 09682/2379 


Erich Graller (47) 
Hofackerweg 19 
8752 Goldbach 2 
Tel. 06021/53544 


Siegfried Gruhler (53) 


Sigmarewangenatr. 3 

7243 Vohringen 2 

Tel. 07454/2764 priv. 
07423/70227 Bü 


Gert-Jürgen Grünler (47) 
Düsseldorfer Str. 56a 


1000 Berlin 15 
Tel. 030/8817440 


Oliver 


Schülers Mathenatik und Chemie; Assistent in Informatik 
Kartenleser, Drucker, Strichcodeleser,Mathe ROM, Memorys 
Pascal ‚Basic(NorthStar,W. ‚Cromenoo) ‚Assembler,Ma- 
echinensprache (280804,280),Algol 60, 
EıRudern,Kegeln, Schwimmen ,Musik(HiFi) ‚Radfahren, Reisen 


Student; Physik und Elektrotechnik 

Kartenleser, Drucker, Strichoodeleser, ROM*Ys, DIM‘s 
Fortran IV, Algol, Basic, JHP-$5 

Eı Lesen 


Student; 
Menorys 

Basio Besuch von Rasen 
Hı Spielen; Labyrinthe (Bücher,Modelle, &Hecken Labyr. ) 


Student; Nachrichtentechnik 
Kartenleser, Memory 

Basic 

Eı Elektronik ,Tischtennis 


Maler-und Lackierer 
Kartenleser, Menorys 


Eı Gitarrespielen, Fotografieren, betriebswirtsch, Prob} 


Verwaltungs-Angestellter 
Menorys 


Statistik 


Hi Amateurfunk (DLEKE), Elektronik 


Technischer Berater für Bekleidungsindustrie 
Kartenleser, Memorya 

AOS 

Bı Gitarre,Bergwandern 


Ing. grad. Feinwerktechnik 

Kartenleser, Drucker, Standardmodul ‚Menorys 

Fortran IV 

Hı Musik(Saxophon,Akkordeon) ,"Häuslebauen" ‚Fußball 


Studienrat; Mathematik,Physik 

Kartenleser,Drucker, Strichoodeleser, ROM's, Memorys 
Basic 

Hı Fotografieren,Sport ‚Musik 


Friedrich Hillebrandt (48) Postarbeiter 


Jülicher Str. 443 
5100 Aachen 


Klaus Werner Hoenow (38) 


Alaskaweg 18 
2000 Hamburg 73 


Tel. 040/6786959 priv. 


040/2719499 BU 


Kartenleser, Drucker, Mathe ROM, Memorys 

Fortran IV, Algol 60, Basio 

Hı Deutsche Literatur des frühen 20, Jh., Krimis 

Besitzer von: 41,25,19,65 (HP‘s) und 57,59 (TI‘e) 
Casio FX-502P 


Diplom-Physiker 

Kartenleser, Drucker, ROM‘s, Menorys 

Fortran 77, Fortran IV, Basio, Algol 60 

Hı Technikgeschichte, Astronomie, Schach, Photographie 


12 Andreas Krenn (64). 
Elisabethstr. 35 
A-2500 Baden 


Schüler; HTL Nachrichtentechnik 
Magnetkartenleser, Drucker, Statistik ROM, Memorys 


Tel. 02252/82262 HıMathematik, Soience Fiction 


13 Harald M. Krumins (55) 
Doroteenstr. 62 
2330 Eckernförde 
. Tel. 04351/84935 


14 Günter Lelarge 
Kelterbaum 13 
5470 Andernach 14 
Tel. 02636/2137 


16 Clemens Mirgel (43) 
Weserstr. 7b 
6074 Rödermark 
Tel. 06074/7813 


17 Sidgmar Ortner 
Lahrndorfer Str. 131 
A-4451 Garsten 


18 Georg Raabe (48) 
Brotweg 10 
3320 Salzgitter 31 
Tel. 05341/265848 


19 Raoul Marc Ramdohr (58) 
Markstr. 190 
4630 Bochum 
Tel. 0234/73614 Zimmer 22 


20 Heinz-Dieter Sohmitt 
Casedorfer Weg 5 
3588 Homberg/Efze 


21 Dieter Schuppan (30) 
Schiller Str. 10 
5503 Konz 
Tel. 06501/3131 


22 Manfred ‘Sures 
Eschenweg 4 
7519 Eppingen-Rohrbach 
Tel. 07262/1386 


23Andreas Weiler (65) 
Wienerstr. 64 
A-2500 Baden/Wien 


24 Jürgen Weise 
Bergfriedstr. 10a 
1000 Berlin 61 


12-75ıIndustriekaufn. ‚„75-78:Wirtschaftegyun. ‚z.2t. Soldat 


- ab19815 Studium Wirtsch. -Pädagogik 
Basic 
Hı Audio, SF-Literatur, SF-Filme, Hard-Software 


Realschullehrer; Mathematik, Fhysik,Chemie 
Kartenleser; Memorys 


BıBriefmarken ( Deutschl. & Frkr,), Heimwerken 
Fotografieren/Filmen, Entwickeln(auch Farbe) 


Dipl. Ing. ;5 Bauwesen 

Kartenleser, Drucker, Memorys 

Fortran IV, Basic, Algol 60, APL, pap/&-Focal, HPL 
E:Film, Foto, Astronomie, Briefmarken 

Besitze einen HP-67 mit Mathe und Statik Programen 


Student; Chemie/Diplon 

Kartenleser, Memorys 

Fortran, Algol, Baeic, AOS 

Hı Fotografieren,SW-Entwicklung und Abzüge, Tennis 
Ski, Tauchen, Fahrradtouren, Schlafen 


Apotheker 
Kartenleser, Drucker, Module 


Schüler; Nachrichtentechnik 

Kartenleser, Memory 

Paecal, Basic, Maschinensprache 

Hı Minigolf, Astronomie, Elektronik, Mathematik, HiFi 


25 Edmund Weitz- (65) 
Heinrich-Heine-Str. 101 
3151 Esainghausen 
Tel. 05171/17718 


26 Michael Welter 
Mozartsr. 2 
6682 Ottweiler 


> 


27 Manfred Weyand 
Sauerbruchstr. 25 
4130 Moers 2 
Tel. 02841/63931 


28 Heinrich Henze (24) 
Zum Hohen Brunnen 12a 


3400 Göttingen-Herberhausen 1 


Tel. 0551/397717 Bü 


29 Emil Wörndle 
Talheim 58 
I-39050 Völs 


30 Christof Born (63) 
Gartenstr. 17 
4660 Gelsenkirchen 
Tel. 0209/7171878 


31 Dieter Pepprüller (51) 
Nikolausstr. 40 


5173 Aldenhoven-Schleiden 


Tel. 02464/8547 pr. 
02402/23075 Bü 


32 Wolfgang Treutwein (33) 
Vorjuraetr. 124 
8500 Nürnberg 60 
Tel. 0911/635750 


33 Karl-Heinz Spyra (49) 
Stermatr. 11 
5800 Hagen } 
Tel. 02331/331927 


34 Erwin Hartmann (36) 
Berliner Str. 56 
4030 Ratingen 
Tel. 02102/45260 


35 Dr. Hans La Roche 
Wildunger Str. 52 
7ooo Stutt 
Tel. 0711/567656 


36 Arel Burkart (60) 
Cawphausenatr, 40 
4300 Essen 1 
Tel. 0201/706892 


37 Falko-Romeo Herda (27) 
Ortlerweg 44 
1000 Berlin 45 

\ Tel. 030/8176388 


Schüler; Mathematik,Politik 
Magnetkartenleser, Memory 
Basic,PL/1,Fortran,Algol 

Hı Jazz,Personal-Computer (Apple) 


Bauingenieur 


Rundfunkmechaniker-Meister; Elektronik(Werkstattleiter) 
Kartenleser, Memorys 


Hı Fotografieren, basteln in Metall u. Holz für Haus 
und Garten 


Student; Architektur 
Memory 


Hı Modellbau,Motorrad,klass.Musik, Bousai+Garten 


Schüler; Mathematik, Physik 
Kartenleser, Mathe-ROM 

Basic, Pascal 

Eı el. Keyboarda 

Arbeite in der Schule anı WANG 2200 C 
Bankkaufmann 

Kartenleser, Drucker, Module 


Bs z.Zt. Hausbau -- Heizungstechnik 


Bauingenieur. (grad.) „ Ingenieurbau 
Kartenleser, Module, Netzanschl., HP-35/25/67 


Hı Bücher, klass.Musik, Fotografie, Pfeifenrauchen 


Elektriker 
Kartenleser, Memorys 


Hs Schach mit Computer, Basteln mit Elektronik 


EDV-Ingenieur , 

Memory 

Basio, Assembler 

Hı Foto,Filn, Abenteuer-Reisen 


Apotheker 
Kartenleser Drucker 


t-Bad Cannstadt $ Basic, HP Language 9815/3 


Et 
Student(Dortmund), HFı Informatik Nfı Elektrotechnik 


Menorys 
PDP11 Assembler, Pascal, SC/MP, Simula, 6809 Maschin. 


Hı Mikroprozessoren, Lesen, Musik(Anfänger) 


Verwaltung, 
Kartenleser, Drucker, Memorya 


A0S 
Hı Yoga, Gitarre 


38 


39 


40 


42 


43 


45 


46 


4 


49 


50 


Vdo Ricken nt; Wirtschsftsingenieur 
a schen (IT) chin x Memory = 

7500 Karleruhe 41 7? - 

Tel, - Hı Radfahren, Schwimmen, Tennis 
Helmit Gärtner. 


Postfach 700 760 
6000 Frankfurt/M. 70 


Dr. Hans-Wilhelm Helberg (28) Physiker 

Plauener Str. 1 Menmorys 

3400 Göttingen Fortran 

Tel. -- 

Siegfried Schwarze (65) Schüler; Humanist. Gymnasium 
Hilblestr. 34 Menorys 

Booo München 19 (Pascal), (Basic) ‚ 

Tel. 089/193649 Hs Motorräder, Lesen, Chenie 
Ralf Wanser (61) Schülers Physik, Mathematik 
Am Erdbeerstein 31 Kartenleser, Memory 

6240 Königstein - 

Tel. 06174/5587 H: Segelfliegen, Skifahren 
Egon Irriger 


Alexanderstr. 85 
4223 Voerde 1 


Norbert Weber (60) Student; Wissenschaften ( Bio, Chemie, Physik, Mathe ) 
Val Ste Croix 147 Kartenleser, Drucker, Memorya (DIM), Mathe ROM&Stand. 
Luxembourg Basic, AOS 

Tel. 444747 H: Computer, Mineralien, Waffen, Biochemie 
Klaus-Peter Nuber (50) Vermessungeingenieur (grad.) 

Briennerstr. 42 Kartenleser, Drucker, Menorys 


8000 München 2 
Tel. 089/ 533066 oder 539376 Bü 
089/ 522501 pr. 


Helmıt Maurer Ingenieur; Maschinenbau;5 Schaltwerks& Regelbetr.." Bas 
Alleestr, 21 Magnetkartenleser, Drucker, Moduln 

CH-8280 Kreuzlingen - 

Tel. 0724723706 Hı Segeln (binnen + See) 

Heinz Elsässer (48) Selbetändig; Ingenieur; Naohrichten-Daten-Technik 
Veilchenstr. 72 Kartenleser, Drucker, Menmorysa 

7537 Remchingen Pascal, Basic, Cobol 

Tel. 07232/71571 Hs Foto, Windsurfing 

Ludwig Held (22) Leiter Betriebsorganisation und Datenverarbeitung 
Löwentoratr. 65 Kartenleser, Drucker, Memorys 

7000 Stuttgart 50 Basie(IBM5120) ,Cobol(ANS),Fortran,PL/1-Optimizer, 

Tel. 0711/8106237 APL, Autocoder, SPS, AOS 

Hans Caudig (43) Apotheker 

Marktetr, 15 Kartenleser, Drucker 

7230 Schramberg - 

Tel. 07422/4289 Bi Modellflug 

Christof Waas luftfahrzeugmechaniker, ab Sept.801 Schülers HTIL- 
Gleinkergasse 16 Kartenleser,Memory,Akku Pac //l! Nachrichtentechnik 
A-4400 Steyr - 

Tel. 07252/639323 Bı Elektronik(Anfänger), Mikrooomputer, Motorräder, 


Foto4SWı kleines SW-Fotolabor vorhanden 


51 


52 


Michel Majerus (63) 
Heiderscheid 

Rue de Eglise 18 
Luxembourg 


Tel. 00352/89022 


Gerhard Siewert (14) 
Mozartar. 14 

6450 Hanau 1 

Tel. 06181/82464 


Michael Tarnowski (61) 
Fritz-Kalle-Str. 4 
6200 Wiesbaden 

Tel. 06121/844118 


Dr. Johannes Ahlert (49) 

Heinrich-Ohn-Str. 24 

3474 Boffzen 

Tel. 0551/3976550 Bü 
05271/5248 pr. 


Uwe Consbruch 
Wallstr. 9 
4030 Ratingen 1 


Walter Kropf (29) 
Schönowitzatr. 14 
A-8700 Leoben 

Tel. 03862/2571 


Bans Mann 
Mühlenstr. 5 
3401 Ebergötzen 


wilhelm Theisen (58) 
Egeretr. 36 

4600 Dortmund 50 
Tel. 0231/718708 


Guido R. Studer 
Turnhallenveg 7a 
CH-4143 Dornaoh 
Tel. 061/724978 


Robert Hlauc (63) 
Stinygasse 9/35/9 
A-1100 Wien 

Tel. 2 


Hagen Bırkardt (So) 
Saueretr. 51 

6230 Frankfurt-Nied. Bo 
Tel. 0611/3978334 


Stephan Grabiak 
Schloß Senden 
4403 Senden 
Tel. 02597/8219 


Ulrich Merz (57) 
Alt-Zeilsheim 60 
6230 Frankfurt 80 
Tel. 0611/362728 


(62) 


Schüler; Naturwissenschaften 

Kartenleser, Memorys . 

Basic 

B: Motorräder,Schwimmen,Lesen,HardRock : 


Ingenieur; Feinwerktechnik, Elektronik 


Schüler; Mathematik, Physik 

Kartenleser, Drucker, Memorys 

Basic 

Hs Bücher, Naturwissenschaftl. Themen, hybonet. Prohl. 


Dipl.Physiker; Kernphysik 
Kartenleser, Drucker 

Fortran, Algol 

H: Squash, Bergsteigen, vieles mehr 


Betriebsingeniwur;j Elektrotechnik 
Kartenleser, Drucker, Memorys 


Rs Elektronik, Digitaltechnik, Bergsteigen, Wandern 


Student) Elektrische Energietechnik 
Fortran 
Hı Handball, Aquaristik 


kaufm, Lehrling (2.Jahr), kaufn,Schule+EDV 

Menorys 

Baeic(6800) ,HP-Basio(HP-250)(HP-85),(Cobol), (Pascal) 
Hı Musik(HiFi), Modellbau, Schreiben, Sammeln, Lesen 


£ wv.n 
Schüler, Elektrotechnik 
Kartenleser,Drucker,Memorys, Mathe ROM 
Basio, Focal 
Hı Modellbau 


Einzelbandelsfachwirt IHK 
Kartenleser, Drucker ,Memorys 

Basio 

Hı Hifi, Fotografie, Bchmalfilm, Astrologie 


Ausbilder; Fernneldetechnik 

Kartenleser, Memorysa 

Aesembler, Basic, (Fortran) 

Hs Tonübertragungen, Foto, Auto, Elektronik 


:64 Alexander Zerava (53) 
Münchner Bundesstr. 10 
A-5020 Salzburg 
Tel. 06222/358185 


65 Reinhold Wurster 
Friedrichstr. 3 
7433 Dettingen 
Tel. 07123/71402 


66 Dr. Wermer Ehm 
Postfach 3048 c/o GAD 
4400 Münster 


67 W. Leipold (49) 
Kopernikusstr. 6b 
8590 Marktredwitz 
Tel. 09231/82236 


68 Gerhard Goder 
Hüfferstr. 75 // o/o Inst. 
f. med. Inf. u. Biomath, 
4400 Münster 
Tel. 0251 / 853 / 5266 Bü 
0251/861403 pr. 


69 Andreas Marktscheffel (61) 
Nachtigallenveg 8 
6246 Glashütten 1 
Tel, 06174/62003 


70 Bernd Malsch (41) 
Badenerstr. 16a 
7500 Karlsruhe-Durlach 
Tel. 0721/401292 


TI Tannas Fütterer 
Ssonnenhalde 27 


7740 Triberg 
Tel. 07722/4749 


72 Alfred Fahr (49) 
Stettener Str. 25 
71758 Meersburg 
Tel. 07532/6519 


73 Hagen Memp (58) 
Dianastr. 25 
1000 Berlin 28 


74 Karl Pross 
Josef Beiser Str. 23 
8000 München 83 
Tel. 089/6701145 


75 Rolf Mach (63) 
Thorwaldsenstr. 3 
6090 Rüsselsheim 
Tel. 06142/55485 


76 Matthias Grabiak (59) 
Alexander-Heß-Str, 11 
6370 Oberursel 
Tel. 0617173508 


Kfm, Angestellter 5 Einkauf 


Bs Computer, Wandern/Natur, Familie 


Dipl. Ing. ı Keramik - Anlagenbau 
Basic 
Hs Fotografieren, Schmalfilm, Modellflug 


Physiker . 
Kartenleser, Drucker, Strichcodeleser 
Fortran, PL1, Pascal 


Interesses Mathe, Statistik, Synthetische Codes 
auf dem 41C 


Schüler; Medizin 

Kartenleser, Memorys 

Basic, Maschinensprache ( 28080 ) 
Hı Tennts, Tanzen 


Apotheker 
Kartenleser, Drucker 


Hs Fotografieren, Schach 


Biophysiker 

Kartenleser, Drucker, Memorysa, Statist.&Math-ROM 
Fortran,Algol(60,68), Basic, TAS///Thermal&Tranep. " 
HB: Barockmusik 


Ing. (grad.) $ Nachrichtentechnik 


Hs Elektrotechnik, Spiele u.a. 


Schüler 5 Mathe, Chemie 
Kartenleser, Drucker, Memorys 
Basic, Myp.6800-Mnemonics 

Hı HiFi, Schallplatten 


Students; Physik 

Kartenleser, Drucker, Mathe ROM, Standard ROM 
Basdo 

Hs Schach /+/ HP-25 Besitz. Zugangı HP-67+PET 
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78 


79 


81 


82 
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85 


86 


87 


88 


89 
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Günter Tost (51) 
Adleretr. 27 
6680 Neunkirchen 
Tel. - 


Klaus Jürgen Ries 
Friedländer Weg 57 
3400 Göttingen 
Tel. 0551/59711 


Jörg Warmuth 
Wartburgstr. 17 
1000 Berlin 62 
Tel. 


Hermann Winter (46) 
Hebbelweg 17 

5380 Lüdenscheid 
Tel. 02351/53082 


Niels lüöhren (44) 
Kielort 16 

2000 Norderstedt 
Tel. 040/5242838 


Werner Stroinski (26) 
Kampweg 7a 

1000 Berlin 27 

Tel. 030/4339813 


Carsten Otto (63) 
Bismarckstr. 61 
2000 Hamburg 19 
Tel. 040/4914895 


Thomas Antweiler (52) 
Postfach 410115 

Sooo Köln 41 

Tel. 0221/409707 


Klaus Schmitt (56) 
Gleiwitzer Str. 44 
6344 Hemsbach 2 
Tel. 06201/75502 


Torsten Weckmann 
Postfach 102671 
46%0 Bochum 1 


Andreas Trögel (64) 
Grunewaldatr, 13 
5090 Leverkusen 1 
Tel. 0214/52639 


Rudolf Kern 
Ludwigstr. 38 
7080 Aalen 


Wolfgang Butz (40) 
Schinnrainstr. 3a 
7500 Karlsruhe 41 


(51) 


Maschinenbau-Techniker 

Kartenleser, Drucker = 
Basic, Pascal, Miniopt, EQUPT 

H: Volleyball, Hobby-Fußball, Bücher (techn.) 


Student; Geophysik (Gelernter Großhandelskaufmann) 
Kartenleser, Drucker, Strichcodeleser, Memorys 

H: u-Computer, SF-Literatur, Reisen 
Fortran,Basic,Algol 


Werkzeugmacher 
Kartenleser, Memorys 


H: Elektronik 


Postbeamter 
Kartenleser, Memorys, Finanzrom, Netzanschluß 


Hı Schach 


Hochschullehrer; Elektr. Meßtechnik 
Kartenleser, opt. Lesestift, Drucker, Memorys 


H: Modelleisenbahn, Fotografie 


Schüler; (Bismarckgynmnasium Eimsbüttel) 
Basio 
H: Fotografieren, Basketball, Mathematik, Football 


Student; Bauingenieurswesen 
Kartenleser, Drucker, Memorys 
Fortran 

HE: Fotografie, Elektronik 


Student; Allgem. Elektrotechnik (TA Darmstadt) 
Kartenleser, Memorys, Mathe-ROM 

Basic, Pascal, Fortran 

H: Fotografie, Elektronik, num, Mathematik 


Schüler; Mathematik, Chedie 
Kattenleser, Memory 

Pascal 

H: Mikroprozessoren, Elektronik 


Chemisarbeiter 
Kartenleser,Drucker ‚Menorya,Akku,Netzteil 


RA: Foto=Dias, Tonband 1/2 Spur 
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95 


96 
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103 


Georg Wehde (20) 
Gartenstr. 17 
3501 Niestetal 
Tel. 0561/522185 


Sven Beiersdorf (63) 
Krete 12 
2420 Eutin-Fissau 


Karsten Beierlein (62) 
Breierspfad 83 
4600 Dortmund-Wambel 


ze. MUliREL, 


Martin emumimee (44) 


Friedr.-Ebert-Str, 351 
4150 Krefeld 
Tel.s 02151/599512 


Elmar Anthon 
Dickhardstr. 36 
1000 Berlin 41 


Guy Poupart 
Neugartenstr. 1a 
Vianden/ Luxembourg 


Thomas Schreiber (55) 
Sonnenstieg 93 

3400 Göttingen 

Tel. 0551/796782 


Gustav Wiesel 
Goldbachstr. 13 
5550 Bernkastel-Anden 


Roland Roth (53) 
Berlinerstr. 123 
1000 Berlin 31 

Tel. 030/8226878 


Samıel Martin (59) 
Homburger Landstr. 767 
6000 Frankfurt 56 
Tel. 0611/5072322 


Reiner Rosin 
Peter-Spahnstr.4 
6227 Winkel 


Karl Frajo-Apor (44) 
Innstr. 44 / Neurum 
A-6020 Innsbruck 


Inf Tel. 0043/5222/619372 
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Lutz Eckert 
Klingerstr. 36 
8000 München 70 
Tel. 089-7691993 


FachiWiFer 


Kartenleser,Drucker,Memorys 


Hı Fotografie, Bergwandern 


Schüler; Mathematik und Englisch 
Kartenleser 


Schüler; Elektrotechnik 
Kartenleser, Drucker, opt. Lesestift, Memorys, ROMs 


Hı Modellbau (Schiffe) 


Studienrat; Mathematik & Physik 

Kartenleser, Drucker 

Pascal, Basic 

Hı Foto(color),Kusik(Piano) ‚Jazz,Schreinern(Möbel) 


Elektroinstallateur; Schüler, Elektrotechnik, Mathe 
Kartenleser, Drucker, Memorye 


H: HiFi,Rennradfahren,Briefmarken(DR),Mathe ‚Freundin 


Student; Elektrotechnik 


Bı Windsurfing, Filmen, Skilanglauf 


Student; Physik 

Kartenleser, Memory 

Fortran IV 

Hı Fotografieren, Briefmarken, Astronomie 


Schüler 


Ingenieur; Bauwesen (grad.) 

Kartenleser, Drucker,Modül.e ‚Akku,Matn-ROM 
Basic 

Hı Reisen, klaas. Musik, Lesen 


Dipl.-Ingenieur 


105 Walter Bierwirth Student; Elektrotechnik 


Heidjerhof 1 Kartenleser, Drucker, Mathe ROM, Memorys 

3000 Hannover 61 Fortran 

Tel. 0511/5356-6029 Hı Fotografie, SW-Entwicklung, Spiele 
106 Frank Schwellinger Schüler; Mathematik, Physik 

Neuwiesenstr. 7 Kartenleser, Memory 

7535 Stein Pascal, Basic 

Tel. - H:Kino(SF-Filme) ‚Briefmarken, Bowling,Mathe(Knobel.) 
107 Hans Meiler (41) Prokurist 

c/o Clas-Schöninger KG Kartenleser,Drucker,Nemorys 


Am Forst 7 / 8480 Weiden Basic 
Tel. 0961/21276 bü: 31055 Modellbahn 


108 Manfred Engelskirchen (51) Filmkaufmann 


Manggasse 2 Drucker, Memory 
8070 Ingolstadt - 
Tel. 0841/2581 H: Schach 


109 Jürgen Spiegel 
Im Sichler 21 
6350 Bad Nauheim 


110 Michael Semjan 
Margarethenstr. 7 
6000 Frankfurt 90 


111 Dr. Heinrich M, Dreyer Andragoge;3 Arbeitswissenschaften 
Postfach 250148 - 
8500 Nürnberg 25 Pascal 
Tel. 0911/593962 Heinschach 
112 Jürgen Holm / bei Hißner (59) Student; Physik 
Georg-Herwegh-Str. 4 Kartenleser,Drucker,Memorys 
2850 Bremerhaven 
Teil. «471/24692 H: Musik, Elektronik 
113 Heinrich Dörnemann (49) E.Ing.; Medizin-Technik 
Braunschweigstr. 61 Drucker 
4200 Oberhausen 11 Basic 
Tel. 0208/62294 HR: Med-Technik, Tennis 
114 Ulrich Iber (50) Fluglotse 
Gerresheimer Landstr. 45 Kartenleser, Drucker, Strichoodeleser, Memorys 
4006 Erkrath 
Tel. 0211/202794 Hs Musik, Reisen 
115 Günther Götter (55) Student; Feinwerktechnik 
Küstrinerstr. 2 Kartenleser, Memory 
7530 Pforzheim Algol 60, Basic 
Tel. 07231/861570 H: Fotografieren, Sport, Musik 
116 Ralf Pfeifer Schüler 
Rubensstr. 5 Kartenleser, Drucker ‚Memorys,Math-ROM 
5oca Köln 50 Basic,Pascal 
Tel. 221 /352034 H: Wein,Weib und Gitarre 
117 Frank Altensen (1 
Uhlandstr. 9 ö 
6365 Rosbach 3 
“3 vr 


118 Heribert will 
Grüner Platz 3e 
33540 Wolfenbüttel 


119 Heinz Rottländer 
Königsberger Str. 6 
5270 Gummersbach 1 
Tel. 02261/66027 


120 Olaf Cursch (49) Studienrat; Mathe, Piysik 
Grüntenstr. 29b Kartenleser 
1000 Berlin 42 Fortran, Basic, (Pascal) 
Tel. 030/7032244 Hı Fotografie, Briefmarken 
121 Rudolf Caler 
Erlenweg 7 


7530 Pforzheim 
Tel. 07231/61816 


122 Eckhard Müller 
Michael-Schnabrich-S#r. 9 
3500 Kassel 


123 Hans-Armin Berk Kaufmann 
Lindenstr. 58 Kartenleser,Drucker,Finanzmodul 
6380 Bad Homburg Basic,Pascal 
Tel. - 


124 Thomas Kellner 
Oppenhoffallee 34 
5100 Aachen 


125 Dr. Wolfgang Fritz (41) Dipl. Physiker; theor. Physik 
Kronenstr. 34 Mathe & Standard ROM, Memorys 
7500 Karlsruhe 1 PL/1, Fortran, Algol, Pascal, APL 


Tel. 0721/6946682 


126 Heinz-Jürgen Voss 
Neustr. 2 
4352 Herten 


127 Rudolf Kurbasik Steuerberater; Dipl.-Kaufmann 
Hauptwachstr. 9 Kartenleser, Drucker,opt. Lesestift,Memorys,ROMa 
8600 Banberg Basic 
Tel. 0951/27101 —büroı 23853 

128 Klaus G. Steger Student; Informatik (Technik) 
Gertrud-Herz-Str. 1 Kartenleser, Memorys 
8720 Schweinfurt Basic, Pascal 
Tel. 09721/45627 Hs Radrennen, HiFi, Alternativtechnik 

129 Johannes Schu (55) Dipl. Mathematiker 
Mauthäuslatr, 9 Kartenleser, Dis 
Boo0o München 70 Cobol ,‚Baeic,Algol,Fortran 
Tel. - 

130 Volker lang (54] Weinkifer 
Mühlfeldstr. 3 Kartenleser, Drucker, Memorys 


6222 Geisenheim-Marienthal Basic,Fortran IV 
(Dürerstr. 45/7103 Schwaigen) HsBergsteigen,Fotografleren,Luftrettung,Modellfl. 


131 Peter Hübsch (43) Apotheker 
Bergstr. 10 Kartenleser 
2447 Heiligenhafen - ( Computerschach 
Tel. 04362/1425 Rı Fotografie, HiFi, Filmen+Vertonen, Aquaristik 
132 Hans-Jürgen Götz (57] Student; Feinwerktechnik 
Rietheimerstr. 6 Kartenleser, Drucker, Nathe-ROM, Memorys 
7730 VS-Villingen Fortran, Basic, Assembler, Maschinenepr. TMS9I00 


Tel. 07721/4197 N "s Fotografieren, Filmen, Elektronik, Skifahren 


133 Peter Schwall (47] 
‚Tiefenbacher Btr. 4 
6953 Gundelsheim 
Tel. 06269/1941 


134 Peer Raddatz 
Tegelsbarg 65 
2000 Hamburg 65 


135 Günter Mohr (36) 
Henri-Spaak-Str. 24 
5305. Alfter 
Tel. c2oR/ERÄ 646261 


136 Reinhard Nickisch 
Seester 30 b 
2201 Kurzenmoor 


137 Jörg Bendixen (61) 
Fritz-Flinte-Ring 95 
2000 Hamburg 60 
Tel. 040/6306610 


138 Klaus Muschlin 
Hebelstr. 6 
7743 Furtwangen 


139 Thomas Voit (58) 
Cistlstr. 36 
8023 Pullach 


140 Jörg Honsbrok 
Bergerstr. 118 


4050 Mönchengladbach 1 


141 Harald Wienheck 
Gr. Rainstr. 96 
2000 Hamburg 50 
Tel. 040/399505 


142 Hans-O. Carstensen (38) 


Dorfstr, 42 S 
2331 Barkelsby 
Tel. 04351/81621 


143 Hartmut Hansen 
Haarmoor 17 
2332 Kosel 
Tel. 04354/400 


144 Rudolf Siegenthaler 
Trieschweg 29 
CH5033 Buche db. Aarau 
Tel. 064/242425 


145 Bernd Trilling 
Brechtingstr. 11 
5768 Sundern 2 


146 Gerald Kranpe (58) 
Bern 1 
5653 Leichlingen 2 
Tel. 02171/3473 


Bauing. (grad.); seltet. 

Kartenleser, Drucker, Menorya _ 

- .(Besitze HP-97 mit Statikprogramnen) 
Hı Hauskatzen, Gitarrespielen, Judo 


Beamter 

Kartenleser, Memorye 

Basic 

H: Statistik, Tischtennis (HP-67 & TI 59) 


Schüler 


Pascal, APL, Basic 
Hı Tischtennis, Schach 


Student; Jura 
Kartenleser, Drucker 
Basic 


Schüler; Mathematik, Informatik, Physik 
Basic,Pascal,2-80 Assembler 
H: Hathematik,Heimcomputer,Scienve Fiction 


Dipl. Biologe 
Kartenleser,Drucker,Strichcodeleser, ROMs,Memorys 


H: Fischzucht ,Motorflug,Fotografie 


Bau-Ing. (grad.) 
Kartenleser,Drucker, Module 


Student; Bauingenieurwesen 
Kartenleser, Drucker, Menorys 
Basic, Fortran 


Prokurist/Kaufmann 
Kartenleser,Memorys 


Hı SChach 


Student, E-Technik 
Kartenleser, Drucker, Memorys,Math-ROM 
Fartriın IV 
H:Musik(Gitarre),Lesen(Philosophie) Wandern 


147 Bernhard Sickmann (40) 
Königskämpe 2 
4430 Steinfurt 2 
Tel. 02552/60344 


148 Heiko Vogeler (62) 
Altenrather Str. 140 
5204 Lohmar 1 
Tel. 02246/4882 


149 Stefan Dräger (63) 
Roeckstr. 52 
2400 Lübeck 
Tel. 0451/34311 


"150 Herbert Knoll 


- Buchhalter 


Kartenleser, 


Drucker ,Strichcodeleser ,ROMs ‚Memoryo 


Rı Segel- und Motorflug 
Schüler, Mathematik, Englisch 


Menorys 
Basic,Pascal 


TiEl:Klaviersp, ‚„klass.Musik,Volleyball,Motorräder 


Schüler 
Kartenleser, 
Basic 


Drucker, Mathe-ROM, Memorys 
(Rechner-Serien-Nr. 1949) 


Hs Heizungstechnik, Auto, Politik 


Postfach 147 / Weißenbg. Str. 22 


8830 Treuchtlingen 


151 Christian Lotter 
Alexanderstr. 37 / App.409 
6100 Darmstadt 


152 Herbert Platzek 
Y Lisztstr. 5 
4047 Stürzelberg 


153 Otmar Harsch 
Hauptstr. 165 
6236 Eschborn 


154 Rainer Tomberge 
Noldenkothen 1a 
4050 Ratingen 1 


155 Wolfgang Baltes 
Guardinistr. 143 
8000 München 70 


156 Lutz Oehler 
Cheruskerstr. 19 / Hof links 
1000 Berlin 62 


157 Holger Pochert 
Goethestr. 57 
1000 Berlin 49 


158 Hartmıt Wüst 
Schwarzenholzweg 10 
6630 Saadonis 3 


159 Thomas Lindner 
Aachener Str. 9 / 3 
8000 München 40 


160 Andreas Kaatz 
Emser Str. 113 
1000 Berlin 44 


SY 


161 Klaus Bartneld 
Noeltestr,20 
3000 Hannover 91 


162 Harry Schmidt 
Zweibrückenstr. 25 
4000 Düsseldorf 12 


163 Hauke Tetens 
Friedrich-Ebert-Str. 16 
71218 Trossingen 
Tel. 07425/6561 


164 Marius Heyn 
Postfach 220 
7753 Allensbach 1 


165 Stefan Trachsler 
Haldenstr. 1 
CH-8280 Kreuzlingen 


166 Martin Bueeler 
Waffenplatzetr. 80 
CH-8002 Zürich 


167 Hans-Jürgen Zebisch 
Ludwigstr. 2 
6146 Alebach 


168 Christa Kurzaweki 


Petunienweg 1 
63062 Friedrichsdorf 


169 Hermann-Josef Thomas 
Ärmelgaese 3 
6531 Waldlaubersheim 


— 


‘470 Günther Bühle 
Borsdorfer Weg 18 
n 6478 Nidda 1 


171 Christian Krause 
Tnorwaldsenstr, 19 
1000 Berlin 41 


172 Jürgen Menke 
Köhlerweg 9 
6233 Kelkheim-Rupph. 
Tel. 06174/61142 » 


173 Thomas Knauf 
Rebenring 63 w31232 
3300 Braunschweig 


174 Rainer Crzeschkowitz 
Inselvall 13 
3300 Braunschweig 


175 Heinz-Jörg Plegge 
FH Dortmind - FB Nachrichtent 
Sonnenstr. 96 
4600 Dortmund 1 
176 Anton Kieninger 
Sebastianstr, 8 
7080 Aalen-Waldhausen 


177 Andreas Reinhoff 
Turmstr. 8 
4660 Gelsenkirchen-Buer 


178 Hana Zupp 
Subbelrather Str. 30 
5000 Köln 30 
Tel. 0221/517372 


179 Thomas Maldinger 
Mülheimerstr. 122 
4200 Oberhausen 1 


180 Günter Rössl 
Pelzmannstr. 1 / o/o Walzl 
A-8435 Wagna 


181 Andreas Hartwig 
Alexanderstr. 265 
2900 Oldenburg 


182 Bernd Neumann 
Alexanderstr. 265 
2900 Oldenburg 


183 Joachim Spatz 
Sachranger Str. 26 


8000 München 90 


184 Peter Penner 
Goethestr. 27 
4817 Leopoldshöhe 


'185 Andreas Bußmann 
Am Wehr 65 
4358. Haltern 5 


186 Fred Huber 
Badenerstr. 760 
CH-8048 Zürich 


187 Klaus-Dieter Mirus 
Spessartstr. 11 
1000 Berlin 33 


Se 
188 Bernd Heine 8 
Riesengasse 25 4 8 
6840 Lampertheim u et 
198 Kemal Essen s H E 
Hansaring 125 BEER 
5000 Köln 1 sn 
agas 
0 
191 Gunther Hartmann 2 
Postfach 306 r 


6320 Alsfeld 


192 Gert Liebenberg 
Dernburgstr. 12 
1000 Berlin 19 


193 Rene M. Salmen 
Prof,-Neu-Allee 8 
5300 Bonn 3 


194 Klaus Seibert 
Eichgärtenallee 4 
6300 Giessen 


195 Reinhard Klier 
Heimstättenweg 66 
6100 Darmstadt 


196 Max Ruder (56) 
Talstr. 30 
CH-8102 Oberengstringen 


197 Georg Freund 
Webergasse 1b 
1600 Offenburg 


198 Godehard Willmes 
Lerchenweg 14 
5253 Lindlar 


199 Dr. Horst Wunder 
Augustastr,. 10 


7505 Ettlingen 
=) 


200 Thomas Fischer 
Creniner Str. 16 
2400 Lübeck 


l 


v 


201 Detlef Heitmarın 
Quickborner Str. 98 
2081 Borstel-Rohenwraden 


202 Reinhardt Pflanz 
Mühlberg 8 
6431 Breitenbach / a.H. 


203 Kurt Pree 
Egerländerstr. 8 
6352 Ober Mörlen 


204 Wolfgang König 
Weingarten 8 
5860 Iserlohn 


205 Walter Pieperhoff 
Walb. Osth, Wallstr. 10 
47To Soest 


206 Jean-Francois Barbey 
Tempelhofer Damm 52 
1000 Berlin 42 


207 Heinz Wehner 
Elisabethstr, 40 ” 
2300 Kiel 14 


208 Gechard Rüthers 
Buchenweg 5 
5778 Meschede 


209 Egon Lindtner 
Nienkämperstr. 3 
1000 Berlin 37 


210 Dieter Heise 
Postfach 1443 
4620 Castrop-Rauxel 


211Johann Gunze 
Brandenburgerstr. 4 
6368 Bad Vilbel 2 


212 Peter Gölzenleuchter 
Auf dem Kalwes 163 
4630 Bochum 1 


213 Stefan Henke y 
Breitenbachstr. 61 
6200 Wiesbaden 


214 Jürgen Bunzel 
Beethovenstr. 6 
6800 Mannheim 


215 Michael Spert (62) 


Lohstr. 20 a 
8510 Fürth 17 
Tel. 0911/761129 


216 Ulrich Mager 


Nelkenstr. 3_ W42 


6305 Buseck 1 


217 Ewald Hagedorn 


Zur Fahlen Schlade 6 
5983 Balve 1 


218 Udo Wollschläger 


219 


220 


221 


222 


223 


224. 


L 


p 
226 


Woermannstr. 15 
4000 Düsseldorf 13 
Alfons Nögel 
Sachsenweg 10 

4470 Meppen 


Günter Gbck 
Beim Schloßgarten 7 
6804 Ilveshein 


Dieter W.Klage 


Comm. o£ the Europ, Communi 
PO Box 2 / NL-1755 ZG Pette 


Tel. 02246/6442 


Hans Werner Heidbrink 
Karpatenweg 15 
7031 Ehmingen 


Dr. Heinz-Jürgen Bernhardt 
Grüne Twiete 57 
2083 Halstenbek 
Tel. 04101/44775 


Werner Loibl (32) 
Amalienstr. 47 

8858 Neuburg 

Tel. 08431/1718 büß 3055 


Detlef Gehl 

Kirchfeldstr. 59 
4036 Ratingen 8 
Tel. 02102/50217 


Marco Pelozzi 
Eggweg 11 


CH3065 Bollingen 


227 


228 


229 


Günter H. Merten 
Peter-Martens-Weg 20 
2190 Cuxhaven 1 


Ekkehard Barchewitz 
Wasserwerkstr. 33 
6800 Mannheim 31 


Hartmut Brücker 
Hauptstr, 58 
6940 Weinheim 


( 


236 Helmut Seuffert (55) 
Lanmeidenste, $ 
6000 Frankfurt 90 
Tel. 0611/ 7733444 


231 Jörg Meyer 
Lange Str. 54 
2833 Harpatedt 


232 Martin Klingenderg 
Lohbergstr. 12 
3428 Duderstadt 18 


233 Ralph Küteneier 
Elsässerstr. 29 
2900 Oldenburg 


234 Jan Schäfer-Kunz 
Tuttlingerstr. 22 
7000 Stuttgart 75 


235 Reinhold Elsebach 


Adalbert-Stifter-Str. 10 


3558 Frankenberg 
Tel. 06451/4727 


236 Walter Brandner 


Johannagasse 358 / 14 
A-1050 Wien 


237 Ulrich Pahmeyer 
Jahnweg 15 
1820 Titieee-Neustadt 


238 Michael Wandl 
Mentergasse 9/10 
A-1070 Wien 


239 Günter Lehrke 
Wiesenstr, 85 
7024 Fildarstadt 1 


240 Rüdiger Schultz 
Villa Viktoria 
CH-9402 Mörschwil 


241 Manfred Mickoteit 
Am alten Hospital 9 
5400 Koblenz 
Tel. 0261/38469 


242 Walter M. Schütz 
Bahnhofstr. 43 
CH-8702 Zollikom 


243 Peter Stock 
Rienzistr. 10 
7000 Stuttgart 70 


244 Alola Widmann 
Veitsmüllerweg 13 
8050 Freising 


Bonmerwaldaweg 7 
6368 Bad Vilbel 


246 Ulrich Graser 
Panoramastr. 22 
17016 Gerlingen 


247 Friedenann Fehler/ c/o MBB 
MBB Abt. RTZ, Postfach 80116: 


8000 München 80 


248 Reiner Mang 
Industriestr. 8 
6325 Grebenau 


249 Christoph Hort 
Am Mühlenwäldchen 11 
6670 St. Ingbert 


250 Peter Grützmacher 
Im alten Garten 24 
5500 Trier 


251 Uwe Hommelsheim 
> Unnauer Weg 50 
5000 Köln 71 


252 Gerd Kretschmann 


Christernstr. 39 / PF 448436 


2800 Bremen 44 
Tel. /452211 


253 Klaus Bendfeldt 
Bernauer Str. 56 
5920 Bad Berieburg 
Tel. 02751/3367 


254 Claus Martin Driever 
ClaBenstr. 15 
5100 Aachen 


255 Gerhard Schott 
Am Bockzahl 23 
6479 Schotten 1 


256 Michael Schaale 
Florastr, 6 
1000 Berlin 41 
Tel. 030/7914094 


57 Klaus Evers 
Post Nusse 
2412 Mannhagen 


58 Andreas Meyer-Lindenberg (65) 


Elliger Höhe 31 
5300 Bonn 2 
Tel. 0228/323255 


59 Jean-Paul Fay 
Rue J.Peschong 11 


L-4938 Baschavage (Luxemb.) _ 


„€94 WELL NHOTBU Maregrail 


Berliner Str. 3 15 er Riethenauer 
1000 Berlin 27 Pfädle 3 
7519 Gemingen 


261 Marcus Möhrmann 
Lauterberger Weg 12 
2000 Hanburg 61 276 Joachim Welters 

Saarlandsetr. 49 


262 (Herr) Anne v. Houwelingen. 6300 Gießen/ Kl. Linden 


Gen. Spooretr. 405 
NL- 3313 AE Dorohecke 277 Christian Herr 
) Rossstr. 63-65 


263 Thomas Rölz 5100 Aachen 


Windsheimer Str. 431 a 
8500 Nürnberg 278 Albert Damm 
Lessingstr. 12 
6670 St. Ingbert 
rg Tel. 06394/6329 
1000 Berlin 30 279 Helmut Loepp 
Kleiberweg 17 
4600 Dortmund 30 


265 Lukas Rohr 
Dreilindenstr. 39 Tel. 0231/413655 
CH-6006 Luzern 280 Jürgen Moeck 


Dellplatz 7 / 120 


266 Michael Gehret 4100 Duisburg 1 


Silcherstr. 15 
8944 Grönenbach 281 Jürgen Steinbrecht 
Tel. 08334/1001 Am Trieb 15 W7.3 


267 Michael Gerhardt 6078 Neu-Isenburg 


Bünkamp 70 
4400 Münster ‚282 Uwe Scharfendberg 
Lensahnerstr. 4 
268 Olaf Pilling wi 2433 Ciemar 
Hattenheiner Str. 9 b 
1000 Berlin 28 283 Ulrich Jansen 
Mühlenstr. 16 
269 Uwe Kremnin 5140 Erkelenz 
Auf der Gasse 6 
5900 Siegen 31 284 J. Walenta 
Gratstr. 12 
270 Herbert Brähler CH-8472 Seuzach 
Schulstr. 2 
6368 Bad Vilbel 1 285 Michael Haase 
Tel, 06193-64775 Ringstr. 37 
7904 Erbach 1 


271 Bernd Haug 
Am Kirchberg 8 
7201 Seitingen-Oberflacht 286 Peter Astheimer 
Wilhelmstr. 13 


272 Wermer Grunske 6090 Rüsselsheim 


Goldmühle Str. 11 


7032 Sindelfingen 287 Lutz Löhnert 
Bocholtzer Str. 28 
273 H.L. Koot 5100 Aachen-Vetschau 


Louise de Colignylaan 120 
NL- 3136 CS Vlaardingen 288 Johannes Palic 


Tel. 010/744915 Gemseneck 20 

274 Christian Thiele 2000 Hamburg 54 
Hannoversche Str, 11 h. Tel. 040/546311 
3050 Wunatorf 1 —4y 


289 Hans-Joachim Tepper 317 P.R.J.J. Crombeen 
Bueltenweg 73 . 303 Uwe Letas Campuslaan 27-206 
3300 Braunschweig Zedelilusstr. 33 7522 NC Enschede / Holland 
2940 Wilhelmshaven 


290 Klaus Weber 318 Wolfgang Lesemann 


Leher Heerstr. 102 / 11a 304 M. Steffens Grundstr. 28 a 
2800 Btemen 33 Odenwaldstr. 6 4930 Detmold 17 
Tel.0421/231942 5047 Wesseling 
291 Werner Fritz 319 Vlrich Dahnz 
Pachernhauptstr. 66 305 Burghard Schatz Karlstr. 7 
A-8042 Graz Fischenicherstr. 37 6352 Ober-Hörlen 
5000 Köln 50 
292 Franz Brunschwiler 366 Siegfried Geipel 326 Hana Peter Duwe 
Adlerstr. 3 Roggensteiner Allee 240 Christopher Probst Str. 16-705 
CH-4133 Pratteln 8031 Eichenau .8000 künchen 40 
293 Klaus D, Veil 307 Hans-Egon Ramındt 321 Hans Michel 
Hansengelstr. 26 Truderingerstr. 154 Bündnerstr. 46 
7891 Hohentengen 8000 München 82 CH-4055 Basel 
Tel. 089/436832 
'294 Peter Hess 308 Edzard lueg 322 Wolfgang Zingsen 
Durlacherstr. 41 ) Lettow-Vorbeck-Str. 2 Winkelnerstr. 55 
6800 Mannheim 81 2870 Delmenhorst 4050 Mönchengladbach 6 
Tel. 0621/896248 
-295 Holger Suhr 309 Richard Gaschler 23 Harald Kutz 
Kaiserstr, 82 Ludwigsburger Steige 5 Steinstr. 16 
2300 Kiel 14 7144 Aldingen/Renseck 4100 Duisburg 12 
Tel. 02035/444136 
296 Fritz Nickolai 310 Knut Menzel 324 Thomas Kläger 
Salzlände 16 4 Schubertplatz 12 Gattikonerstr. 98 
A-8706 Leoben 4930 Detmold CH-3136 Gattikon 
297 Michael Grandau pr Bernhard Leiner 325 Michael fannenyerz 
Seilandstr. 7 Blumenstr. 27 Madenstr. 13 
4714 Selm 6781 Vinningen Tcno Stutteart 75 
Tel. 02592/4333 Tel. 5711/4713592 
298 Edgar Sieberg 312 Annegret Jäger 326 Ronald Jure 
Bummelberg 35 Q@ Zum Grossen Busch 49 Bornimer Str. 18 
4600 Dortmund 1 = 5600 Wuppertal 17 1000 Berlin 31 
Tel. 02129/87264 Tel. 0730/8914656 
299 Jens Schleusener 313 Rolf Leuenberger 327 Frank Lange 
Burgstr. 9 Niesenweg 8 Althoffstr. 2c 
3400 Göttingen CH-3012 Bern 4600 Dortmund 1 
300 Heinrich Beyer 314 Otfried Wemer 328 Joachim X. Kiefer 
Essener Str. 26 Myliusstr. 59 Großgerstenfeld 1a 
4800 Bielefeld 14 6000 Frankfurt 1 6635 Schwaltach - Insdorf 
Tel. 06531/525€3 
301 Winfried Kadach 315 Michael Willer 329 Gudrun Rahr. 
Thorner Str. 14 Wallstr. 28a Breite Str. 4 
7406 Bovenden 1 2944 Wittmund 1 3400 Göttingen 
Tel. 0551/81267 
302 Wilhelm Handler 316 G.M. Günther 330 Gerhard Bültemann 
Semmelweisgasse 29 Hermanstr. 33 a Fährstr. 60 


A-1210 Wien 8900 Augeburg 1 2800 Bremen 1 


Niels Nöhren Norderstedt, 28. WAoso 
Kielort 16 

2000 Norderstedt 

F: (040) 52h 28 88 

Pschk Hmb 299375-201 


IIierrn 

Oliver Rietschel 
Hcowlett-Packard 
Anwender-Club 
Postfach 9373 


24120 Eutin 


Licber Oliver, licbe Clubfreunde! 


In einem der Weihnachts-Info-Hefte erschien das Programm 

PFZ von Christof Dorn. Ein Programm, das jede Banze positive 
zahl in ihre Primzahlfaktoren zerlegt. Ich möchte zu diesem 
Programm cinen Verbesserungsvorschlag machen, 


Durch das beigelogte Listing möchte ich zeigen, wie man das 
Programm verbessern und um rund 35% nämlich von 119 auf 79 
Prorrammschritte verkürzen kann, 


Im Propramm ist ein wirklich echter Fehler enthalten, Wer es 
in der ursprünglichen Fassung übernehmen und verwenden möchte, 
wird zu scienem Erstaunen feststellen müssen, daß das Programm 
die Zahlen 25 und 49 als Primzahlen ausweist, Der Fehler liest 
beim Procrammschritt 52, Der Vergleichsbefehl "X)Y?" allein 
reicht hier nicht aus, Vielleicht ist Christof ein Gedanken- 
fehler unterlaufen, Verwendet man jedoch zusätzlich einen 2, 
Verrleichsbefehl, nämlich "X#£Y?" (wie auch schon Matthias 
Grabiak in seinem Beitrag vom 14.09.1980 angeregt hat), werden 
auch die Zahlen 25 und 49 richtig in ihre Primzahlfaktoren 
zerlegt. 


ifpbrigens, ein Hinweis für alle, die es vielleicht noch nicht 
wissen. Ein Enter-Befehl vor einem RCL-Bofehl ist überflüssig, 
weil bei "RCL" der automatische Stack-Lift sowäeso in Gang 
Mesotzt wird. Noch etwas fällt mir ein. Die Befehlsfolge: 

Rel dı, RcL g2, /, RcL @1, RCL d2 /, INT, läßt sich verkürzen 
aufs RCL d1, RCL 1, RCL 2, /, IM. 


Ich hoffe, daß ich mit meinem Beitrag nützlich sein konnte, 
Ich wiünscho weiterhin 


llappy Programming. 


Programm PFZ SE christof Dorn. Optimiert von Niels Nöhren, 


01 LBL PFZ 


05 PROMPT 
06 STO d4 
07 sto 9 
08 INT 

09 LASTX 
10 X#Y? 
11 ct0 9 

2 


13 sSTo 2 
14 X)Y? 
15 GTO 93 
16 X=Y? 
17 GTo 2 
138 x()Y 
19 8 

20 SF 2 
21 X)Y? 
22 sFr 1 
23 CLA 


LBL 2 
"PRIMZAHL" 


sTo dp 


LBL 93 
"UNZERLEGRBAR" 


cTro $# 


AYIENW 
END 


Aleikı "FERNER" 


Az SE 
ATeLEL DTM 


üs 
AS 
Ar, 
97 
a2 
„a 
If 
1! 


12 
17 
4 


14 
15 
15 
1? 
1? 
E 
2A 
22 
24 
25 
2% 


a2 
ei 


HüÖh 

"ji. BINST.“ 
PPOMFT 
xEß 17 
INT 
sTa an 
2. BUEST, 
FFÜHPT 
hör 
Zr 32 
Fri. 

ICh 

3 

IKT 
syooH 
ILE 

a) 
za r 
FRÜNFT 
Sic Rd 
Ki= 
nTo 14 
1377 
GT 14 
! 

ST- MW 
RLL 412 
!B 


! 


2 ST Az 


INT 


ST-Mi 


FRL 
iR 
% 
IKT 


= 


Zr 


48 RON 
47? "LETZT. BUCHST?* 


% PROKPT 
44 ANFF 
sh XEu 12 
sı 184 
57% 

Ss? FRLC 

54 x=R? 
ss hin id 
Sa 1B 

57 %* 

se Stu 92 
5% 1HT 
Fr: 
Bir 

£2 SI 98 
BE RCL BZ 
54 FRC 

53 18 
Bi 

Bf 
na ST- al 
ra Ft Al 
7ı Ca A 
?2 REL HA 
3 ST0 63 
?4 RCL AI 
75 5Ta 04 
76 GTO "DTH* 
T7eLBL K 
?8 RCL Mi 
?9 RÜL m 
ZB - 

21 205 
22 RCL Al 
3 605 

a4 * 

25 RTL Aa 

26 005 

Er‘ 

34 FEL 4 

29 SIN 

Fl 


91 SIN 

92% 

+ 

94 RES 

5 111.12 

Yh * 

07 FIX 2 

Ge. CF 25 

94 END 
1a CLA 
1M1i ARCL X 
182 °F KM 
192 AYTER 
1a4 STOP 
165 GCTD "DTH" 
186+LEL 12 
1R7 ASTN X 
192 SF 25 
1A9 AED IKD X 
ıta F3? 25 
11 FTH 
112 "+" 
113 ARCL 
114 ASTO x 
115 5F 25 
1i5 XER IND X 
117 FÜ? 25 
18 GTO 14 
119 RTH 
12MeLBL 14 
121 TONE 9 
122 “NEIE EIHGARE” 
123 AVIER 
124 PSE 
125 GTO “ATH” 
126+LBL "2* 
127 Se. A6 
128 RTH 
129eLBL "Y“ 
139 49,65 
131 PTR 
t324LBL "X" 
132 46.64 
134 RTK 
133+LRL *W” 


136 44,63 
137 RTN 
138+LBL °Y* 
139 42.62 
149 RTR 
141»LBL "U" 
142 48.61 
143 RTN 
144eLEL "T- 
145 35.6 
146 RTN 
147+LBL "5" 
148 35,59 
149 RTN 
15ReLBL "R” 
151 34.59 
152 RTN 
153+LBL "0° 
134 32.37 
153 ETH 


AS6eLBL "P“ 


137 30.56 
152 RTH 
139+LBL *0* 
16a 28.55 
öl RTH 
162+LBL N” 
163 26.54 
164 RTN 
165+LBL "M” 
166 24.33 
167 RTH 
16B+L6L "L* 
169 22.52 
170 RTH 
1?1+LBL "K” 
172 28.51 
173 RTN 
1744LBL "*J° 
175 19.5933 
176 FTN 
1771.81 "el" 
172 18.49 
179 RTH 
184+LBL "*H“ 


181 14.4811 
122 RTN 


‚183+LBL "6" 


134 12.4713 
185 RTN 


186+LBL *#F“ 


187 18.4615 
128 RTK 


tR9eLBL "*+E” 


199 9.4335 
191 PTN 


19 LBL "ai" 


193 6.4455 
194 RTN 


195+LBL "6° 


196 4.4353 
197 PTN 


198+LBL "#8" 


199 2.4251 
ra 


ehl+LEL "*0” 


202 „413! 
ea RTN 
284 END 


HP YAc - 

Programm kir Enffernungs bustrmmun 
nach Q na: F 7 
( Amateur funk) 


Siee 005 ; 568 Bytes f. Program 


Tasten beleguny USER : KENNER 
QTH 


Mi KENNER "wird das Pogramm 
gestartet . Der Rech, fragr nadı 
Aalen ugenen Daten : 


ATH-kenner A.Buchstabe. 
2. Buchstabe 


wahl 
Letch Buchtlabe 

Danach wird. der un Standart 
in geogr- Länge u: Beeik. er - 
mittel} und in’ Rapioto 03 u.0% 
abguypeche. 
Donn fragt de Redner nadı 
Am QIU - kenn des Geler 
eh die Entfermung 

n 
( Die Darden der Welorker werden 

in R 00 und 04 grypaiet) 
Für water Entfenungsermitt - 
lu wird dat Prlyramaı 
mit Tasıe "ATH* gestarfch da 
die ug Data in Ro3/oy 
brab gespeichert Dind. 


Batteriesatz des Thermodruckers 


Früher oder später wird der aufladbare Batteriesatz des 
Thermodruckers seinen Geist aufgeben; bei mir war eine 
der vier Batterien schon nach kurzer Zeit hinüber. 


Bei den erfahrungsgemäß nicht gerade bescheidenen Prei- 
sen von HP hier nun ein Tip zum Sparen: Vier Ni-Cd-Accu- 
mulatoren des Typs RSH 1,2 der Firma VARTA passen in das 
Batteriefach des Druckers. Sie sind sogar mit Lötösen 
versehen, was die Montage vereinfacht. Es empfiehlt sich 
allerdings, die Zuleitungsdrähte zu den Kontaktfedern 
des Drucrers dort nicht gerade da anzuldten, wo sie beim 
seriennäsßigen Batteriesatz der Kontaktgabe dienen, falls 
man seäter doch mal wieder einen solchen verwenden will 
soer muß. 


De: Freis der VARTA-Batterien liegt bei ca. DM 10. Sie 
sind beisrielswelse erhältlich bei der Fa. Walter Kluxen, 
Nergkranaletr. 52, 2000 Hamburg 1 unter der Bestellnummer 
eu I66C 


Klaus Werner Hoenow 


Ercsönzuncsvorschleg zum Programm MULTI 


bar zusoezeichnete Plotprogramm MULTI aus "prisma" vom No- 
verber 13,0 könnte m. E. noch ganz gut eine Abszissenve- 
scenriftung gebrauchen: 

Man fügt zwischen Zeile 319 und END die untenstehenden 
Schritte ein. 

Nach Ausoruck des vollständigen Funktionenverlaufs wird 
durch XECG ABSZ eine Abszissenskala erzeugt. 


Die Zeilen 327 (Format der Abszissenbeschriftung) und 334 
(Abstand der heschrifteten Abszissenpunkte) können vom Be- 
nutze: necn eigenem Geschmack verändert werden. 


Hamburg, den 24.11.1980 Klaus Werner Hoencw 


3722 AFCL 57 


2 "RES Zar ARCA 
zZ a4 1 
= 242 SKPCHF 
ei 17 343+L6EL 17 
7 244 SF 12 
= 245 45 
7 vn z4& AULCHF 

: : = 347 ATIWV 
ZIER+LEL 16 EI 
72% PLL f2 = FC 2 
26 PLL 67 zsG 5T+ 8° 
rer Er a U 354 3 
322 GSTo 1% 2 6T+ 59 
272 PCL PA : 2 GTO 1e& 
7224 & 2544 LEL 15 
225 man ZS5 REC AIE 
ITE Yadı? 356 AD“ 
327 GTüı 17 357 EEEP 
322 CLA 


Unterprogromm FORMAT 


Das Unterprogremm FORMAT "rettet" ein einmal manuell 
oder per Programm eingestelltes Anzeigeformat über 
Formetverönderungen (beispielsweise für Index-Auscruck 
0.68.) hinweg. 


Nech Ausführung von FÜRMAT, das nur den Stack benutzt, 
steht im V-Recister die Anzahl der Nachkommastellen des 
zu rettenden Formats; im X-Register steht eine Kennzahl, 
nämlich O für FIX, 3 für SCI und 2 für ENG. Beide 2if- 
fern können in beliebige Register zur späteren Verurn- 
dung abgespeichert werden, um dann das ursprünclich: For- 
mat wieder zu rekonstruieren. Letzteres muß durch bis zu 
3 vom Benutzer zu erstellende kurze Unterprograämme 7e- 
schehen, wie das folgende Beispiel zeigt: 


In diesem, ellerdings sehr trivialen Beispiel sollen die 
vielfechen N = PI für N = 1...5 gebildet werden, wcxoei 

N ohne Nachkommastellen, das jeweilige Vielfache in einem 
vorher manuell eingestellten Format angezeigt werden ssllen. 
Im Beispielprogramm NaPI wird dieses Format in jede" Schlei- 
fendurchlauf durch Zeile 12 zerstört; es muß also ".nüber- 
gerettet werden. Das geschieht durch die Zeilen UZ2...L5, 
wobei die Kennzahl des AÄnzeigencdus nach ROD, die \nzanl 

der Nachkommastellen nach RD1 gespeichert wird. Dir Unter- 
programme 00 (Zeile 25), D1 (Zeile 26) und 02 (Zeilz 31) 
stellen dann das ursprünglich gewünschte Anzeioefrrrat 
wieder ner (aufgerufen durch 2eile 43). 
den 01.12.1980 


Hamburg 73, Klaus Werner >senzsw 


Al+LEL "FOR MIl+LEL "her 27 ETN 
MET" 2 ZBeLEL ©! 

a2 29.035 GE RER "FOR 29 SCI Inn 

03 EHTEFt HET" 21 

es © go? STO ac 30 RTH 

aS ENTER? as FDN ZiI+LEL 82 

Ge 1 es sTto mi 22 ENG Inn 

G7+LEL 681 e5 1.228 1 

e8 FS? IND e7 STO 62 32 END 
zZ ee CF 29 

a9 + gA+LEL 3 

19 FS? IND 1a RCL 02 Fin? 
Y 11 IHT BER TNEPITO_ 

11 LAST! 12 FIx © 1: 2.142 LEcooß 
12 2 12 CLA 2: 8.282 8 Nauen) 
13 * 14 ARCL % 3: 9.425 we 
ia ISE Z EB 4: 12.5€* Seal aer 
15 GTO 01 1c PI 5: 15.708 geh 
16 CLX 17 * Dee 
17 FS? 48 12 ZEO IND SET 
18 RTN ac KER "N-FI “ 

eo 1: 12 AFCL * 1: 3.19E8 -nmri 
26 + 26 AVIEN 2: 6.28£2 

2ı FC? 41 zı I8G a2 3: 9.42EN 

22 RTN z2 6T0 a3 4: 1.2EE) 

e2 1 23 ADV 5: 1.57E1 

za + 24 RTN 

25 FTN 2S5+LBL em 

26 END 26 FIX IND 

ap} 


Pregramm MSMIMA 


MSKMINA ermittelt außer Mittelwert und Stendardabweichung 
einer Folge von Werten auch noch deren minimalen und mae- 


ximelen Wert. 


Stert des Programmes durch XEQ MSMIMA. 
zur Symbslisierung der Eingabe angezelogt. 
aleo wie gewohnt durch Z#+, Löschung eines 


falsch einoegetenen Wertes durch Z-. 


Es wird £+(£-) 
Diese erfolgt 
versehentlich 


Nach Einoabe aller Werte erfolgt durch Drücken von B 


nzcheinander die Anzeige von Mittelwert, 


Stsendardabwei- 


chung, Minimum und Maximum, und zwar bei eingeschaltetem 
Drucker autsmatisch, sonst nach Drücken von R/S. 


Minimum und Maximum sind in den Speichern ROD bezw, 


verfürbar. 


Hamoura 73, den D1.12.19380 


EL'"MEMIMD 1Ee X<Y? 
ErT 17 STO Sc 
IGES EYTES 12 RÜL Mil 

1° STO 93 
za MCs 

NieLEL Mer zeı a 
Ima® 22 STOo Gi 

RZ ZFER 4 220 

1? CLZ 24 NV 

na @ ERS 23 + 

R©. 270 MG z6& PTN 

Cr. CHE 27+LEL = 

a7’ £<To 91 22 PCL AZ 

GE CLST 22 £TO na 

[6x + Z- za FCL 02 

zı sto mi 

IE SR 2° 220 

11 FPROAMFT 23 Ft 

1Z+LEL A Z4 D- 

IE FLCL oa 25 RTH 

14 STO BZ 26+LEL E 

15 vr Sn 37 "M=" 


35 
29% 
4a 
41 


RD4 


Klaus Werner Hoenow 


MEAH 
APCL % 
ARYIELN 
FC7 SS 


STOF 


“MIN=" 


HP-LiI U 


Programmpeket MATRIZENRECHNUNG 


Dieses Programmpeket umfaßt mehrere Unterprogramme zur Matri- 

zenrechnung, die so pufgebaut sind, daß eine oder mehrere Me- 

trizen beliebiger Reihen- und Spaltenzahl (soweit es der Spei- 
cherplatz zuläßt) den Operationen des Matrizenkalküls unterzo- 
gen uerden können. Zu diesem Zweck arbeiten die einzelnen Un- 

terprogramme mit einer dynamischen Speicherbereichszuweisung, 

die für jede Matrix den benötigten Speicherbedarf folgender- 


maßen festlegt: 


1. Speicherung 
Gegeben sei die msn-Matrix A mit den Elementen a3. 
(i=1,.20,M5 j=1,...,n). Die Speicherung beginnt rit dem 


Register R wobei 5 die Startadresse für die Metirix A ist, 


gG’ 
mit der sie von allen Unterprogrammen aufgerufen wird. Dabei 
muß S2 11 gewählt werden, da die Register Roo bis Rao für 


Zwischenspeicherungen innerhalb der einzelnen Urterprogram- 


me benutzt werden. 


Die Matrix A nimmt insgesamt man+3 Reoister in Ärspruch, oie 


folgendermaßen belegt sind: 


Ro za" 

Rosa . 

Ras Ba 

Roy3"" "Reyzımen’ 2,5 (i=1,...,m} j=1,...,n) 
R, enthält also den Namen der Matrix (max. 6 ALF'A-Zeichen), 
Rosa die Zeilenzahl und Reyz die Spaltenzahl. Dis folgenden 
Register Roy bis Ro,24+men enthalten die man Matrixelemente 


3 zeilenweise fortlaufend. 


2. Adressierung 


Die Registeradresse r eines Matrixelementes a Ger man-Ma- 
trix A, deren Startadresse S ist, errechnet sich nech den 
oben Gesagten zu 

T=5S+2+(i-W)an+j 
Diese Adressenberechnung wird von MTAIJ durchgefünrt, das 


daher von fest allen Unterprogrammen dieses Programmpaketes 


benötigt wirg. MTAIJ benutzt nur den Steck. 


3. Zwischenspeicherung 


Die Register Roo bis Rıo bleiben für die verschiedenen Un- 
terprogramme als Zwischenspeicher reserviert, wobei der 
Speicherelan, außer für MTINV, so aussieht: 


Ruupna? Hare der Ergebnismatrix 


Roo : Konstante oder sonstige Hilfsgröße 
Ra : Startadresse der 1. Matrix 
. n ” n 
Ro2 H 2. 
Ro3 : “ " Ergebnismatrix 
Rau : Element der 1. Matrix 
Rn. “ " Ergebnismatrix 
R ‘ s j 
06 ° 1. Schleifenindex 
Ro 2; ee 
” “ 
Res 53% 
Rog : Re-Initialisierung des 2. Schleifenindex 
Rın . ” n 3. " 


Für MTINV werden die Register Roo bis Rog benutzt. 
u. Unterprogrammaufruf 


Bei Aufruf der einzelnen Unterprogramme dieses Programmpa- 
ketes müssen gewisse Daten im Stack bezw. im ALPHA-Register 
vom Benutzer bereitgestellt werden, wie es jeweils im Kopf 
der einzelnen Listings angegeben ist. Das gilt jedoch nicht 


für MTAI), da die aufrufenden Unterprogramme dies bereits 
selbsttätig tun. 
5. Prooramnbeschreibungen 
5.37 MTAIJ 
Dieses Unter-Unterprogremm wurde unter Pkt. 2 erklärt. 
5.2 MTEIN 
Die Elemente ®,; der Matrix A werden im Dialooverkehr 
vom 8enutzer reihenweise eingegeben. 


5.3 MTAUS 


Die Elenente Bu der Matrix A werden mit Benennung rei- 
henweise (CF 01) oder spaltenweise (SF 01) ausgegeben. 


Bei eingeschaltetem Drucker erfolgt die Ausgabe konti- 
nuierlich; sonst wird die Ausgabe nach jedem Element 
gestoppt und muß mit R/S fortgesetzt werden. 


MT311 


Es wird eine msm-E£inheiltsmatrix E erzeugt, bei der die 
Elemente der Hauptdiagonalen Eins sind, alle übricen 
jedoch Null. 


MTADD 


Dieses Unterprogramm vereinigt die Matrizenaddition mit 
der Multiplikation mit einem konstanten Faktor: 
C=A+kaB 


bezw. &; = +k eb. (i=1,...,m5 :=1,...,n) 


23 ij 

für k = 1 ergibt sich die normale Matrizenadciticn. für 
A = D (Nullmatrix) erhält man die Multipiikaticon ven 8 
mit dem konstanten Faktor k. In diesem Fall muß bei Auf- 
ruf von MTADD im T-Register des Stack eire Null stehen; 
die Nullmatrix D braucht nicht gespeichert zu sein. Die 
Ergebnismatrix C darf sowohl einen von A „nG B verschie- 
denen Platz in den Registern einnehmen a!s auch eine 


von beiden Matrizen ersetzen. 
MTSPU 


Die Spur einer mam-Matrix A ist definiert ais die Sunnme 
ihrer Diagonalelemente:; 


m 


Spur(A) = > 8,3 


i=1 
Sie wird in dem Register gespeichert, das bei Aufruf 
von MTSPU als Zahl im X-Register steht. 


MTSHF 


Dieses Unterprogramm dient zum Kopieren oder Verschie- 
ben von Matrizen innerhalb der Register. Beim Verschie- 
ben werden die Registerinhalte der "alten" Speicherplät- 
ze nicht gelöscht. Eine Verschiebung um weniger als 
man+3 Register ist erlaubt, wobei dann rztürlich "alte" 


Elemente durch "neue" überschrieben werden, 


MTTRA 


Dieses Unterprogramm erzeugt die Transpcrierte einer 
man-Matrix A, nämlich die nam-Matrix B, cie aus A durch 


Verteuschen von Reihen und Spalten hervorgeht: 
b 38 


ji ı) (imt,..e,m; j=1,...,n) 


5.9 MTMUL 


Gegeben seien die Imm-Matrix A und die man-Matrix B 
(Spaltenzahl von A = Reihenzehl von B). MTMUL erzeugt 
die lan-Produktmatrix C = A a B nach 


en ® > 8, Dix (i=1,.0.,15 j=1,...,m5 k=21,...,n) 


3=1 


Im allgemeinen ist AumB£BaRAI 
5.10 MTINV 


Dieses Unterprogramm erzeugt die Inverse B = A” einer 
mem-Matrix A. Es gilt 

BsA=AaB=E£ 
mit E als Einheitsmatrix (siehe Pkt. 5.L). B ist dann 


natürlich auch eine mam-Matrix. 


Es wird m-mal das Stiefel-Verfahren angewandt mit a1 
als Pivotelement; nach jeder Pivotisierung werden die 
neuen Matrixelemente in bestimmter Weise zyklisch ver- 
tauscht. Näheres zu diesem Verfahren z. B. bei G. Venz: 
"Lineare Algebra für programmierbare Taschenrechner", 


Oldenbourg-Verlag 1980, S. 24 ff. 


Außer der Besingung, daß A quadratisch und nicht-sin- 
gulär sein muß (siehe Lehrbücher über Matrizenrechnung), 
darf bei diesem Verfahren kein Element der Hauptdiago- 
nalen Null sein. Wenn dieses Unterprogramm zusammen 

mit MTMUL zur Auflösung lineerer Gleichungssysteme ver- 
wendet werden soll, läßt sich diese Zusatzbedingung 
meist durch Umstellung der Gleichungen erreichen. 


-1 


Nach Abarbeitung von MTINV hat B= A die Elemente 


von A in den Speichern überschrieben! 


‚. Beispiel 
Die 3m3-Matrix 
[A 7 2 
A= -6 1 {8} 
2 7 3 


soll folgenden Dperationen unterzogen werden: 


6.1 Einlesen von A (MTEIN) 

6.2 Reihenweises Ausgeben von A (MTAUS) 

6.3 Kopieren von A nach B (MTSHF) 

6.4 Bilden von C = A”’ (MTInv) 

6.5 Spaltenweises Ausgeben von TC (MTAUS) 
6.6 Bilden von E = C = 8 (MTMUL) 

6.7 Reihenweises Ausgeben von E (MTAUS) 


6.8 Bilden und Ausgeben der Spur von E (MTSPU) 


Außer den angegebenen Unterprogrammen wird noch MTAlJ be- 
nötigt. 

Jede Matrix benötigt nach Pkt. 1 323+3=12 Regis!zr, wobei 
hier mit R,. begonnen werden soll. CE nimmt nach Ausführung 
von MTINV den Platz von A ein, so daß für insgesamt 3 Mat- 


rizen, nämlich A, B und E,Speicherplätz reserviert werden 
muß. Es wird gewählt: 


S(A) = SCC) = 11 
Ss(B) = 23 
S(E) = 35 


Die Spur von E soll auf dem später nicht mehr benötioten 
Platz Ra gespeichert werden. 


Um Programmspeicherplatz zu sparen, wird mit Hil’e cer 
RSUB-Funktion des Kartenlesers eine Art "Dverlav"-Technik 
durchgeführt: Es werden zunächst nur die beiden -elativ 
kurzen und höufig gebrauchten Unterprogramme MT=-i)J une 
MTAUS abgespeichert; anschließend folgt das aufrufenrde 
Hauptprogramm HAUPT, wie der folgende Kataloo ung des 
Listing zeigen: 


CAT 1 
LEL'MTRAIL 
ENT 
25 EYTES 
LEL "MTAUS 
END 
185 BYTE®S 
LBL’HAUFT 


EHD 
171 BYTES 
.ENIT. 


85 BYTES 


B1.LBL -HRY 286 XEO "MTS 39 XEQ "MTM 


FT HF = UL* 
82 -MTEIN”- 21 "MTINV- 48 CF 01 

GI AVIEN 22 AVIEN 41 35 

04 PSUE 23 RSUB 42 YEG "MTA 
a5 A” 24 "C” US“ 

Ge 2 25 11 43 "MTSFU* 
N? ENTER? 26 XE@ -MTI 44 AVIEU 

G2 ENTER? NV” 45 PSUR 

u | zer sr ei 4& 35 

16 YEO "MTE ze ı1 7” EHTER?t 
In“ 29 XEO "MTRA 11 

Il cr 1 us“ 49 XER "MTS 
12 11 33 "MTMLL® Pu" 

13 #ZEO "MTA 31 AVIEN 5a FIX 2 
use 32 RSUR Si AILY 

14. "MTSHF“ 37 "E" 52 "SPUR<E> 
15 AVIEN 24 11 =" 

16 PSUE 73 EHTERT S3 ARCL 11 
17 ıı ze 223 54 AVIEW 

12 EHTEPT 37 EHTERT 55 END 

13 22 3% 35 


HAUPT erfüllt folgende Funktionen: 

- Steuerung des Aufrufs der Unterprogramme gemäß 6.1 bis 
6.c, wobei die für die Unterprogramme benötigten Para- 
meter im Stack bezw. im ALPHA-Register bereitgestellt 
werden 

- Anforderung der benötigten Unterprogramme vom Benutzer 
mittels RSUB, wobei der Name des Unterprogramnes in der 
Anzeige erscheint. Der Benutzer hat dann lediglich die 
zugehörige Unterprogrammkarte in den Kartenleser einzu- 
führen, und das Hauptprogramm setzt die Ausführung auto- 
matisch fort. 


Auf diese Weise werden zusätzlich zu den für MTAIJ, MTAUS 
und HAUPT benötigten 43 Registern lediglich noch 27 Spei- 
cherregister (Unterprogramm MTINV ist das längste) bend- 
tigt, da durch den RSuUB-Befehl immer das hinter HAUPT ste- 
hende Programm überschrieben wird. Die restlichen Register 
stehen als Datenspeicher für die Aufnahme der Matrizen (auch 
größerer!) zur Verfügung. Da für dieses Beispiel 70 Pro- 
grammregister und 47 Datenregister benötigt werden, ist 


ein Speichermodul erforderlich. 


ber folgende, im NORM-Modus ausgedruckte Streifen zeigt 


den genauen Ablauf der Ein- und Ausgaben: 


A1.1=4.22059 
A1.2=7.oıa09 


KXEQ "HAUPT" A1.3=2, aama 
MTEIN 
aı.ı ? AZ.i=-6. nama0 
4.ao0A RU n2.2=1.87AR 
N n2.3=9, macıc 
Rhil.2 ? 
v.ac9 Fu A3.1=2.na00 
H n2.2=7.Rnoo 
a1.23 ? AR=F.3=7. Gadgı 
2.9200 RU 
H ıTSHF 
n2.i ? MTINY 
-5.299 PU 
H C1.1=-1.08.090 
nz.2 7 CzZ.1=-0.Feac 
1.008 Ru c3.1=--R. 2209 
H 
nz.3 ?. C1.2=-6.1449 
a.ancı LI] C2.2=0.1600 
H C2.2=-0,. 2000 
n?7.1 ? 
2.050 RU C1.3=2-9.0430 
H C2.3=-0.T2u9 
n?:.2 ? c2.3=3. 2200 
7.06 Ru 
H MTMUL 
Rr?.? ? 
F.aau FU E1.1=1.00900 
N E1.2=9,. aadın 
E1.2=0. Atzın 
SFUR<E>=7, 0. 
Hamburg 73, den 01.11.1980 Klaus Werner Hoenaı 


Aleskaweg 18 


5.1 MTAILJ 


LEL'MTAIJ 
END 
25 BYTES 


An: 

TE 

zZ: Jg 

Man 3% 

r.: SCH; 


Mi+LEL MTA 
Iy" 


[a zn) 


Aune 
a 
4 


5.2 MTEIN 


LEL'’MTEIN 
END 
83 BYTES 


UNTEPRPFPOGR. 
MTAIJ ERFOR- 
DERLICH ! 


REIHEHMEISE 
EINGABE DER 
a,n-MATRI= A 


HAME<CA> 
[g} 


[4] 
SCH) 


x<N-JD 


EI+LEL 
In" 
a2 ASTND Ir 


"MTE 


[ 
Bis 


+ 
X>Y 
sta Inn 


ern N) 
NRW 


< 
m 
I] 


a BO rn 


YADALNIMTD Ei 


PR 
JA 


IeLEL 01 


NMNMMFMMNHH 
KUN» Oo WDw 


32 INT 
33 ARCL X 


INT 
ARCL 
"Ro? 
x<>Y 


* 


RCL 83 


REO 


FIX 
PROM 
STO 


ISG 
GTA 
ISG 
GTO 
RTN 
END 


“-MTA 


3 
PT 
IND 


5.3 MTAUS 


LEL’MTAUS 
END 
188 BYTES 


UNTERPROGR. 
MTAI. ERFOR- 
DERLICH ! 


REIHENWMEISE 
<cCF O1> NIDER 
SPALTENHE]- 
SE <SF al» 
RUSGAEBE DER 
mın-MATRIX A 


EK<N-DLD 


ECH) 


G@1+LBL "MTA 
us“ 


Dr 
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Xena 
N 
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x 
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mA 
Gl 


Rn N 


HO>Y 
STO 87 
MV 

STO 06 
24 AIYV 
25+LEBL 91 
26 FELL 07? 
27 STO 9% 
28+LBEL mZz 
22 cıa 

36 ARCL IND 
ei ; 


7 
107] 
u) 
G 
- 


ID Ne mu wu a a 
WM omunin 


RCL 89 
INT 
RCL 86 
INT 
FS? 81 
ROY 
FIx 9 
SF 29 
AFCL x 
CF 29 
RI>Y 
ARCL x 
“ton 
RL>Y 
R£EL @i 
XEU -MTRA 


FIX 4 
RCL IND 


RND 
ARCL % 
AVIEN 
FC? 55 
sTnr 
ISG as 
GTOo 62 
AnDY 
ISG G& 
GTO 21 
RTN 
END 


5.4 MTi11 


LBL’MT111 
END 
62 BYTES 


UNTEFFRÜGEF. 
MTAI_ ERFOR- 
DERLICH 


EFZEUGUNG 
TER m,m-EIN- 
HEITSMATRIK 
E 


HAMECE» 


1“ 


SCE? 


NKM-ID 


n1l+LEL "MTI 
11" 


zZ AS=TO IND 
& 

a2 5TC 93 
nı 1 

5 + 

DE R<DY 
ar TG INT 
AR 

ME NCDY 
am 1 

13 *+ 

11 Kern 
12 <TÜ TIMND 
Y 

12 1 EZ 
14 7 

15 1 

1E + 

17 ZT0 R6 
18 STO a7 
12+LEL Al 
za FCL %7 
zı STD 0% 
Z2+LEL %2 
z3 RCL 6° 
z4 FCL GE 
25 7 

ze IHT 

27 LHASTR 
z2 

z= IMT 

23 STO &5 


RCL 
RCL 
RCL 
REA 


RCL 
s5To 


ISG 
GTA 
ISG 
GTO 
RTN 
END 


5.5 MTADD 


LEL’MTADD 
END 
188 BYTES 


UNTERPROGR. 
MTAIJ ERFOR- 
DERLICH ! 


C=A+k#+B 


SCCYI=SCH) 
OSTDTER 
SCEI=SSCER) 
EFLAUBT. 


WENN A=68, 
MISS SCAI=A 
GESETZT WER- 
LEN. 


A: NAME<CI 


T: ScA» 
2: SCB) 
Y:Kk 

“: SKC) 


Bl+LEL "MTA 


a2 ASTO IND 


27 
28 
29 


* 
38 
2 


31 
32 
33 
34 


Se 
orw] 


1 
+ 
RCL IND 
STO IND 


1 E3 
7 


1 
+ 


sTo 27 


36+LEL 1 


3? 
32 


RCL 97 
STO 09 


39+LBL 62 


48 


s7 
52 


RCEL 89 
RCL 86 
RCL e2 
REC "MTA 


RCL IND 


ST+ 05 
RDN 


59+LBL 93 


eu 
61 
e2 
&3 
64 
65 
66 


67 
68 
[2] 
?8 
ri 
?2 


REN 

RCL 82 
RCL 93 
+ 

RCL 25 
STD IHL 


ISG 09 
GTOo 02 
ISG 8& 
GTra 81 
RTN 
ENT 


5.6 MTSFYU 


LEL’MTSPU 
EHD 
49 BYTES 


UHTERFFOGRF. 
MTAI. ERFÜR- 
LEFILICH ! 


ET = SPURCH) 


Ssı(ıAa) 
FEGCED 


Al+LEL "MTS 
Fur 


24 STO 61 
G5 1 
RE + 


67 FCL IND 


v 
Bas 


Dr) 


DR] 
ym\- 


[=5= 


if) m if: 
N 
4 
im) 


STO IHD 


© 
NR rer En) 


oouau 


+LEL Gz 
RCL BE 
FCL Ge 
FELL ai 
8ER "MTRA 


- 
eo 
an 


FECL IHD 


21 ST+ IND 


22 ISG 86 
22 GT0O e2 
24 PTH 
25 END 


5.7 MTSHF 


LEL*’MTSHF 
ENT 
32 BYTES 


MERSCHIEBEN 
DER MATPIN A 
YoM SCA> 
NACH SCB> 


Y: SCH) 
7: S5S<B)» 
GiIs+LEL "MTS 
HF 

a2 CF an 

ME RCIT 

94 STO A1 


cc STO 82 


re 


FS? 98 
GTOG 981 
ı E2 

PA 

RCcL 921 
+ 

ze GTO 92 
zZ7+LEL &1 
z2 RCL 81 
29 1 


NNDNNNDND-- 
SNN+SWD NRMRil 
x 


u 


282 
31 
32 
33 
24+LPL 
25 STO 
36*+LEL 
37 RCL 
38 RCL 


E3 


+ \el 


34 RC>Y 
4a RCL 

41 + 

42 R<>Y 
42 STa 


44 FS? 
45 GTO 
46 1SG 
47 GTQO 
45 RTN 
49+LEL 
5a DSE 
sı GTO 
S2 PTN 
53 ENI 


nz 
ME. 
m 
8% 
IND 


ME 


IND 


ma 
a4 
6 
a: 


a4 
me. 
83 


5.e MTTRA 
LEL’MTTPA 
ENT 

91 BYTES 
UNTERFFROGR. 
MTAIJ EFFOR- 
DERLICH ı 

BE = A" 


NAMECE) 


xX<N-D 


n4 STO a1 
a5 ASTO IND 


es 1 
27 + 
A& RCL INT 


es FCL 32 
12 = 


+ 
12 x<>Y 
13 STO IND 


= 


De 


- 
a 
- 
m 


[A] 
+NaD + N\ 
94 
ro 
In) 

[u 


22 RCL IND 


s1 + 

32 sSTa 
332+LEL 
34 PCL 
25 SToO 
ZE+LRL 
37 RCL 
Ze RCL 
39 FCEL 
40 YEO 


41 RCL 


42 ST 
43 FCL 
44 FCL 
45 FCL 
4Ee KEG 


47 RCL 
43 STN 


4? 1ISTG 
sa GTC 
S ISG 
52 GTO 
SZ FTN 
54 EHN 


3.9 
LEL 
EHD 
131 
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mra 
DER 


” 


NZNHAD 


N 
en 
Nenn 
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MTMUL 
"MTMUL 
EYTES 


EFFRÜGF. 
It ERFOR- 
LICH ! 


rR+ B 
NAMELC) 


ech: 
See) 
Ssceh 


+LEL 


S TC ME 
FOH 

5TCa m2 
PL,H 

sTOo al 
ASTO IND 


1 

+ 
RCL IND 
PCL A2 
1 

+ 
Ho>Y 
STO IND 


E23 


43 PCL 
49 STO 
sa 
sı STO 
Ss2+LBL 
53 RCL 
54 FCL 
S PCL 
s6 XED 


57?’ RCL 


S2 STO 
sa RCL 
e8R FCL 
61 PCL 
€£2 KEB 


83 RCL 


64 RCL 
E55 * 

es ST+ 
67 I°:G 
63 GTC 
62 RCL 
7a RCL 
7ı FCL 
72 XEO 


73 RCL 
”4 STO 


753 ISG 
76 GTO 
7? 1SG 
8 GTO 
737 PTN 
se EHN 


5.1@ MTINV 


LBL’MTINY 
END 
189 BYTES 


UNTERFROGEF. 
MTAIJ ERFOR- 
DERLICH ! 


B = ATC-I) 
StB> = SCA) 


HAME<EB>) 


SCH? 
@l+LEL "MTI 


G2 STOo 9a 
A3 ASTO IMN 


ka 1 
+ 
e@£ RCL IND 


G7 STO al 
a2 1 ES 
var 

16 1 

11 + 

12 STo 082 
13 STG 93 
14*+LBL #1 
ı1S 1 

16 ENTERT 
17 1 

18 xEQ 19 
19 RCL IND 


za 17/8 
21 STO 06 
22 STO IND 


23 RCL 82 
1 


zZS + 
26 STC 85 
27+LBL 62 
2e RCL 5 
29 1 
38 XEa 14 
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STO 


45+LBL 
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Hans-Giünter Lütke Uphues 
"ahnhofstrafße 20 
HYOI Altenherge, 
Teil.: 02505/2149 


12.11.1980 


Stejperungf der Rechengeschwindigkeit des HP-U1C bei Vervwen- 
gung des Druckers HP-82143A: 


Vielen lenutzern des Taschenrechners HP-4IC in Verbindune 
mit dem Thermodrucker HP-82143 wird es schon aufgefallen 
sein, daß der LIC bei angeschlossenem und eingeschaltetem 
Drucker um bis zu 25 % langsamer rechnet (Je nach Nefehl 
unterschiedlich; im Mittel ca. 15 %). - Ist der Drucker 


anpeschlossen, aber ausgeschaltet, rechnet der Rechner so 
schnell wie ohne angeschlossenem Drucker. - Diese Verlang- 
samung der kKechengeschwindigkeilt hat mich sehr gestört, weil 
ich den brucker hauptsächlich in Programmen verwende, die 


eine längere Hechenzeit benötigen. 


Im Mai dieses Jahres ist in dem PP’C-Calculator-Journal ein 
NRug-3 - Simulator-Proeramm von Jan Doig veröffentlicht wor- 
den, mit dem jeder HP-AIC - Tesitzer in die Lage versetzt 
den Zustand eines belicfipgen Flags zu ändern. Mit 


diesem Irogramm habe ich nun bei angeschlossenem und einge- 


wurde, 


schaltetem Drucker ( Flag 55 also & automatisch gesetzt ) 
das Druckeranwesenheits-Flag 55 gelöscht. Durch diesen Trick 
liefen meine Programme so schnell, als wäre der Drucker nicht 


eingeschaltet, also eine Rechenzeitersparnis von bis zu 


20 his 25 % 
man die einpebauten Funktionen des Druckers nicht mehr voll- 
Die liefehle ADV, STKPLOT, REGPLCT, 


PR F und VRE können nicht mehr verwendet werden, 


maximal. Leider mußte ich aber feststellen, daß 


ständig verwenden kann, 
PRBTG(X), 
da sie entweder nicht ausreführt werden oder der Druck hin- 


tereinander erfolgt; es wird kein NONEXISTENT angezeigt. 


Andere Refehle wie PNX und PRA können weiterhin verwendet 


werden, werden aber in einer etwas abgewandelten Form gedruckt. 


Funktionen (T!efehle), die den Buffer des Druckers laden bleiben 


aktiv, und der buffer wird auch automatisch zeilenweise ausge- 


druckt, "überläuft", 


wenn cr 


ol+LBL 


02 
03 
04 
85 
86 


. B3" 

ENTERT 

cLaA 

8 

STr zZ 

MOD 

RL>Y 

INT 

1 

1artrxX 

RCL d 

STO n 

FIX 8 

CF 29 

ARCL Y 

RCL N 

STO d 

FC?C IND 
T 

$SF IND T 

RCL d 

sTo x 

5 

LASTX 

181% 

FIX 8 

CF 29 

ARCL *% 

RCL ] 

STO d 

END 


Glücklicherweise ist es aber dennoch möglich, den Ruffer 
gezielt auf anderem Wege ausdrucken zu lassen: nämlich 

durch die Refehle FPRA,X. Pei diesen beiden Wefehlen wird 

dann %krim der Inhalt des X- beziehungsweise Alpha-Heristers 
in den FRuffer übernommen, aber noch nicht gleich gedruckt. 
Erst beim nächsten PRX,A wird der vorherige X- bzw. Alpha-In- 
halt gedruckt und der jetzige Wert in den Yuffer übernommen, 
Soweit ist also noch ein PRA, PRX und I’RHBUF realisierbar. 
Eine Leerzeite (ADV) läßt sich durch die Defehlsfolre 


"(space)" PRA realisieren. 


Etwas heikel wird die Angelegenheit, wenn man den Hıffer 
durch Befehle wie ACX una ACA und ähnlichen laden möchte: 
Hierbei werden diese Nefehle wohl ausgeführt, aber „enn vor- 
her ein PRX,A - Befehl abgehandelt wurde, steht diese alte 
Information noch im luffer, und die neue Information wird 
hinten angesetzt und beim nächsten Druckvorgang gemeinsam 
ausgedruckt. Um dies zu verhindern, muß man durch die HRefehls- 
folge CLA PRA den Duffer ausdrucken, bevor man ihn mit AC- 
Befehlen neu lädt. 


Die VIEW=-Nefehle führen bei gesetztem Flag 21 zur V'rogramm- 
unterbrechuneg, wodurch dann das Flag 55, wie auch rach den 
Befehlen R/S, PROMPT und PSE/) wieder gesetzt wird, Durch 
den VIE!-Defehl ist die Information aber in den Puffer ge- 


laden und kann somit anschließend ausgedruckt werden. 


War ein ADV-Befehl vor dem Löschen des Flags 55 ausrseführt 
worden, erfolgtser BRufferausdruck immer rechtsbündig. Um 
linksbündigen Druck zu erreichen, sollte vor dem Löschen 
des Flags 55 ein FPRVPUF-Hefehl erfolgen, 


Insgesamt gesehen ergeben sich einige vielleicht für spezielle 
Anwendungsfälle unangenehme Einschränkungen, so dad sich die 
Verwendung dieses beschriebenen Tricks nur für Prorramme mit 


langen Rechenzeiten von mindestens mehreren Minuten eignet. 


Achtung: Selbstverständlich muß das Löschen des Flars 55 im 
Programm erfolgenll (Unterprogrammaufruf von 3 


oder durch synthetische Programmierung) 


Happy programming ka 


[ee vn ver 


Frogramm zur Ermittlung zweier Quadratzahlen, deren Summe eine Trimzahl ist. 
(a2 + 22 = I2) 


Irgend einer der nattematischen Geistes-Heroen (EULER? GAUSS?) fand heraus: 


" Wenn eine Primzahl beim Teilen durch 4 den Rest 1 läßt, 
dann kann man sie auf genau eine Weise als Summe zweier 
“uadratzahlen schreiben. " 


PZ: a2: b2: 
Einige Beisrfiele aus einer 
vabelle der Primzahlen, ab 12 433 „uouccaeenennnen 12 433 = 63° + 922 
12 437 = M2 + 862 
12 451 ERROR 
12 457 = 262 + 1092 
Den Freunden zahlentheoretischer Frobleme 12 473 = 322 + 1072 
erleichtert das folgende IRSM die Suche 12 479 ERROR 
nach den genannten Zahlen. 12 487 ERROR 


Dazu noch ein Hinweis zu einer 

iRGE-Besonderheit: nach meinen fast 10-jährigen Erfahrungen im Umgang mit 
programtierbaren hp-Taechenrechnern ist die R/S-Taste die am meisten strapa- 
zierteste Taste. Es ist daher nur eine Frage der Zeit, daß der "Druckpunkt" 
dieser Taste erheblich "ermüdet", d.h., mitunter überhaupt nicht mehr spürbar 
ist. Bei der Arbeit mit dem Rechner irritiert das fast immer. Man sollte diese 
lagte also weitgehend schoren. 


Im nier vorliegenden FRGM wurde daher anstelle von PROMPT nach AVIEW (IS 05) 
2-mal kAUSE eingefügt. Während dieser Zeit läßt sich die FRIMZAHL (T’2) bequem 
eingeben. Die auftretende, kleine Verzögerung dürfte auch für Geschwindigkeits- 
fanatiker tragbar sein, wem das nicht gefällt, der kann ja immer noch zu FROMPT 
und R/S zurückkehren. 


ıRGM-Ausführung (SIZE mind. = 5) 
1. Nach Eingabe der Schrittfolge folgende Neu-Zuordnungen vornehnen: 


1.1. LELL£ —e Taste LN 
1.2. LBL DE — Taste LOS (DA Cai0) 


2. START mit LOG; es folgt die Aufforderung, PZ einzugeben. (Beispiel 12 =12497) 


3. Anzeige: a = Y 
= 104 
a = 1681 


DB? = 10846 
L= 12 497 (a2 + v2) 


4. siederholung der Anzeige (beliebig oft) mit LCG 
G.SIEWERT (52) 


Anrerkung: R/S 1iRt sich dnch jeder beliebizen Taste zuordnen ? Also cuueer 
Oben mi? es unter Pkt. 2. heißen: 
"START mit Uli; ea foigt „oecoc." 
Ansonsten ist das Prgr. aber völlig 0.K., was nicht so selbstverständlich 


sein mag, da Gerhard Siewert selbst keinen HP-41c besitzt, 
Oliver 
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12 x=Y? 
13 GTO 891 
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16+LBL Bi 
17 RCL 98 
18 SORT 
19 INT 
28 STO ®i 
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25 - 

26 SORT 
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28 FRC 

29 x=0? 


38 GTO “"DC“ 


31 RCL 01 
s2 1 
33 - 
34 STO 81 
35 GTO 22 


36+LBL 


37 
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Wolfgang Leipold 
Kopernikusstr. 6 b 


8590 Marktredwitz 


Herrn 

Oliver Rietschel 
Bismarckstr. 31 
Postfach 373 


2420 Eutin 


Lieber Oliver ung Mitglieuer, 
zu dem bisher im Prisma erschienenen Artikel: primal 


Für mich ist der 41 C jedoch mehr Hilfe im Beruf und 
zur Beschäftigung mit synthetischen Programmen bleibt 
mir kaum Zeit. Außerdem fehlen mir noch (derzeit) die 
notwendigen Grundlagen. 


Frage: Wieviele im Club sind noch daran interessiert, 
die Fertigkeit des Programmierens dahingehend auszu- 
bauen, Programme für den Beruf, Studium, Schule etc. 
"zum Laufen zu bringen"? Z.B. sind die Kapitel 
“indirekte Operationen" und "Flags" im Handbuch, zu- 
mindest für mich, zu kurz gekommen. 


Idee: Könnten wir uns nicht ab und zu gegenseitig 
Aufgaben stellen, wobei die Lösungen allerdings mit 
kurzem Kommentar versehen werden, damit auch Anfänger 
und "leicht" Fortgeschrittene erkennen können, "warum" 
dies oder jenes so gemacht wurde. Die "Aha-Ergebnisse" 
können vielleicht für den Einzelnen bei weiteren Auf- 
aabenstellungen vor Hilfe sein. 


So sind z.B. die erschienenen Programme "Addition, 
Plot 1, Sortieren von Zahlen" etc. nützliche Module, 
die direkt oder abgeändert verwendet werden können. 


Zum "AnstoR” folgende Aufgabenstellung: Es sollen 


Gehälter ausgezahlt werden an fünf Personen. Im einzelnen 
beziehen diese Personen folgende Gehälter: 


[2 


Person 1 DM 4773,-- 
" 2 DM 3483,-- 
a 3 DM 2973,-- 
" 4 DM 2041,-- 
2 5 DM 1924,-- 
Es stehen zur Verfügung an Scheinen bzw. Münzen: 
20 x 500 DM 

30 x 100 DM 

30 x 50 DM 

30 x 20 DM 

10 x 5 DM 

15 x 2 DM 

14 x 1 DM 


Die einzelnen Einheiten sollen so gleichmäßig wie 
möglich verteilt werden; also Person 1 bekommt nicht 
etwa acht Scheine a 500 DM, Person 2 sechs Scheine 

a 500 DM usw., da sonst P@y%on 5 überhaupt keinen 
500 DM-Schein mehr bekommen könnte. 


Das Programm sollte soweit wie möglich "alleine' 
laufen, d.h. Dialog, Zwischenspeicherungen etc. 
sollten minimal sein. Das Ganze unter der Voraus- 
setzung, daß KEIN Drucker zur Verfügung steht. 
Macht jemand mit? 

Mit den besten Grüßen 


Mega er” 


Euer 


FILMLAENGEN- 
BESTIMMUNG 
FUER SUPER-ACHT-FILNE 


LBL’FILM 
END 
429 BYTES 


SPEICHER: 

88 SZENENZAEHLER 

e1 SUMME BILDER 

62 ANZAHL BILDER DER SZ. 
83 SUMME METER 

84 SUMME MINUTEN 

85 BILDER/MINUTE 


PRP -FILN" 


Bi+LBL "FILM 
5 X&E 84 FC9C 25 
PROMPT CF 27 CLRG 1 
Sto 0a CF 81 CF 82 

"N BILDER/S:" PROMPT 
ADV SF 12 CLA ARLL X 
"HB" AcCA SF 13 
"ILDER/S" ACA PRBUF 
CF i2 CF 13 60 = 
STO 85 


29+LBL 88 

CF 22 CF 29 FIX 8 ADV 
ADY "SZENE " ARCL 88 
PRA ADY ADY 


" 48+LBL 85 

@ "BILDHUNMER" PROMPT 
%=8? GTO 81 RCLEI 1 
+ %1? CT0 05 RDN 

-B* ACA SF 13 "ILD " 
ACR CLA 1 ST+ 81 RDN 
ARCL Bi ACR ° -* ACH 
ACK PRBUF ENTER? 

KO - 1 + "SIND" 
ACR ACK CF 13° Br 
ACR SF 13 ILDER" ACA 
PRBUF STO 82 REL 05 7 
ST+ 84 KEQ 82 RCL 82 
884234 * FIX 3 

ST+ 83 XER 03 1 

ST+ 088 GTO 86 


I6+LBL 81 

ADY GESAMTWERTE" PRA 
“-=2222======" PRA CLA 
ARCL 81 ACA = B* ACA 
SF 13 -ILDER" ACA 
PRBUF RCL 84 XEO 82 
RCL 83 XEO 03 CF Bi 
CF 82 GTO 99 


118+LBL 03 

FIX 3 CF 13 "L" ACH 
SF 13 22 AUCHR RDN 

"RGE" ACAR ACK "N 

AR PRBUF XEO 18 

CF 13 RTN 


136+LBL 82 

INT CF 13 "2" ACA 

SF 13 EIT" ACA ACK 
- MIN ACA FIX 1 
LASTK FRC 68 * ACKX 
- SEC" ACA PRBUF RTN 


157+LBL 84 

FS? 55 G6T0 86 

"PRINTER" SF 11 PROMPT 
cr ii 


164+LBL 86 

ENTER? ENTERt I + 
xOdY "SIZE =" FIX O 
ARCL Y SF 25 RCL IND X 
xOdY SF 27 RIN 


. 178+LBL 18 
2 A - ASTOL 
ARCLL PRA CF I2 RIN 
186+LBL 99 
END 


18 Bilder”s 


SZENE 1 


Bild 1 - 258 

sind 258 Bilder 
Zeit 8 ain 13.9 sec 
Länge 1.859 a 


SZENE 2 


Bild 251 - 759 

sind 569 Bilder 
Zeit 8 ain 23.3 sec 
Länge 2.155 


SZENE 3 


Bild ?68 - 854 
sind 95 Bilder 
Zeit 6 nin 3.3 sec 
Länge 8.402 a 


SZENE 4 


Bild 855 - 3688 
sind 2746 Bilder 
Zeit 2 min 32.6 sec 
Länge 11.627 n 


u ——— 


SZENE 5 


GESANTWERTE 


3698 Bilder 
Zeit 3 min 20.8 sec 
Länge 15.242 a 


mm r.n .gf 


HEWLETT W PACKARD | 


Hewlett-Packard GmbH - Vertricdszentrale - Berner Straße 117, 6000 Frankfurt 56 - Postfach: 560140 Tel: (0611) 5004-1 Vermütlung Se 


Ollver Rietschel 
Hewlett-Packard Anwender-Club 
Postscheckkonto Hmb. 48635-207 
Postfach 373 : D-2420 Eutin 


Betr.: Batterielecensdauer HP 4lc 


Schr geehrter Kunde, 


die Batterielebensdauer ist von vielen Faktoren abhängig, 
wie der Rechner benutzt wird, mit welchen Peripheriegeräten 
er betrieben wird und wie frisch die Batterie selbst ist. 


wenn Tasien gerückt werden, säsı ein Programm abläuft, 

befindet sich der Rechner im "RUN" Modus, wenn er nur einge- 
schaltet ist, im "STANDBY" Modus. Er benötigt dann nur 1/7 

der "RUN” Modus 5Stremaufnahne. 

wird der Rechrer sicht benutzt, so schaltet er automatisch aus. 
Er befindet sich dann in "SLEEP" Modus und benötigt nur etwa 
1/lco der "STA!DSY" Stromaufnahme. 

Messungen der Batterielebensdauer ergaben die folgenden mittleren 
werte: 


HP_4lcC allein 


Mittlere Lebensdauer 


( Stunden ) 


RUN Modus: 


60 
80 


Stunden bis BAT indikator 
Stunden bis Anzeige aus 


NR 


HP 4lcC und 82:0: Zzrienleser 


Kartendurchläufe 5 
 Kartendurchläufe b 
gelesen wird 


nicht mehr 


a ger 


>} 


je] 


Wenn Sie die von Ihner erzielte Batterielebensdauer mit diese 
Werten vergleichen, bederken Sie folgende Punkte: 


l) Die Werte wurden zit frischen Batterien erzielt. 


272 


vereon.ene ats 2 B au 
en were Bene Sa 2 NO rent, te N SCOT Tees EIKE Dan 7 Forenecaamo Frame am bon AM 60 HL SA OR 
at En", IST TEIEHT Zi 5E LUG Imcpe um Are re) won Dive Fanart Human, Bit ahrenen 


BE EIURTD Dame ed? 


be N 7 27900 


Berria Samurai Verzrenrcrrä.n Mrwer Di Franin kw 


EL Tb en mei See 19 Teen ON. Arie bergen?) 


Tun 


er rrrrrrIch denke 
??lch u 


2) Es handelt sich um mittlere Werte, daher können Ihre 
Werte höher oder niedriger liegen. 


3) Kartendurchläuf ist definiert je Seite. 


4) Kombinierte HP AlC mit Kartenleser-Verwendung, ergibt 
niedrigere Werte als die oben angegebenen. Wenn der 
Kartenlesermotor anläuft, wird die Batterie stark 
belastet und die Spannung geht zurück. 

Gegen Ende der Batterielebensdauer, (jedoch bevor der 
BAT Indikator erscheint), kann der HP Alc allein 

noch normal arbeiten, jedoch beim Versuch eine Karte 
einzulesen, kann die Spannung unter den Referenzwert 
gezogen werden, sodaß der BAT Indikator erscheint. 


Deshalb sind 60 Stunden RUN Betrieb des HP 4lc 
alleine,nicht gleich looo Einlesungen zu setzen. 


5) Wenn die Batterien soweit entladen sind, daß keine 
Karten mehr gelesen werden, sind sie dennoch für cen 
HP AlC Betrieb alleine, noch eine Zeitlang verwendbar. 
Sie können so Ihre Batterien voll ausnutzen. 


6) Speicher oder Anwendermodule verringern die Batteric- 
lebensdauer. " 


7) Wear ein Drrcker 82143A einges:tzt ist, beachten Sie, 
daß der HP 4!icC sich während des Druckens im RUN Modus 
befindet. Längeres Drucken entlädt die Batterie des 
HP Alc. 


Mit freundlichen Grüßen 
Hewlett-Packard GmbH 
Vertriebszentrale Frankfurt 


Kundendienst 
Unternehmensbereich 
Calculator Produkte 
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wenn BAT-ON, werden keine Kzrten mehr zelesen ? 


31 32-81 


Der Strichcodeleser des HP-41c kann einem nicht nur das Leben erleichtern, 

indem er schnell Programme einliest und nicht auf dem Tastenfeld vorhandene 
Funktionen sehr schnell ausführt ( z.B. SIZE nach MEMORY LOST ), sondern er 
eröffnet dem Anwender eine Reihe neuer Möglichkeiten. Sehr interessant und 

ohne Vorkenntnisse anwendbar ist 2.B. die nachfolgende Tabelle, die von Jürg 
Warmuth aus Berlin erstellt wurde. Sie enthiilt alle 128 ASCII-Codes in codierter 
Form. Geplottet wurden diese Strichcodes vom Drucker des HP-41c. 

Die Vorteile sind enorm: Ohne synthetische Programmierung oder irgendwelche 
Tricks lassen sich alle ASGII-Zeichen in das Alpharegister eingeben, Dieses 

ist normalerweise nicht möglich. Beispielsweise findet sich auf der Tastatur 
kein kleines f mehr: Die Kleinbuchstaben gehen nur bis e . 

Damit ist jetzt Schluß: Man nehme seinen Griffel zur Hand, suche das ASCII-Zeichen 
in untenstehender Tabelle und lese es ein, Bis zu vierundzwanzigmal (danach ist 
das Alpharegister voll und das erste Zeichen geht wieder verloren). Nicht nur, 
daß diese Methode viel, viel Speicherplatz spart; die Frogramme werden wesent- 
lich übersichtlicher. Zeichen wie "&'" „ Strichmännchen und andere lassen sich 
sogar in der Anzeige darstellen, die meisten erscheinen jedoch als Null, d.h. 

als schwarzer Kasten (Black Box). Die Anwendungsbereiche liegen also vornehn- 
lich im Bereich der Druckeranwendung. Mein Vorschlag an HP: Diese Tabelle serien- 
mäßig dem Wand oder dem Drucker beilegen ! Wahrscheinlich ist es sinnvoller, die 
Tabelle erst dem Drucker beizulegen, denn wer nur den Rechner und den opt. Leser 
besitzt, hat nur wenig Vorteile und wird sich evtl. über ständige Black Boxes 
ärgern. Zusammen mit dem Drucker erschließt sie aber eine neue Programmiermög- 
lichkeit, die neben dem Werbeeffekt einen Anreiz bringt, den Lesestift zu kaufen.... 


Noch enWort zu den Strichcodes: Die Tabelle habe ich in teils mühevoller Arbeit 
auf dem HP-41c mit Thermoprinter erstellt. Die hervorragenden Leseeigenschaften 

rühren von dem verwendeten schwareen Papier her: erstklassig zu kopieren, dabei 

absolut wischfest und ohne jeden Lesefehler beim Einlesen mit dem Wand. Ein Be- 

richt über Strichcodeplotten wird sicher noch folgen. 


BIEEDETHINNIEN 32 INIEIIDIRINIAH 64 


+ @ Nm 367 NEE 
1 = TIEREN Era Ba 11 11111 111111 65 A IIEINERINEN 972 RR 
2% UNE Os 11 1111111711177177 6 B mamma 9b HBERBIEEN 
3 « MUMMmmnEn 35 46 MEINER 627 CB 99 CNN 
4 MEN 36 # MEERE se D Na 188. INNEIREREMEN 
5B INIIERIMMERN 37 %  HINRINIDIIIDENEN 69 E  NNBERIIIENINEN {le NERIENIEN 
u TFT 38 % EINEN ar DIN 102 # NENIIBERNEN 
Ts IMMIENNELEN 39° NIBBRIIIDIBIEBEN 71 G NIE 193 3 num 
Io mamma 4 > MMRIIHBIRNmIIEN 73 1 NUBmaman 105 ı  TMEOHIIIBERNENEN 
18 + NBIBINENNEIME 42 MERIIIHEININ 74 8 BIIBNIIEREIINNIN 186 3 Mamma 
11 >» TBRINBINEIN 43 +  IINIIREITEN ?5 K  IMBIRIEOIINIaN 197 K  TTIRNEIIIBRENIITEN 
12 „> MBANMIBNNETIN 4, NHEITEIENESNE 76 L UBRIIIIBRINBENN 188 1 VNMIBITIEBEIERIN 
13 <£ HERNE 45 — IEINanıN ?7 ra RRRIIERNEREN 199 m IEIEHNEIEDINEN 
14 x BMUERNRIIERIN 46. ANNIE 78 N WINE 1 mn ana 
15 #0 nimm 47 7. MNEINNITIBNBEREN 3 O INNERES {to MERENEEENBNN 
16 8 mamma 48 8 MNERRIEISEE 88 P IHENUERMIN 12 Pe NNBEREUIRREN 
17 0 HABRINENEINEE 49 1 SENNIIIBRIIIN 8 Q  EBENIIBUINEN IT 1111111117111] 
18 5  MmIEUNIN sd 2 NEBEN 2 R NAMEN 1147 ERBEN 
19 9 ÄEBUNENEEEEN St 3 IMMER 33 S  MIAERIEHINEN 115 5 imma 
28 a MIBOBINEHENEIE 524 MERIIEERHNN 84T IBRARTERIIEN 116 x MDIRIEBRENENN 
a1 A  HRIINIIEN 535 NEHMEN 35 U UMBIINENEIEN 117 ws TNHERITRRRIINEN 
22 & MAMI 546 NBENNNENENN 86V TNBIRBINEIN 118 0 NER 
23 0 WEINNENENAENN 57 INN 87 WM NHNEINERINIENEN 119 wo TNREHINHORUNEEEN 
24 5  UMIERMIENENE sg am ET TTLLILIT IT) 120 x NBMIIRRERBINN 
25 © MERMIIBIBUERN 579° MNNEISIRIEN 89 Y INEINIIENEIEN 12 v TEEN 
26 @ MIERIMNEEANN Se 11111111 1111111111 99 zZ INERIERNE 122 z Inn 
27 E UEEHINBNENIEEN Sr 1111 1111111111111 4 CENT 123 m NIEREN 
28 e HERREINANEIERNN 6O <  AIEMBIHRIEANE IN EEE 124 9 ERIIEESNENNN 
29 = BIENEN = NEIN 93 37 NAUNNIETHDRN 125 > IIBEIBHIERONNAN 
39 £ MNMMBUNEIEIEEN 62 >  HNRRINRERER 47 mm 126 EZ  MENBENSSHERIN 
31 ERINNERN 637 NIBEIIIRIESREN En; 11 111111 111111111) 127 + RENNEN 


Der programmierbare gyte Junper Rol® Hauch (75) 


In diesen Artikel möchte ich auf eine, von mir entdeckte, 
neue Befehlsgruppe eingehen. Ich nenne sie programmierbarer 
Byte Jumper; kurz PBJ. Es handelt sich dabei um die 2-Byte Befehle 
1D, 1E und ?F, die mit o1 bis of als zweites Byte gekoppelt 
sind. Laut Hextabelle sind dies GTOa, XEQa und Spare, in 
Verbindung mit LBL oo bis LBL 14. Im Display erscheinen sie 
als To”, xEqT und w., Die Länge des Textes, der in diesen Befehlen 
steht, hängt vom zweiten Digit des zweiten Bytes ab. 
Beispiele: 1D 03 im Programmspeicher ergibt in der Änzeige 

Gro'xrz 

IF 07 ergibt WITUVWXYZ 
Dabei steht TUVWXYZ für irgendeine Alpha-Kette, da dieser Text 
ein Abbild der folgenden Bytes ist.3eispielsweise wira hinter 
GTO"AYZ LN;Xeund X geschrieben. Das ergibt dann UNO FAR, da 
PQR in der Hextabelle die zu den Befehlen gehörigen Alphazeichen 
sind. Im die Haupteigenschaft des PB! zu verstehen, sollte das 
folgende Programm eingegeben werden: 


81 SF 26 SE Mer ie ne ENTER HEERES EEE 
a2 SF >5 Zeile 053 ist Hex 15 03 und steht in der 


83 GTO “o" Anzeige als STU’RBB: 

84 TONE ? 

a5 STOr Packen ist notwendig damit keine \ull- 
ac. BEEF vn i a 
a? .END. Bytes (erkennber an ) zwischen PEJ 


: und nächstem 3efehl stehen. 


Beim Ablauf hört man jedoch nicht TUONE 9, sondern nur BEEP. 
wira das Programm im SST-Hodus durchgegangen, so verharrt der 
Rechner einen kurzen Homent auf Zeile 03 (er sucht LBi 8 u, 
wobei TIsH =tHex 9F 09 54; nämlich die Hexcodes für TONE 9 
und STCP), um danach mit BEEP fortzufahren. Die drei Bytes TONE 9 
und STOr werden also übersprungen. Das SF 25 in o2 ist notwendig, 
damit das }rogramm nicht in 03 mit NUNEXISTENT anhäl‘.xier x 
Hier sieht man die zwei Nachteile des PBJ mit ID und Ik: 
a) Existiert zufällix ein Alphalabel mit dem pässendem Text, yo 
wirc zu ihm verzweirt. 
b) us muß Flag 25 gesetzt sein. 
Doch was ist mit 1F” 
Dieser F8J arbeitet nach seltsamen Gesetzmiüßigkeiten. Die Awirkungen 
reichen von Ausschalten bis Aufhängren, je nachdem welche Peripherie 


an den HP-U1C angeschiossen ist. Bieibt noch das Froblem diese 


Befehle zu erzeugen. bs gent am besten mit Bar Codes oder den 


h 


81) dürfte 


techniken zustan- 
erigkeiten. HP hat sich nicht streng 


agen ?). Jedenfalls 


ische Prgr. 


Das Buch William C. Wickes 


‘5 (siehe Seite 44- 


übernommen. Mit diesem Bericht liefert 
i 


Was soll ich denn erst s 


( 


daß er eine Einführungsserie in neue synthet 
'fehlten", konnten nicht erscheinen, weil sie keineswegs 


Code-Plotting nicht fertig bekommen. Mal sehen ...... 
abdruckreif waren. Ich hoffe, daß Rolf Mach sie übertragen wird ...... 


Pr} 


iel geworden 
jas 


hat Rolf Mach (75) 


Noch zwei Punktes Die Bar-Codes machen noch Schw 


der Hexcodetabelle orientiert und auch das Buch Bar- 
Die Tabellen von Matthias Grabiak, die im Weihnachtsinfo ' 


Die Leitung der Abteilung Synthetische Programmierung 
er seinen "Einstand". Sven Beiersdorf ist die Arbeit zuv 


wünsche ich Rolf viel Erfolg und hoffe, 
de bringt. Das bisherige neu zu erläutern erübrigt sich 


da alle Probleme ausräumen. 


Liebe Mitglieder ! 


an 


INMUNMINNININUNNNUNIUNINNNNN! 
MIMNMNNNNNNNINNNMNNNUNIN 
MIMUNMINNUNUNNNUANNNNNUNNUNNNN! 
1111111111111111111111 111111111111] 
[1111111111111 111111111] 
1 1111 11111111111] 


1111111111111 1111111111111] 
UN 111111111111 


INUNINNMNIMNUNUINUNMUNNANNN 
U 1111111111 
1 111111111111111111111111111111 11] 
IININNIINININNAINIUNUANNNNMNA NN. 
IIIININNNUNNNNNNUNANNMNMNMN 
nnINNNNINNMUNNNNMUNNNNNMLMNN 
INUININNININUUMUNINLAMNMMNUN 
INMMUNININNUNNIIANNNUNUNUMMNNANL 


2,1) Yibt es eine Gewinnstratepgie, so muß sic auch im 
soenzfall a=-b=?r zum Erfolg führen. dann gewinnt A; also 
mu“ lie Strabterie stets A zum Gewinn verhelfen. Im alle. 
Fall »,b2°r (15. Regeln zitt es für ac2r oder bK?r keinen 
"inzae) Jansat 1ie Sbrasesie von \: 

Soroanske Stein ist so zu setzen, daß sein Nittrlpunkt mit 
selpunkt P des Spielfelds übereinstimmt. 

j.5eren Steine setzt er mittelpunktssymmetrisch zum 

„sen Stein von 8, d.n. A setzt jeweils seinen Stein 

Üsrecka vom YitSelpunkt seinrs Steines zu den 

Steinzs von B Jurch P halbiert wird. 

„ alle Steire denselben Radius haben und 


ine Shuelne nıch dem Jetzen beswersb werden dürfen, kann \ 
noch jeien Zug von 3 zit dieser "Symmetrie-Strategie" noch 
einen Tuz Sun. Fri endlichen Spielfeld wird A also gewinnen. 


Das Kreuz besteht aus ? Balken mit den Flächen Ada? Rd. 
ich2 des Kreuzes, Ad+Bd-dAA2, soll gleich der Restfläöche, 
sn der halben Sesamtfläche sein, d.h.: 

2_.38 


Ad+34-dT = . (2 2) 
= A+st A?+Be 


3: Lörunzen dieser quadr.Gl. sind: d, a = nn . 
’ 


a As R; denn sei 0.3.4.4. o<A=Min(A,B), alsoyz > 
. A A+B- VYAT+R 
d, : ana + ?A. Darous folst d = d, = kan Vazı22, 


Turm Tagtirmenz von 6 ist Ale 1.ape des Kreuges unarheblich; 
“an wann die ?altnn also in einz Scke parallelverschirdben: 


eztui-en, indem man 2 Parallelen durch 


‚anmetrisch 1’ft sich d be 
!ic mezehenen Funkte Y und X sucht, sodaß für deren Schnitt= 
j ! mis 3 zilt: Strecken! = Streckekt! (=1). 
r: 5 aız Aem sonndsnvieiten Strahlensatz; 
man erhält aus der srsten 0.2. Ml.: n N 


Rad. 
2 


Werner Stroir s 
Kempuweg 7a Beriin-Tegel, 11. 11. 80 
1000 Berlin 27 


I _ - 
a1 N ..,.r 
a IN_LINNLIINLT 
u Dez 
Tr u = 
Gi 2068 
Kı 2.28] 
a 
Herrn sı denn: 
“1 sesß|: ‚ En: 
Oliver Rietschel l BEREU-E | 


HP= Anwender-Club 
Postfach 373 


2120 Eutin 


Sehr geehrter Herr Rietechell 


Programme reizen zum Erproben... und zum Ändern! Oder sollten Sie da etwa 
enderer Meinung sein? 


Mir hatte es das Plot-Programm aus "prismae" 9-80 besonders angetan, da es 
nach meiner Ansicht besser und übersichtlicher ist, els das PRPLOT. 

Nun wollte ich schon seit längerer Zeit ein Programm zum gleichzeitigen 
Plotten von zu2i Funktionen schreiben, und Ihre Veröffentlichung war der 
letzte notwendige Anstoß dazu: 


Was daraus geworden ist, können Sie dem beiliegenden Programmausdruck ent- 
nehmen! Mit 204 Programmzeilen, die L2L Bytes beanspruchen, ist dieses 
Programm nur unwesentlich länger als die von Ihnen gelieferte Ausgangshasis. 
Die ursprünglich musterhafte Lbersichtlichkeit wurde allerdings zum größten 
Teil geopfert, da ich doch einige Schleifen und andere Tricks einbauen 

mußte, um Platz zu sparen. Zusammen mit SIZE 026 ergibt sich aber ein Gesant- 
bedarf von 87 Registern, es ist also mit einem Memory-Modul noch Platz, tie 
zwei zu plottenden Funktionen unterzubringen, zumal diese ja die gleichen 
Register zur Zwischenspeicherung benutzen können, falls der Stack dazu nicht 
eusreicht. 


Das beiliegende Beispiel zeigt den gemeinsamen Ausdruck von zwei Fourier- 
Synthesen, die jeweils mit der 1. und 3. bzw. mit der 1. 3. 5. und 7. Harmo- 
nischen ein Rechteck enzunähern versuchen, Schnell ist das Programm nicht, 
die Dauer hängt aber auch stark davon ab, wie umfangreich die Rechenaänge 
in den beiden Funktionen sind. Des gewählte Beispiel dauerte etwa 35 Minuten. 


Vielleicht ist dieses Programm eine nette Ergänzung für bereits bekann*e 
Verfahren. Eine Erweiterung auf das gleichzeitige Plotten von 3 Funktianen 
ist grundsätzlich mäglich, nur fürchte Ich, daß dann die Angelegenheit doch 
zu langsam wird. 


Als Beispiel früheren "Schaffens füge ich noch zwei Bearbeitungen älterer 

HP 67/97- Programme bei, die ich für den HP-LIC so zurechtgestutzt habe, da3 
sigjeweils nur eine Magnetkarte benötigen und, vor allen Dingen, mit und ohne 
angeschlossenen Drucker einwandfrei funktionieren, 


Mit besten Grüßen! 


nT' 


"rLo 


O1eLBL 
22 RON 
RZ "NAME 1” 
as FROMPT 

es asTo 85 
ne "NAME 2° 


r7 PROMPT 
ae asrtr 27 


14 -v may>- 
Is pperrer 
16 sro nt 
17 "2 MIN? 
18 PROMPT 
12 STo 82 
28 "x may>?- 
2t PROMPT 
22 sta e2 
2 "X IUc9- 
24 PROMPT 
ag STn 94 
PA -eLOT 
27 aerı 9s 
28 "Hr AND ” 
29 ArCcL 28 
za ppa 

zı Fıv 
22... 

372 ARCL ma 
724 "+ TNn * 
as arcı el 
26 Pra 

zZ7 x u 

ze ARCL 92 
39 “-r TO - 
4a ARCL 93 
aı prNA 

42 FIX 3 

43 -STEPS 0 


“4 ARCL 84 
45 PRRA 


Eingabe der 


mit verändertem 
Bereich 


ntere Grenze 
für y 


Übere Grenze 
für y 


ntere Grenze 
für x 


Dbere Grenze 
für x 


Ausdruck der 


eingegebenen 


Nemen und 


Daten 


orbereitung 
der y-Achse 


Druck der Achse 


Berechnen des 
aBstab-fFaktors 
ür y 


Fektor speicher 


ei+LBL 208 
e2 11.024 
e3 <TOo a7 
64+LBL 921 
65 RCL R6& 
66 XEQ IND 


6B+LBL 92 
69 RCL 88 
?8 - 

?ı RCL 08 
v2 

31 

4 + 

?5 FIR ® 
?6 RND 

7? 1683 

78 8%<>Y 
79 .XDY? 
88 8 

81 ENTER?T 
e2 08 

23 X<=Y? 
84 XV 
85 STO IND 
86 FS? a9 
87’ RTN 


ww 
Druckprogramm 
für 2 Funktionen. 


- 


Mayı 


min 

Übernehmen 
Schleife für 2x7 
v/Vz-Verte 


vorbereiten 
x-Wert aufrufen 
var, 

Kennung f, 


min 


Anpassung an 
y-Nadstab | 


abziehen | 


Formatieren, 
Runden 


Prüfung, ob im 
y-Bereich, evtl. 
durch D ersetzen 


Sprung z. 2. Fkt 
Speicheradresse | 


- korrigieren 
Kennung f, 


vaft,(@) | 


Va bearbeiten 
wie y 
x umAx änddrn 


Vergleich nit | 
"max 


Rückeprung oder N 
| 


Sortieren 


Überepringen des 
Zeilenebetends 
Anfengswert für ı 
neue Serie ! 


a Zu 
Vergleich mit 
“max 


Abschluß-Linie 
drucken 


Stroinski 
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114 Speicher mit Prüfung der Reg. 

115 SF 9 yany„=O laden, 158 1SG 192 auf gleiche 

116 0 12 159 PCL IND genzzanlige 

117 STD IND ‚Men Amex > INT Inhalte 

ar 6 

118 IsG 87 DHRSREHRIRSN 161 RCL IND 

119 GTO 94 e9 

128*LBL 85 Vorbereiten der 162% INT 

121 12.902582 Einfügung der 163 X=Y? 

122 STO 18 Zeilenkennung 164 GTO 893 

123 1 in Reg. 11...24 165 |LASTX Aufruf der Zei- 

124 - 166 FRC lenkennung be- ; 

125 STQ 89 167 RCL IND nachbarter Reg. | 

126 5 E-4 Additives Einf) 18 igleichen INT- 

127*LBL 93 gen der Zeilen- 168 FRC Wertes. 

128 ST+ x kennung in die 169 X<)>Y 

129 ST+ IND ‚Register 11..2% 179 X=Y? H 

89 ; ı71 ST+ IND "Addition der Zeil 

138 ST+ IND 10° lenkennung nur, 

1 172 CL% wenn verechieder| 

131 ISG 099 ı73 STO IND ' 

132 ISG 108 993 r 

1723 GTA 92 174+LBL 89 

134 12.9024 175 ISG 89 

135 STO 18 vorbereiten 176 GTO 088 dt ee 

136*+LRL 96 177 11.924 Neue Schleife 
173 STO 99 vorbereiten 


137 PRCL 19 


1338 STAA 989 179 0 


Abfrage der Reg 188 STO 108 


139 1 
148 - -11...26, denn 181°LBL 108 Ermitteln der 
141 RCL IND 12...2b, dann 182 RCL IND Kolonnenzahlen 
x 13... 24 usw. 99: und der Sprung- 
142-LEL 07 auf kleinsten 183 INT befehle für 
143 RCL IND Wert. 184 xK=8? Druckbuffer 

39 185 CTO ı1 5 

144 x(Y? 186 ENTERTt 

145 KV 187 x<> 18 

146 STO IND 188 - 

93 189 1 

14? RDN 198 - 


191 SKPCOL 


148 IS5 099 
192 RCL IND 


149 GT2 87 


Aufruf der Zei- 


158 STO IND speichern des 39 er 
Y - ; kleinsten Wer- 193 FRC enkennung 
151 ISG 18 | tes 124 1 'E3 

195 ‘ 


152 GTO 96 
153 11.27 Neue Schleife 


154 STNn 99 vorbereiten 
155 11.824 
156 STO 18 R 


196 .ATCOL 


288 PREUF iredruck 


282 PRA Abschlußlinie 


TOT, PEn. Er 
424 EVTENS. 


Zum Problem 7ufallzahlengenerator von Frwin Nartmann kann ich sagen, daß 
die Routine aus der IP Standarlprorrnmmaammlung meines Erachtens schon 
in Ordnung ist, Die Verschiebung der lläufigkeit nach größeren Zahlen 
erfolgt durch der Defehl Zeile 46 SORT in seinem Programm. Dieser Befehl 
rehört nicht zum Zufallszahlengenerator sondern ist im Programm "Arith- 


metik-Lehrgang" offensichtlich eingefügt um eine Bevorzugung von schwie- 


rigeren Aufgaben mit größeren Zahlenwerten zu erzielen. 


Auch das Frscheinen von ß ist ganz richtig. Der Generator erzeugt Zufalls- 


zahlen von 0-0,999,.. ,„ wenn O als Zufallszahl nicht gewünscht wird, muß 
eben die anschließende Weiterverarbeitung richtig erfolgen, 


AnschlieDend eine Formel um gleichverteilte Zufallszahlen innerhalb einer 
maximalen und minimalen Zahl aus obigen Zufallszahlen von O-1 zu errechnen, 


INT (n (nax-min+1)+min) 
n....Zufallszahl 0-0,999... 
max..maximale gewünschte Zahl 
min..minimale gewünschte Zahl 


UTCKAKAKKKLKKANKKKMNKAKKHKLNKKAKHKKKKKKHKLLNKKKKNKKKKKKKKHKKKKKKAKKLKI LIU 


Folgende Programmsammlungen kann ich leihweise zur Verfügung stellen: 
Users Library Solutions FE Lab NP67/97 
" n " Calendars IIP67/97 
Statistik-Paket IIP67/97 
Mathematik-Paket HP67/97 


KUMAKKILIKKAIKAKANKKIKNANKKKKNKKKHLNKKKTKCKK HK NK KK KA KA KK KK A KK KK KIN NK KKIKÜU 


In meinem Programm "Startroutine für Zufallszahlengenerator" muß 
Zeile 03 natürlich richtig heißen: 'OFF, ON" 


KAXXANKAKANKHINKKHKKKKKKKHIKLLHLKÄLKHKKK IK KKKLKKNNKKAKLK KHK KK LK N KKAKXALLIIK 


Die ACXR-Routine von K,W.TIoenow ist sehr gut, auch ich habe mich mit 
dem Problem beschäftigt, bin aber auf längere Laufzeiten gekommen. 
Daa Programm funktioniert allerdings nur wenn Fig.29 gelöscht ist. 
Ich habe das Programm etwas geändert, 30 das große Zahlen auch mit 
Trennzeichen richtig untereinander geschrieben werden, 


RER 
er 16 $T- Y 
83 STO 2 ER: 
94 X=8° RM 
85 CT 81 12 Ar 
a6 ABS & 
iR 21 SKPCHE 
88 Int 22 RN 
69 x1=8? 23 ACX 
18 CT0 01 24 EM 
11 51- Y ERROR 
23 END at BYTES 
ıv RYzANZ. STELLEN VOR KOMe 
a EINSCHL, VIRZ. -2 


56 Walter Kropf 


KXXIIX ?.2,9.2,9.9,9,9,9.2,2,9 9,.0,9.0.9 
ZNIKKIINAKKIKXKKIKKKIKAKKI NK IX 


268 DN + Tode 


Automatische E 
wiederaufladbarer 


kel-Kadmium-Akkumulatoren im HP=-L1 C. 


"BAT 
Vorbereitung: „ereLeL ern 


4.) Programm eingeben! 22 CLET 
(SIZE 000; TUT. REG.: 7) » a2 FIX O0 
aa " MIN.” 
2.) Start mit: XEQ/ALPHA/BAT/ALPHA as we 
.® Z 
Anzeige: %&. «02 ss EB, 
1 @E»LBL a2 
2 Dauer as FSE 
bg etwa ıa FS? 49 
i i1 QoFF 
. 60 Sek. 12 ISC x 
38 ı2 GTO a2 
u 14 RDN 
1 MIN. Hierbei prüfen, ob ıs 1 
. Wechsel der Minuten- 16 + 
. anzeige genau nach 17 cıa 
. 60 Sekunden erfolgt, 18 ARLCL x 
2 MIN. sonst Zeile 07 im 19 ARCL Y 
. Programm entsprechend ze ANnN 
usw. | ändern! z1 sto et 
22 END 


Benutzung: 


3.) Zu prüfenden Akkumulator einsetzen, debel Rechner ohne Kartenleser und 
Drucker betreiben! 


4.) Programm starten (XEQ BAT). Rechner läuft, zeigt Betriebsdauer In 
Minuten en und schaltet sich bei Erschöpfung der Batterie automatisch 
ab. Die erreichte Betriebsdauer bleibt im ALPHA-Register gespeichert. 


5.) Nachdem der Rechner sich selbet ausgeschaltet hat: 
Einwandfreie Batterie einsetzen, Rechner einschalten, ALPHA-Modus 
zeigt erreichte Betriebsdauer an, 


Das Wiedereinschalten mit der entladenen Batterie kenn zum Verlust 
der Anzeige und des Programms führen, besondere dann, wenn der Rechner 
nach der automatischen Abschaltung sehr lange auf seinen Benutzer 


Werner Stroinski 


Wolfgang Butz 
18. 12. 80 


Schinnrainstraße 3A 
7500 Karlsruhe 1 
Alternative zu HP-4IC RECHARGABLE BATTERY PAC 82120A I Stück 112,-- DM 
Zum wechseln------- 2 Stück 224,-- DM 
Aufladbare VARTA Lady Batterien 8 Stück a. 12,-- DM = 96,-- DM 
Aufnahmebox-Lady (feinelectric) 4 Stück a. 5,-- DM = 20,-- DM 
Ladegerät für Mignon Batterien a. 29,-- DM = 29,-- DM 
en 
Kauft man statt VARTA/SONY die auch nicht schlecht sein sollen!und hatt 
man schon ein Ladegerät für Mignon Batterien kann weiteres Geld gespart 


werden. Aufladbare Sony-Lady 8 Stück a. 7,-- DM = 56,-- DM 
Aufnahmebox-Lady 4 Stück a. 5,-- DM = 20,-- DM 
Mignon-Ladegerät ??? 29,-- _DM 

105,-- DM 


Preisbeispiel gekauft im Kaufhaus Karstadt. 
mit freundlichen Grüßen 


(0% 


UÜCHIER- ECKE 


Liebe Clubritzlieder! 


Mach Absprache mit Oliver haben “ir uns entschloßen, 
an üieser Stelle eire "Bücher-Ecke" einzurichten. Die 
sücher-.cke soil die Vorstellung, Kritik und ähliches 
er=tur zum Tnema "pro,r.mmierbare"Taschenrech- 
Ziei nıben. Dabei werden aber nicht nur Bücher 
: ‚2chner behandelt, sondern -wie e:wähnt- über 
.ischenreckhrer allgemein. Dies hat seinen Grund! 
5 .Ss „st es nüslich recht einfach eir Yrgm. für 
„ines anderen Yechner auf HP'g3 zu "übertragen", bzw. 
suter Dokumertation einiach auf die angegebenen 
n und l.etzoden zurückzugreifen. 
nd aber nicht die einzigen Gründe für die ein- 
einer Licher-ncke. In seiner nun ca. sechs- 
zriahrung cit ırgm. Taschenarechrern sind mir 
in Einsicht auf literatur- nun schon einige 
Dirie widerfahren, zum Teil positive, zum Teil nega- 
tive, die es rotwendig erscheinen liessen, soetwas 
einzurichten. >»s wäre hier zum Bcispiel möglcih, Mit- 
slisier von besonders guter Lite.atur bzw. dem Gegen- 
Teii in kenrtniss zu setzen und dadurch eventuelle 
"Senlzäufe" zumindest einzuschränken. Man denke hier 
euch _2] an den Freis dieser Literaturgattung, der 


von Lit 


ner zuN 


2 zur "Organisation" der Bücher-Ecie: 
ke soll xein Frivileg von Dliver oder 
err sind hiermit a l 1 e Clubnmit- 

fer, sich daran zu beteidi;en. Dies 

ne Artikel, Yritiken, Hinweise/erfahr- 
R 

a 


n.© nn Io 


x Iar mir Bicher leihweise zusenäet, 


n 
dlurzg zeinerseits ve.steht sich von 
i hiermit gar:.ntiert. 

r Eicher-Ecke zusa:menhänst bitte 


am 


Frark \ltensen 
Uräardstr. 9 
8365 kostzch III 


rteitungen" zu vermeiden, seien hier 
.füLrt, die nir 2. 2t. zur Verfügung 


H. Alt 
Angewandte Mathematik, Finanzmathematik Statistik 


Informatik für Upn-fechner 

Vieweg 

Allgemeine Elektrotechnik Nachrichtentechnik Impuls- 
technik für Upn-Rechner 

Vieweg 

Richard Eckert 

Die Frogrammierbaren von HP 

Oldenbourg 


Horst Kötting 
Iteration und Approximation mit Taschenrechnern 


Vogel-Verlag 

H. Weber/J. Grami 

Numerische Verfahren für programmierbare Taschen- 
rechner I 

BI Hochschultaschenbuch Bd. 803 


Bang Heinrich Gloistehn 
Programmieren von Taschenrechnern 1/2/3 


H. Schumny 
Taschenrechner+Mikrocomputer Jahrbuch 80/81 


Feter kahlig 
Mathematische Routinen der Physik, Chemie und Technik 


für AOS-Rechner 
Vieweg 


Für heute verbleibe ich freundlichst 
euer 


Frank Altensen 


P.S.: Ich wäre euch auch dankbar, wenn ihr mir eure 
Meinungen oder Vorschläge zur Bücher-Ecke 
schreiben würdet, ” 


Dreiecksechnungen 
(weiterentwickelt für 

HP-LAIC aus SD-D7A für HP-67) 
BleLBL -DA- Haupt-Label 


B3+LBL A 53+LBL B Ro ne 


as sro 9ı a speichern ne x speichern 
? N 
86 STO 82 b speichern 56 STO 83 speichern 
”?” RDN 5’ RDN 
oe STO 93 c speichern se STO 95 ß speichern 
R9 RDN 59 RCL 84 errechnen 
18 RDN Steck ordnen 68 XEQ 88 y speichern 
11» erb+c):i2 eo 8 61 STO 96 
ar 62 RCL 85 ce einA 
13 2 63 RCL 83 
14 7 €e4 P-R e conß 
15 STOo 87? speichern HI RT h_abepeichern 
16 xXt2 e6 STO 88 
1? LASTY 67 RCL 86 ein 
18 RCL 82 68 1 coa 
19 * 69 P-R a sin B 
Er 78 RDN Dac einy 
2ı RCL 93 ir E 
22 RCL 91 72 STO 92 speichern 
23 "3 RTt j : 
24 rn a=c coef+b cos). 
25 SORT 5 + ß Y 
26 ACOS ”6& STO 91 a speichern 
27 2 77 GTOo 281 
28 « ?8+LBL C Routine Ska 
29 STO 85 9 STO 86 ypeichern 
3 SsIn 38 RDN 
31 RCL 82 h_ bilden und 81 STO 94 
32 E 82 RDN 
33 STO 988 abspeichern 2: N : 
34 RCL 87? 
35 x12 85 RCL 84 A emwechnen 
3 LASTX 86 *XEQ@ 98 
37 RCL 83 87 RCL 83 Steck ordnen 
38 * 88 RCL 94 
39 - 89 GTO B 
48 RCL 82 98+LBL D 
41 7 a 91 STO 82 .|b speichern 
42 RCL @1 DD 92 RDN 
a3 r 93 STO 84 & speichern 
44 SORT = a. en 5 
45 ACOS u : c epeichern 
46 2 96 RCL 84 ? 
a7. 97 RCL 82 #2.c2-200-c0m 
48 STO a& Y speichern 98 P-R a +ce-2bc- come 
49 RCL 85 | 99 RCL 83 
<a xEo on a errechnen 100 . = 
1 STO 94 “sp _ 
s>2 cTo Ei speichern | 1e2 STO aı a speichern 
ı93 RCL 83 Stack ordnen 


184 RCL 87 
1925 RCL @i 
1926 GTO A 


Stroinski 
Juli 80 
aaa.) Anzeige- und 
12: RDN y speichern 159+LBL Br 
ı1Sı RCL 9 
110 = 82 b apeichern 152 RCL 01 ee 
153 * errechnen un 
ı12 STO 83 c speichern 154 2 
113 RCL 86 155 7 epeichern 
114 SIN 156 STOo 97 
113 REE 92 einßq einr—- 157 1.097 Schleife vor- 
116 * 158 STO a9 bereiten 
117 RCL 83 1S9+LBL 97 
113 RER 168 RCL IND 
128 STO 03 B_epeichern EN 
121 RCL 86 @ errechnen SUDRw . 
122 xEQ 88 A-apnleharn ee: 
123 STO 94 17 an 
124 RCL 05 Stack ordnen 165 PSE ! 
125 RCL 83 1E6 PSE 
Lsanb ces Beung 167 RCL ea Leerzeile nach 
127 xEQ B . 168 3 See 


128 RCL 83 2. Lösung 169 MOD 
129 RCL 82 möglich? 170 INT 


138 %<=Y? N 171 x=0? 

131 GTO 82 ß Z r-ß 172 ADV Een 

132 RCL 85 errechnen 173 ISG 98 

133 COS 174 GTO 93 Der Ausdruck 

134 CHS 175*LBL 82 bzw. die An 

135 ACOS 176 ADYV zeige erfolgt 

136 STO 85 17? RON in der Reihen- 

137 RCL 86 178 RDN folge: 

138 XxEQ@ 98 172 RTN s 

139 STO 94 188 STOP 5 

148 RCL 05 Stack ordnen 181 END E 

141. RCL 03 für 7. Lösung 

142 RCL 84 SIZE 889 

143 GTO B TOT. REG. 41 « 

144+LBL 88 Unterprogremm USER MODLS- ß 

1. ze für 3. Winkel A,B:C,D,E. r 

147 CHS DAUERANZEIGE EISEN“ 

148 ACOS ABRUFBRAR: (densch eventu- 

149 RTN FLAG 88 ell ae 2 LB- 

ar eung in der 

Register- Denen, gleichen Reine 


folge) 


inhalte:- j 
00 Schleifen- 
steuerung durch Betätigen der R/S-Taste jederzeit 


Der eutomatische Ablauf Jer Anzeige kenn 


019 a gestoppt und später (duch erneuten 

02 b Betätigen der R/S-Taste, wieder freige- 
03 c geben werden, 

Dh w Vorheriges Setzen des Flags O0 führt zu 
058 automatischem Stop bei jedem Wert. Abruf 
06 4 des nächsten Wertes wiederum durch die 
07 Fidche R/S-Taste. 


Ja Höhe N. 


Testbericht externe Programm- und Datenspeicher HP82104A WM EPB21534___ ___ er 


HP82104A - Mametkartenleser 


Klein und handlich ist er schon - der Kartenleser 82104A. Seit Anfang an gehört 
er mit zum Syetem 41. Er wird einfach auf den "Rücken" des HP-41c(v) aufgesetzt, 
wobei ein "Beinchen" in Port 4 hineinreicht und so die Verbindung zum Systembus 
herstellt. Dabei werden die Ports 1 und 2 verdeckt - sie können also "nur" für 
Module verwandt werden. Port 3 bleibt für eine weitere Peripherieeinheit frei- 
sei ee nun ein Drucker oder der Strichcodeleser- oder noch ein RAM/ROM. Damit 
ist es nicht möglich, Drucker und Strichceodeleser gleichzeitig am Rechner ange- 
schlossen zu haben. Sicherlich nicht erfreulich, aber baulich mun einmal unab- 
dingbar. Bleiben wir gleich einmal bei der Mechaniks Seit einen Jahr habe ich 
zwei Kartenleser aus gleicher Fertigungsreihe und Bestellung laufen (2011545049). 
Reklamationen gab es keine, doch traten einige "Besonderheiten" auf. Aus dem di- 
rekten Vergleich der beiden Testmodelle und verech. Gesprächen ließ sich unschwer 
erkennen, daß Kartenleser menr oder weniger Einzelprodukte sind. Das macht be- 
reits das Motorengeräusch deutlich: Der eine summt wie eine Mücke, der andere 
brummt wie eine dicke Humel im Sturzflug. Dennoch kommt nicht die Vermutung auf, 
es könnte darin eine kleine Motorsäge versteckt sein, wie es in einem Test des 
TI-59 formuliert wurde. Mechanisch darf man also schon einen Pluspunkt verteilen: 
leiee, handlich, formschön. Auch mit den Steckkontakten gab es keinerlei Schwie- 
rigkeiten und die Stromversorgung ist ebenfalls zufriedenstellend gelöst: Erst 
die eingeschobene Magnetkarte schaltet die Stromversorgung für den Motor ein.Mit 
grob gerundeten Verbrauchswerten von 150/200 mA für Lesen/Schreiben ist er zwar 
das durstigste Teil des Systems, das durch den Rechner versorgt wird, damit aber 
immer noch deutlich begnügsamer als der TI-59, der ein Vielfaches dessen braucht. 
Ernstzunehmende mechanische Beanstandungen gibt es beim fabrikneuen Gerät also 
keine und das - man sollte es nicht verschweigen - hat mit ca. 450,--IM ja auch 
seinen Preis. 

Kommen wir aber zum nächstem Testpunkt - der Haltbarkeit. Hier mit dem TI-59 zu 
vergleichen, wäre blanker Hohn - HP hat noch nie versucht, der berühnt bderüchtig- 
ten TI-Qualität nachzueifern. Um es vorwegzunehmen: Einen Garantiefall gab es 
nicht und die Geräte machten einen insgesamt durchaus befriedigengden Eindruck. 
Nennen wir das eine, vielbemitzte Gerät A und das andere B, so läßt sich folgen- 
des Resumee ziehen: Während A durchschnittlich etwa 20 Karten pro Tag verarbei- 
ter durfte, waren es bei B ca, 3. Der relativ hohe Wert bei A ist durch etwa 10 
bis 20 Karten alle 3 bis 4 Tage und in "Stoßzeiten" dann wiederum bis zu 4oo Karten 
in bis zu zweieinhalb Stunden bedingt. B wurde dagegen ziemlich gleichverteilt 
über alle Tage mit Karten gefüttert. Von den Reinigungskarten wurde sinnvoller 
Weise nur mäßiger Gebrauch gemacht, da diese jedesmal ein klein wenig von den 
Schreib-Lese-Kopf abhobeln, Wie sieht es nun heute aus ? A ist die o.g. Mücke; 

E die Iummel. Möcjte man mit B mehrere Karten beschreiben, so treten vereinzelt 
Schreibfenler auf - begleitet von einem leisen aber unüberhörbaren Quietschen. 

A hat entgegengesetzte Nacken: Fr iet in die Meldungen CHECKSUM ERROR .und MAL- 
FUNCTION verliebt, was scviel wie Lesefehler und/oder verdreckte Karte bedeutet. 
Die "Ausfaliguote” beträgt ca. 5 bis 10% der Karten, Abhilfe: Noch eirmal beschrei- 
ben cjer lesen - zeistens klappt es. Sonst hilft einfaches Abreiben mit einer 
sauberen Tuch - nötigenfalls vorher in reiner Alkohol getränkt (feucht, nicht 
triefend). Extrem selten komnt es vor, daß eine Karte nur gut zum wegwerfen ist. 
Gerade wo ich diese Zeilen schreibe, bekomme ich vom Walter Pieperhoff noch ei- 
nen Tip: Statt Reinigungskarte lieber ab und zu mal kräftig durch den Kartenschlitz 
blasen ( nicht sebern !!). Das wirkt praktisch genausögut, ist aber wesentlich 
schonender für den Kopf. Ich habe dies gleich ausprobiert: siehe da, es stimmt!!! 


Der Kartenleser läßt sich sehr vielseitig einsetzen. Neben div. Funktionen zur 
Prer. und Datenspeicherung bringt er alle Befehle des HP-67/97 mit. In Verbindung 
mit dem ebenfalls im Kartenleser enthaltenen Language-Compiler oder besser Transla- 
tor, der von HP-67/97 beschriebene Karten in den Maschinencode des 41c(v) übersetzt, 
werden 67/97 und 41 aufwärtskompatibel. Das Übersetzen wird notwendig, weil die 
Hexcode-Tabelle des 67/97 anders aufgebaut ist als die des 41 ( prisma 27/1980 ) 
Für die Aufzeichmingen auf Magnetkarte gibt es prinzipiell vier versch. Arten: 


„zest-Zeitraum für 8210 DL ll annmamuuSl222201 Oliver Rietschel______ Ohne Gesäh 
Programmkartenı Wird eine Magnetkarte im PRCM-Modus eingeschoben, so wird 
das gerade im RAM befindliche Programm bis zum nächsten END oder „END. 
hin aufgezeichnet. 

Datenkartenı Mithilfe der Befehle WDTA und WDTAX lassen sich alle oder 
ein Teil (definierbar-softwarenäßig) Datenregieter (numerisch bezeichne- 
ten, also 01,02,03,....) auf Magnetkarte speichern und mit RDTA wieder 
einlesen, Dae gezielte einlesen in bestimmte Datenregister ist mit RDTAX 
möglich. (X enthält aaa.eee ‚wobei aaa=Anfangs- und eee=Endadresse) 
Statuekartenı Mit WSTS lassen sich die 16 Statusregieter (siehe Bericht 
Rechnerorganieation) aufzeichnen. Außerdem werden alle Tastenbelegungen 
abgespeichert. 
Speicherauszugskarten:s Auf Speicherauszugskarten sind alle RAM-Daten des 
Rechners geschrieben. Mit WALL werden die Daten aufgezeichnet, die bei 
Programn-,Daten- und Statuskarten zusammen abgespeichert werden. Nach 
MEMORY-LOST (Master Clear) und Einlesen eines WALL-Kartensatzes befin- 
det sich der Rechner in exakt dem gleichen Zustand wie beim Beschreiben 
dieser Karten. 
Programn- ,‚Status- und Speicherauszugskarten kann man jederzeit im Normal- 
Modus einlesen. Durch Abschneiden der Ecken einer Karte kann man die Kar- 
ten vor unbeabsichtigtem Löschen oder Überschreiben schützen. Mit SF 14 
kann man diesen Eckenabschnitt jedoch in seiner Wirkung eliminieren. 
Interessante und nützliche Befehle sind RSUB ( Einlesen eines Unterpro- 
grammes ) und MRG ( Anhängen eines Programmes an ein anderes ), die viele 
Möglichkeiten eröffnen. Mit WPRY lassen sich Programme auf Magnetkarte 
schreiben. Diese Programme können dann zwar noch eingelesen und abgear- 
beitet werden, aber das Kopieren, Ansehen oder Auflisten iet nicht mehr 
möglich (fast nicht...) Darüber hinaus verfügt der Rechner noch über ein 
paar andere Befehle, wenn der Kartenleser angeschlossen ist, die dessen 
Bedienung erfreulich erleichtern und teils sehr nützlich sind. 
Zusammenfassend läßt sich also sagen, daß der Kartenleser sein Geld wert 
ist, wenngleich die Methode der Datenspeicherung auf Magnetkarten kei- 
neewegs mehr zur modernen Kategorie zählt. Von einem Kartenleser läßt 
sich aber nicht mehr erwarten - der Er82104 könnte der Höhepunkt der 
Kartenleser-Ära sein. Meine Bitte um Genehzigung des Abdrucks der Kurz- 
anleitung vom 2.2.81 wurde bisher von HP leider nicht beantwortet. 


HP82153A_- Barcode-Leser 


Ob nun Barcode- oder Strichcode-Leser, ob WAND oder Griffel: Gemeint ist 
immer der HP82153A. Er ist keine Alternative zum Kartenleser, sondern 
eine Ergänzung für andere Anwendungszwecke. Sein Nutzen ist stark unstrit- 
ten.Hauptargument: Man kann seine Strichcodes nicht selbst plotten, 
Wie war ! Zumal HP es noch nicht einmal geschafft hat, eine Anleitung, 
wie man sich Codes plotten kann, herauszubringen und auch auf meine Arn- 
frage, wann mit dem Buch zu rechnen sei, nicht antwortet, ist die vom 
dringliche Frage, was man mit dem Lesestift denn anfangen scll. Zwar ver- 
fügt der Lesestift über eine Reihe von Funkticnen und Befehlen, doch mag 
das alles nicht über den effektiv noch fehlenden Nutzen hinwegtäuschen, 
Solange man auf Großrechner angewiesen ist wird ein Nutzen auf breiter 
Front nicht möglich sein. Daher soll ein ausführlicher Testbericht erst 
dann verfaßt werden, wenn es möglich ist, auch mit dem 41c Strich- 
codes zu plotten. Ob es auf der Hannovermesse die Lösung des Problems 
gibt ? Wir werden sehen ! 


Wofür Stricheodes ? Abspeicherung großer Datenmengen, die garnicht ver- 

ändert oder korrigiert werden (z.B. viele lange Programme). Billiger als 

Magnetkarten, einfacher zu verbreiten, Ideal für Zeitschriften u.ä. 

Wofür Magnetkarten ? Täglicher Cebrauch, Entwurf,Entwicklung, Testen und 

Berbessern von Programmen. Abspeichern von sich ändernden Datenmengen 

ER) Alles, was mal so eben an abzuspeichernden Sachen 
ällt. 


Raimund Berg, Hagener Straße ?o0o, 5910 Kreuztal-Fichen 


Das Programm dient zur monatlichen Lohn- und Gehaltsabrechnung. Ts errechnet den 
Sruttolohn, die steuer- und sozialversicherungspflichtigen Neträge, die Abzüge 
einschließlich VWL und Sozialversicherung und bestimmt den Auszahlungsbetrag. 
Yit dem Programn kann in einfacher Weise die monatliche Lohn/Gehaltsabrechnune 


erstellt oder überprüft werden. 


Ausführung: Nach jeder Dateneingabe und jedem PROYPT Rechner mit R/S starten. 
Bei der Dateneingabe dürfen ? Stuckregister benutzt werden. Ist eine 
Eingabe nicht erforderlich, nur R/S drücken. 


Schritts 
1 
? 


3 


15 


Tasten: 
XEQ'LST 
R/S 
R/S 


n/5 


Anzeige: 
ST.KL? 
KINDER? 
RELIGION? 


ALTER? 


GEHALT? 


EGKLOHN? 
GSTN.=? 


STD.=. .. 


2-5I=? 


2-5 Te... 
STPFL=? 


SON «=? 


UT. AN/AG? 


v 
Eingaben: 


Steuerklasse 1 bis 6 eingeben 
Yinderanzehl laut Lohnsteuerkarte eingeben 


Religionsgemeinschaft laut Lohnsteuerkarte 
eingeben: FE = ev, Y = rk, Space = ohne 
1. Buchstabe = Steuerpflichtiger 
?. Buchstabe = Ehegatte 
Beispiel: EK = beide Ehegatten rk 

E_ = Steuerpflichtiger ev, Fheratte 

ohne Religionsgemeinschaft 

Rechner hält in ALPAA-Vodus an. 


Teebensalter eingeben. Ab 63 Jahre keine Arheits- 
losenversicherungsbeiträge, ah 6? Tahre.Alters- 
entlastungsbetrag 


Rei Angestellten monatliches Frundgehalt ein- 
geben. Weiter bei Schritt 15. 
Wenn Arbeiter, weiter bei Schritt 6. 


Basisstundenlohn eingeben 


Gesamte Arbeitsstunden einschl. Überstunden 
eingeben 


3etrag der Fesantstunden 


zusätzliche Stunden mit Zuschlag eingeben 
(z. >, Überstunden, Nachtstunden, Sonntars- 
stunden, Stunden mit Schmutzzulage usw. ) 
Hier wird nur die zusätzliche Vergütung be- 
rechnet. Der "rundlohn ist bei Schritt 7 mit 


berücksichtigt worden.Ohne Eiumsir weiter ver AT. 
Zulage in 7, des Ecklohns. Wenn keine Fingabe, 
weiter bei Schritt 15. 


Netrag der 7ulage pro Stunde 
Retrag der ?7ulage resamt 


T7ulage Steuerpflichtig? (Nacht-, Sonntags-, 
Teiertags-, usw.-zulagen sind steuer- und 
sozialversicherungsfrei.) Wenn ja, 'T eingeben, 
Rechner hält im AIPFA-Modus an. 


Zulage sozialversicherungspflichtig? Wenn ja, 
'T eingeben, Rechner hält im ALPHA-Modus an. 
Rechner geht nach Schritt 9. 


Vermögenswirksame Teistungen: Anteil Arheit- 
nehmer, YN"ERA, Anteil Arbeitgeber. 

Ist ein Anteil gleich Null, so muß diese mit 
eingeben werden. 


16 


17 


18 


19 
20 


21 
22 
23 
24 
25 
26 
27 


26 
29 
30 
31 


3? 
33 
34 


55 
36 


37 


us wwise 


R/S 


R/S 


R/S 


NaCl 


GRATI.? 


SONSTITES? 


STPFL=? 


SCaAV . =? 


FREIBETRAG? 


STPFI=... 
SOV.zm... 
BRUTTO=, .. 
LST=... 

E KST=... 
K KST=... 


G=... 


oder 


ee. 


ABAUEGE=? 


ANYYIITGE=. .. 
NETTO=. 0% 


WRS.K=181,50 


SPARZUL. “=o.0. 
ERSTATTUNG ? 


AUSZAHTEN=... 


nılimialells 


Gef. Weihnachtsgrafifikation eingeben. Bei 
Dateneingabe wird 600,- NM Steuerfreibetrag und 
bis zu 100,- NM Sozialversicherungsfreibetrag 
berechnet. 


Sonstige Bezüge, die zum Rruttolohn gehören, 
eingeben. (2. NR. zusätzliches Urlaubszeld, 
Lohnfortzahlung, usw.) Rechner fragt anschließend, 
ob der Netrag sozial- bzw. steuerpflichtir ist. 
Ist der Netrag nur teilweise sozialversicherungs- 
oder steuerpflichtig, müssen die Teilbeträge ge- 
trennt eingegeben werden. 

Wenn keine Ringabe, weiter bei Schritt ?o. 


Betrag steuerpflichtig? Wenn ja, 'T eingeben, 
Rechner hält im ATPHA-Yodus an. 


Betrag sozialversicherungspflichtig”? "enn ja, 
'!J eingeben, Rechner hält im ALPHA-Modus an. 
Weiter bei Schritt 17. 


Steyerfreibetrag laut Lohnsteuerkarte eingeben. 
(Nicht den Weihnachtsfreibetrag, Altersentlastung- 
betrag, steuerfreie Bezüge) 


steuerpflichtiger Betrag 
sozialversicherungspflichtiger Betrag 
Bruttolohn bzw. -gehalt 


Lohnsteuerbetrag 
Wenn ev. Yirchensteuerpflicht, erfolgt Anzeige. 
Wenn rk. Kirchensteuerpflicht, erfolst Anzeige. 


Krankenversicherungarbeitnehmeranteil. Das 
Programm berücksichtigt bei den Sozialversiche- 
rungen die Beitragsbenessansgrenze sowie die 
Geringverdienergrenze. Ah der Reitragsbemessens- 
erenze sind Angestellte beitragsfrei. 


Arbeitnehmeranteil Rentenversicherung Arbeiter 
" " Angestellte 


Arbeitnehmeranteil Arbeitslosenversicherung. Ab 
63 Ihre beitragsfrei. 


WI] -Resamtabzug 


Abzüge für Abschlagszahlungen, Lohnaufrechnung, 
usw, 


Gesamtabzüge 
Nettolohn 


Arbeitgeberanteil der Krankenversicherung für 
freiwillig versicherte Angestellte mit einem 
Gehalt über der Neitragsbemessensgrenze. 


Sparzulage für VWL-Reträge 


Srstattungen fir Fahrgelder, Auslagen usw. 
eingeben 


Auszahlungsbetrag 


Abzüge vom Bruttolohn: Schritte ?4,75,76,77,78,79,30,51 


Hinzurechnungen: 


Schritte 34,35,36 


Das Programm überprüft nicht alle Daten vollständig auf Richtigkeit. Somit kann 
bei falscher Eingabe u. U. eine fehlerhafte Berechnung erfolgen. zeigt das Pro- 
gramm DATA ERROR an, empfiehlt se sich, mit XEG'LST neu zu beginnen. 


Das Programm berücksichtigt VWL bis 52 DM/Yonat. Der darüber gehende Betrag erhält 
keine Sparzulage und muß im Rahmen der Abzüge (Schritt 31) eingegeben werden. 


Das Programm behandelt jeden Angestellten mit einem Bruttogehalt über der Beitrags- 
bemessensgrenze als freiwillig krankenversichert. Ist dies nicht der Fall, so 
müssen die 181,50 DM Arbeitgeberanteil an der Krankenversicherung nicht hinzüge- 
rechnet werden und 181,50 DM Arbeitnehmeranteil dem Nettolohn abgezogen werden. 

Der Beitrag von 181,50 DM gilt natürlich nur bei einem Beitragssatz von 11,0 % 

bzw. 5,5 % für jeweils Arbeitgeber und Arbeitnehner. 


Die Erstattungs- und Abzugsbeträge müssen jeweils in einer Summe eingegeben werden. 
Das Programm muß ggf. den jeweiligen Erfordernissen angepaßt werden, da die Lohn- 


abrechnung ziemlich umfangreich sein kann und däe Konstanten sich recht schnell 
ändern können. Das abgedruckte Programm benutzt folgende einprogrammierte Werte: 


Zeile: Bemerkung: 

146 Höchstbetrag der zulagefähigen \VWL 

172 Altersentlastungsbetrag 250 DM/Monat höchstens 

193 Vorsorgepauschale 9 % vom Jahresgehalt 

995 Vorsorgepauschale höchstens jedoch 9 % der Jahresrentenbeitragsbenessens- 
grenze 

202 Weihnachtsfreibetrag 600 DM pauschal 


204,205 Weihnachtsfreibetrag der Sozialversicherung bis zu 100 DM 
240-249 Rundung auf die jeweiligen Eingangsstufen des Monatstarif, ab 1981 4,50 DV- 


Stufen 

254 Summe der ‚Jahresfreibeträge Steuerklasse I und IV ohne Vorsorgepauschale 

260 zusätzlicher Jahresfreibetrag bei der Steuerklasse II, wenn Kinder zu 
berücksichtigen 

262 Grundjahresfreibeträge Steuerklasse II 

267 Summe der Jahresfreibeträge Steuerklasse III ohne Vorsorgepauschale 

293 Summe der Jahresfreibeträge Steuerklasse V 

295 Rundungsbetrag Steuerklasse VI 

329-338 Berechnung des Kinderfreibetrags bei der Kirchensteuer 

344 Kirchensteuersatz 8 %, in Berlin, Hessen, Niedersachsen, Nordrhein-Westfalen, 


Rheinland-Pfalz, Saarland und Schleswig-Holstein 9 %. 


349-351  Mindestbetrag der Kirchensteuer, nur in Baden-Württemberg, Hamburg, Nieder- 
sachsen, Schleswig-Holstein 0,60 DM, in Hessen 0,30 DM, in den anderen 
Ländern kein Mindestbetrag 


371 die Hälfte der Monatslohnsteuer-Eingangsstufen, ab 1981 2,25 DM 

374 10 % der Beitragsbemessensgrenze, 1981 440 DM. Achtung: dieser Betrag 
ändert sich jedes Jahr. 

389 Arbeitnehmeranteil an der Krankenversicherung, bei jeder Krankenkasse 
unterschiedlich, g ca. 5,5 % 

401 Arbeitnehmer anteil an der Rentenversicherung, ab 1981 9,25 % 

413 Arbeitnehneranteil an der Arbeitslosenversicherung, 1,5 % 

445 Höchstbetrag des Krankenversicherungsbeitrags: 


1981: 5,5 % von (75 % der Halt regebenensensgzdnae (4400,- DM)) 


Zeile; 
461 

463 

477 

482 

506, 509 


523-610 


nd 


Bemerkung: 

‚3 = 30 % Sparzulage bei VWL bis einschl. 2 Kinder. 

‚4 = 4o % Sparzulage bei VWL ab einschl .3 Kinder. 

Betrag zur Berechnung der Vorsorgepauschale, ab 1982 A680 DM 
Betrag zur Berechnung der Vorsorgepauschale 


Rundungsbetrag der Jahreslohnsteuer, ergibt die Eingangsstufen der Jahres- 
steuer 


Berechnung der Jahressteuer nach $& 32a ESTG 


Abänderung des Programms für 1980, 1981, 1982 (abgedruckt 1981) 


Zeile: 
195 


240 


242 
243 


245 
246 
247 


254 
260 
262 
267 
295 
371 
374 


445 


477 
505-510 


529 
533 
536 
542 


1980: 1981: 1982: 

4536 4752 9 % der Jahresbeitragsbemessens- 
grenze 

I) 3 3 

„4 4,5 4,5 

x E / 

‚4 4,5 4,5 

/ x x 

1,99 1,49 1,49 

1794 1314 1314 

2160 2136 3348 

2634 2178 2178 

2544 1584 1584 

24 18 18 

1,25 2,25 2,25 

420 440 10 % der Monatsbeitragsbemessens- 
grenze 

173,25 181,5 Höchstbeitrag zur Yrankenver- 
sicherung bei 5,5 % 

4200 4200 4680 

LBL 18 LBL 18 LBL 18 

4863 54 54 

XOY 

xcy? INT INT 

BF 07 54 54 

60 x x 

FS?C 07 RTN RTN 

'XEQ 17 

LASTX 

X" Y 

INT 

x 

RTN 

4,8 6 6 

1,6 1,8 1,8 

3,2 4,2 4,2 


16019 1863 18E3 


Zeile: 1980: 1981: 1982: 


547 10,86 3,05 3,05 
549 154,42 73,76 73,76 
553 925 695 695 
561 2708 3034 3034 
566 130019 13E4 13E4 
571 ’ 1 ‚og ‚og 
573 6,07 5,45 5,45 
577 109,95 88,13 88,13 
581 4800 5040 5040 
585 15298 20018 20018 
595 13664 14837 14837 
598 3719 4213 4213 
607 812 926 926 
Bedeutung der Flags, wenn sie gestzt sind: 
Foos Angestellter PF15: rk. Kirchensteuerpflicht 
Fol: Steuerklasse I F16: ev. Kirchensteuerpflicht 
Fo2: " II F17: rk. und ev. Kirchensteuerpflicht 
Fo3s " III F18: keine Kirchensteuerpflicht 
Fo4: " IV F19: Altersentlastungsbetrag berücksichtigen 
Fo5: " V F20: keine Arbeitslosenversicherung 
Fo6: " vI F22: benutzt 
F07: benutzt F27: gesetzt 
Foß; " F29:; " 
Datenspeicher: 
Roos Bruttolohn Ro6: benutzt 
Roi: Ecklohn Ro7s " 
Ro2: Steuerpflichtiger Betrag Ro8: " 
Ro3s Sozialversicherungspflich- Ro9: Anzahl Kinder 

tiger Betrag Rio: Steuerklasse, benutzt 
Ro4: \WL 
Status: 


SIZE o11, FIX 2, SF 27, CF 28, SF 29, Register: 179 = 2 Memory Module, 


Das Programm wurde anhand der "Lohnsteusrtabelle 1980", "Sozialversicherungs- 
Tabellen" vom Fachverlag Schäffer GmbH & Co, Stuttgart, und dem ESTG i.d.F.v. 
21.06.1979 und i.d.F.v. 25.06.1980 erstellt. Der Verfasser übernimmt keine 
Garantie für die Richtigkeit des Programms und lehnt jede Haftung, die bei Be- 
nutzung des Programns entsteht, ab. Das Programm darf außerhalb des Bereichs 
des HP-Anwender-Club Cliver Rietschel nur mit Zustimmung des Verfassers ver- 
breitet werden. 


Raimund Berg, Hagener Straße ?00, 5910 Kreuztal-Fichen 


351 RDN 
467 PROMPT 
411 PRONMPT | 468 + 


353 CL* i 
354 FS? 17 ! 412 CLX 469 "ERSTATT 
355 xXEQ 17 413 1,5 UNG ?” 
356 XEQ 22 414 FS?C 087 478 PROMPT 
357 -E KST=- 415 CLX 471 FS?C 22 
358 ARCL X 416 FS?C 20 472 + 
359 FS? 16 417 CLxX 473 "AUSZAHL 
368 PROMPT | 418 x EN=" 
361 -K KST=-- 419 RND 474 RARCL % 
362 ARCL X 428 ST+ 81 475 PROMPT 
363 FS? 15 421 =" 476*LEL 16 
364 PROMPT 422 ARCL X 477 42008 
365 ENTERt 423 PROMPT 478 FS? 087 
366 FS? 17 424 RCL 84 . 479 XEQ 17 
367 + 425 ST+ 81 4808 FC? 83 
368 ST+ 81 426 "VHL=* | 481 XEQ 17 
369 RCL 83 427? ARCL X j 482 6988 
3708 xea 14 428 PROMPT 483 FS?C 97 
371 2.25 429 “"RBZUEGE 484 XEQ 17 
372 - =?“ 485 FS? 84 
373 STO 83 438 ASTO 18 486 XEQ 17 
374 448 431 PROMPT 487 RCL 089 
375 x>Y? 432 FS?C 22 488 
376 SF 07 433 ST+ 91 489 + 
377 ı08 434 CLA 498 RCL 08 
378 435 ARCL 198 491 x%>Y? 
379 X<=Y? 436 "tFE=-” 492 R<>Y 
388 STO 83 437?” ARCL 681 493 RTN 
381 4 438 PROMPT 494+LBL 17 
382 7 439 RCL 88 495 2 
383 3 448 RCL 81 496 7 
394 * R 441 — 497 RTN 
385 FS? 088 442 "NETTO=*- 498+LBL 19 
386 XEQ 23 443 ARCL X 499 2 
387 x>Y? 444 PROMPT 588 7 
388 xX<>Y 445 181,5 581 *XE@ 28 
389 5,5 446 X<>Y 582 2 
391 CLX 448 ARCL Y 584 RTN 
392 FS? 08 449 FS? 88 585+LBL i8 
393 CLX 458 PROMPT 586 54 
394 x 451 FS?C 88 587 7 
395 RND 452 + 588 INT 
397 "G=- 454 2 5s1ıe * 
398 ARCL X 455 8%<Y? 511 RTN 
399 PROMPT 456 SF 87 512+LBL 22 
488 RCL 83 457 RDN 513 1 E2 
482 FS? 87 459 RCL 984 515 INT 
483 CLX 468 FC? 87 516 1 E2 
484 461 ,3 s17 7 
485 RHND 462 FS?C 087 S18 RTN 
486 ST+ 81 463 4 519+LBL 23 
Bar Ks 464 * 528 x%=Y? 
488 FS? 88 465 -SPARZUL 521 SF 88 
489 -L=- .=" 522 RTN 
466 ARCL x 523+LBL 28 


418 ARCL % 


524 
525 
526 
527 
528 
529 
538 
531 
532 
533 
534 
535 
536 
537 
538 
539 
548 
541 
542 
543 
544 
545 
546 
547 
548 
549 
558 
>51 

552 
553 
>54 
555 
556 
557 
558 
559 
568 

561 

562 
563 

364 


FC? 089 
KEQ 18 
sTo 85 
ı E4 

+ 

6 

R<>V 
“>Y? 
sF 987 
1-8 
STO 66 
4,2 
FS? 97 
sTo 66 
FS?C 87 
GTo 24 
18 E3 
RCL 85 
%<=7? 
GTO 26 
RCL 06 
3,05 

* 
73,76 


RCL 866 
»= 

695 

+ 


RCL 86 
* 

22808 

+ 

RCL 86 
L 

3834 

+ 

INT 
RTN 


565+LBL 24 


566 
567 
568 
569 
5708 
571 
572 
573 
574 
575 
576 
377 
578 
579 
588 
581 
582 


13 E4 
RCL 85 
x>r? 
GTO 25 
RCL 86 
‚89 

. 

5,45 


RCL 86 
. 
88,13 
+ 


RCL 86 
* 


5848 
+ 


583 
594 
585 
586 
587 
588 


RCL 86 


”* 
28818 
+ 

INT 
RTN 


589eLBL 25 


598 

591 

592 
593 
594 
5395 
596 


RCL 85 
»,56 

* 
14837 
INT 
RTN 


597*+LBL 26 


598 
599 
688 
681 
682 
683 


4213 
R<>Y 
x>Y? 
GTo 27 
8 

RTN 


684+LBL 27 


685 
686 
687 
688 
689 
618 


‚22 
u 


926 


INT 
END 


BieLBL "LST 


e2 
03 
84 
"85 
86 
07 
08 
89 
18 
11 


oe 

sTo d 
CLRG 

SF 29 
SF 27 
FIX 2 i 
-STPFL=-! 
ASTO 86 
"SOZV.="- 
ASTO 87 
6 
"ST.KL?” 
PROMPT 
INT 
x<=8? 
LOG 

x>Y? 
ASIN 

SF IND % 
STOo 18 
cr 22 
"KINDER? 


PROMPT 
FC?C 22 
8 

INT 

x<8? 

LOG 

STO 089 
sF 18 
“RELIGIO 


AON 

PROMPT 
AOFF 
ASTO 88 
68 
88 


ARCL 
ASTO 
ASHF 
ASTO Z 


61 
62 
63 
64 
65 
66 
67 
68 
69 


FS? 15 
-E- 
asTto Y 
RDN 
“=Y? 
GTO 87 
sSF 15 
sF 16 
sF 17 


78+LBL 87 


?1ı 
’2 
73 
v4 
75 
76 
77 
’8 
79 
89 
81 


99 
188 
181 
182 
183 
184 
185 
186 
1087 


CLX 
-ALTER?* 
PROMPT 

INT 
63 h 
x<v? 
SF 19 | 
x<=V? h 
SF 28 

cF 22 

“GEHALT? 


PROMPT 
FS? 22 
STO 88 
FS? 22 
SF 88 
FS?C 22 
GTO 88 
-ECKLOHN 


PROMPT 
x<8? 

LOG 

stTto 81 
cF 22 
"GSTD.=? 


ASTO 88 
PROMPT 
FC?C 22 
8 

x<0? 
LOG 

* 

sTo 88 
ca 
ARCL 088 
ARCL X 
PROMPT 


188+-LBL 89 


189 


-Z-STD=? 


ASTO 88 
PROMPT 
FC?c 22 
GTO 88 
RCL 61 
PROMPT 
FC?C 22 
GTO 88 
% 8 


"128 


121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 


RND 
.n=" 
ARCL % 
PROMPT 
RCL Z 
E 

RND 
cLA 
ARCL 88 
ARCL X 
PROMPT 
xEQ 13 
GTO 89 


133+LBL 88 


134 
AG?” 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 


-YVHL ANT 


PROMPT 
FC?C 22 
GTo 109 
x<o? 
LOG 

ST+ 88 


sTo 84 


151+LBL 18 


152 


153 
154 
155 


"-GRATI.? 


PROMPT 
FS?C 22 
xzEQ@ 11 


156+LBL 12 


157 


-SONSTIG 


ES?” 


158 
159 
168 
161 
162 
163 


PROMPT 
FS? 22 
xEQ 13 
FS?C 22 
GTo 12 
-FREIBET 


RAG?“ 


164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 


PROMPT 
FS?c 22 
82 
88 
82 
83 


176 ST- 82 
177 cCLAa 

178 ARCL 86 
179 ARCL 82 
188 PROMPT 
181 CLA 

182 ARCL 87 
183 ARCL 83 
184 PROMPT 
185 "BRUTTO= 
186 ARCL 88 
187 PROMPT 
188 RCL 82 
189 XEQ 14 
198 ı2 

191 * 

192 STO 87 
193 9 

194 % 

195 4752 
196 x>Y? 
197 8<>Y 
198 STO 88 
199 GTO IND 
18 

288*+LBL 11 
2681 ST+ 08 
282 688 

283 ST- 82 
204 6 

285 7 

2086 x>Y? 
287 x<>Y 
2088 ST- 83 
289 RTN 
Z218*LBL 13 
zi1 RDN 

212 RDN 

213 AON 

214 CLA 

215 ARCL 86 
216 "HH?" 
217 PROMPT 
218 ASTO X 
219 -J- 

228 ASTO Y 
221 X=Y? 
222 SF 07 
223 CLAa 

224 ARCL 97 
225 -H?- 
226 PROMPT 
227 ASTO x 
228 x%=Y? 
229 SF 883 
238 RDN 

231 RDN 

232 ST+ 88 


233 FC?C 87 


234 ST- 82 


235 FC?C ee 


236 ST- 03 
237 AOFF 
238 RTN 
239eLBL 14 
248 3 

241 + 

242 4,5 
243 7 

244 INT 
245 4,5 
246 «* 

247 1,49 
248 + 

249 RTN 
258*-LBL 81 
251 e 

252 STO 89 
253+LBL 84 
254 1314 
255 GTO 15 
256*LBL 82 
257 RCL 89 
258 x=0? 
259 SF 07 
268 2136 
261 ENTERt 
262 2178 
263 FS?C 97 
264 + 

265 GTO 15 
266+-LBL 83 
267 1584 
268*LBL 15 
269 STO 18 
278 XEQ 16 
271 SF 07 
272 xEQ 16 
273 RCL Z 
274 + 

275 XxEQ 18 
276 RCL 18 
277 + 

278 CHS 
279 RCL 87 
288 + 

281 FS? 83 
282 xEQ 19 
283 FC? 03 
284 xXEQa 28 
285 GTO 21 
286*LBL 85 
287°eLBL 686 
288 SF 89 
289 8 

298 STO 89 
291 RCL 87 


292 
293 
294 
295 
296 
297. 
298 
299 
388 
381 
382 
383 
384 
385 
386 
387 
388 
309 
310 
311 
3ı2 
313 
314 
315 


316+LBL 21 


317 
318 
319 
328 
321 

322 
323 
324 
325 
326 
327 
328 
329 
338 
331 

332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
358 


1,2 

Fi 

INT 

18 

r 
"LST=" 
ARCL *% 
PROMPT 
STOo 81 
RCL 89 
x=6? 
sF 87 
1 


150 
Br } 
28 


Im er Fela 11 
3400 Göttingen 


1. Allgemeines 

2. Polynominterpolation 

3. Rationale Interpolation 
4. Programmbeschreibungen 
5. Algorithmen 

6. HP 41 C - Progranne 

7. Beispiele 


1. Allgemeines 


Es seien paarweise verschiedene Punkte Ro Kasse Ry mit dazu- 
gehörigen Funktiongwerten Yor Jare-er In gegeben. Gesucht wird 
ein Polynom vom Grade n ( oder eine rationale Funktion) f(x) mit 
f(x.) = 5% für k=0,..,n. 
Das Programmpaket enthält verschiedene Unterprogramme zur Berech- 
nung des Polynons in unterschiedlichen Formen, sowie zur Ernmitt- 
lung der Funktionswerte und Ableitungswerte für beliebige x-Werte. 
Es werden im folgenden keine mathematischen Beweise angegeben, 
sondern nur die zum Verständnis unbedingt notwendigen Definitio- 
nen und Ergebnisse aufgeführt. Für weitergehende Informationen 
wird auf das Buch 
[1] Meinardus,G.; G.Merz: Praktische Mathematik I 

Mannheim, Wien, Zürich 1979 (Bibliographisches Institut) 
verwiesen. 


2. Polymominterpolation 


Für das in Abschnitt ? formulierte Interpolationsproblem gibt es 
ein eindeutig bestimmtes Polynom vom Grade na 


(1) p(x) = a, + ax + a,x° et ER P 


Zur Berechnung dieses Polynoms werden sogenannte dividierte Dif- 
ferenzen Ar verwendet, die rekursiv wie folgt definiert sind: 


oa? = 7 ( i=0,..,0) 
A w-A 
(2) n 4. -&; 
> ira 
= v.-x 
Lı seh 


Mit b, = Ar ‚„k=-o,..,n gilt dann für das Interpolationspolynon: 


(3) ax) = soggb,(2-x,) +..+ d.(x-x,)(x-xX,)..(X-X,_)- 


Mit einem modifizierten Hornerschema (vgl. [1) ) erhält man aus 
q(x) eine weitere Darstellung des Interpolationspolynons: 

(4) r,(x) -c,+ c1(x-5) + 0. + e„(x-5" RB 

Dabei ist f beliebig. Für | = O ergibt sich p(x). Man beachte, 
daß c, = r,($) und c, = r($). Mit dem normalen Hornerschema 
wird 2, (x) aus p(xX) berechnet. Die Unterprogramne zur Ermitt- 
lung von p(f), p'(f) Cbzw. al), q’($) ) verwenden verkürz- 
te Formen des vollständigen normalen ( bzw. modifizierten) Hor- 
nerschenas, 


3. Rationale Interpolation 
Für die rationale Interpolation wird der sogenannte Thielesche 
Kettenbruch verwendet, d.h. die rationale Interpolationsfunktion 
R(x) sieht wie folgt aus: 

R(x) = c_ + 


° wa 


(5) u Zu 


Zur Berechnung der ex werden die sog. inversen Differenzen er 
benutzt, die rekursiv wie folgt definiert sind: 


0 ; 
8; =Jj» Ä-0,..,n 


(6) Kara 5 ” -xKu 
an “_o“ 
®; ar 


Fells die inversen Differenzen + existieren und ungleich Null 
sind, gilt c, = sr . Falls das nicht gilt, ist die rationale 
Interpolation in dieser Form nicht möglich. 

Zur Berechnung von R(f) wird der Kettenbruch (5) von "unten 


nach oben" ausgewertet. 


4. Programmbeschreibungen 

In den verschiedenen Unterprogrannen werden die HP 41 C - Register 
ROO bis RO? benutzt. Die Koeffizienten {at,fb,} ... können ab 
Register ROß abgelegt werden. Die einzelnen Werte {._] nüssen 
fortlaufend gespeichert werden, z.B. x >ROB, x,7>RO9, x>R10.. 

Für die Rechnungen werden weiterhin die Anfangsadressen der Koef- 


. N: 
fizientenvektoren benötigt, so gibt z.B. A(x,) di. Jg von 
x, an, im obigen Beispiel also A(x,) = 8. Was in welchem Regi- 
ster gespeichert ist, zeigt die folgende Tabelle. Ein x zeigt 
dabei an, daß das entsprechende Register neben den bezeichneten 
ebenfalls. benutzt wird. Die Bedeutung von i,j,k,l ist aus den 


Beschreibungen der benutzten Algorithmen ersichtlich. 


Pr or ng 


e MH £ | Ab.) | Ale) DESEn 3 
Pe I en . PEPRIE PER) BERETIEBERRDE 
Id | £ n | A(a,) A(c,) x Ei k 
LESER BERNER ——— a ee PR EFEREFGELT" ee 

BN | g ı A(a,) i | 
' ge My,) | Ale,) I i j x 


ja lnetnen — = 


Eee i ed 1e3 i 3 


4.1 Unterprograms PM 
Verschiebt tiv} nach im) ‚ benötigt A(v.)» An), n. 


Wenn Av.) = Aw.) ist, wird nichts verschoben. 


4.2 Unterprogramm DD # 
Berechnet aus ix..ı {sy die dividierten Differenzen b,=A, - 


Benötigt ax), A(J,)» ACb)s n. 

4.3 Unterprogremm MH 
Modifiziertes Hornerschema. Berechnet aus Ixus pt in (3) 
die Werte fc,} in (#). Benötigt Alx,), Alb), Ko) nf - 


4.4 Unterprogramm _BM 
Berechnet q($) und g'(£) in (3) 


Benötigt ax), Alb)» n,f.» 


4.5 Unterprog.: NH 
Normales Hornerschema. Berechnet {c,} in (4) aus ie, } in (1). 
Benötigt A(a,), Alb), n,f. 

4.6 Unterprogramn _BN 
Berechnet p($) und p'($) aus (1). 
Benötigt A(a,), n,f. 

4.7 Unterprogramm ID 
Berechnet aus {x 1 r {sd die inversen Differenzen fe,} in (5). 
Benötigt A(x,)» A7,); Alc,)s nn. 


4.8 Unterprogramn BK 
Berechnet den Thieleschen Kettenbruch R(f) in (5). 


Benötigt A(X,); Alc,)» n,:. 


Es ist im allgemeinen möglich, daß die zu berechnenden Koeffizien- 
ten die alten Werte überschreiben, z.B. ist im Unterprogramm DD 
ACb,) = A(y,) möglich. Dies spart zwar Speicherplatz, nur sind 
dann die alten Werte natürlich nicht mehr ansprechbar,. 


5. Algorithnen 


Im folgenden werden für die im Abschnitt 4 beschriebenen Unterpro- 
eranme die benutzten Algorithmen angegeben. Die verwendete Notation 
dürfte allgemein verständlich sein, so bedeutet z.B. die Schreib- 
weise "for k = i(j)n ", daß entsprechend dem BASIC-Befehl 
"FOR K=-=1I TO N STE J " verfahren wird. Die Algorithmen 
orientieren sich stark an den HP 41 C-Möglichkeiten; für eine 
Übertragung in höhere Programmiersprachen kann man sie noch ver- 
einfachen. Die Schreibweise " PM(vsW,n) " bedeutet, daß die 
n+1 Werte 3 mit dem Unterprogramm PM nach {w,f verschoben 
werden. 

Die Unterprogramme BM und BN liefern die Werte qg(£), q'($) 

( bzw. p(£), p'(£f) ) in den Stackregistern X und Y. R(f) 
wird von BXK in X geliefert. 


BM und BN liefern neben den Funktionswerten des Interpolations- 
polynons auch die Werte der ersten Ableitung. Wem die angegebenen 
Unterprogramme zu langsam oder zu speicherplatzaufwendig sind, 
kann leicht an Hand der Algorithmenlistings diese so modifizie- 
zen, daß sie nur noch die Funktionswerte berechnen. 


= 


if A(v,) = Aw.) return y=0 
j=0 ” X= 
‘for i=0(1)n for i=n-1(-1)0 
ey Jeyf + x 
J=J+1 XaxXxaf + a, 
next i next i 
PM(b 0 ,+0) Jen; y=0; x=b,; J=j-1 
for ken(-1)1 for i=n-1(-1)0 
i=n; x=C,;; i=i-1 y=-(5-x,)°3 + x 
for j=k-1(-1)0 x=($-x,)°x + b; 
x=(6-%,)0% +c, j=J-1 
e,=X% i-i-" next i 
next )j 


next k 
[22 ] PM(Y,C0,7) 


for i=0(1)n-1 


PM(yo,byr2) j 
for k=1(1)n l=i; k=1+1 
j=i+1(1 
yadu.ı for j=i+1(?)n 
for i=k(1)n e4=(2;-x,I/le]-°.) 
x=(y-b,)/(x,_ 4%) k=k+1 
next j 
y-b;i b,=X 
next i ders! 
next k next i 
= 
x=C,; j=n-1 PM(a,sCg»2) 
for i=n-1(-1)0 for j=0()n 
x=(£-x,)/x + ©; x=0 
323-7 for k=n(-1)j 
next i x=0,+feX; C.=X 
next k 


next } 


6. HP 41 _C - Pro 


LBL 'PM 
RCL 02 RCL’03 X=Y? RIN 
RCL 03 + 1E3 / RCL 03 
+ BTO 05 RCL 02 .9 + 6T0 06 
LBL 01 

RCL IND 06 STO IND 05 
Ba 06 ISG 05 GTO 01 
-}END 


LBL 'DD 
XEQ 'PM RCL IND 03 : STO 00 
RCL 03 RCL 01 + 1E3 / 
RCL 03 + 1 + STO 07 
LBL 0% 
RCL 04 .9 + ST 06 
RCL 07 ST 05 + 
RCL 03 - Xo00 
LBL 02 
RCL IND 05 - RCL IND 06 
RCL IND 00 - / 
X<>IND 05 ISG 00 
ISG 06 ISG 05 GTO 02 
RCL IND 07 STO 00 
ISG 07 GTO 01 


‘MH 
‘PM RCL 013 STO 07 
04 1 - .1% + 
06 
02 
RCL 03 RCL 01 + STO 05 
RCL 07 ST+ 06 
RCL IND 05 DSE 05 
LBL 03 
RCL 00 RCL IND 06 - x 
RCL IND 05 + STO IND 05 
DSE 05 DSE 06 GTO 03 
DSE 07 60 02 
END 


LBL 
RCL 03 RCL 01 + STO 06 
RCL O4 1 - .1 % + RCL 01 


LBL 01 


DSE 06 DSE 05 GTO 01 
END 


+ STO 05 O0 RCL IND 06 DSE 06 


RCL 00 RCL IND 05 - STk2 
xoY ST+Z x RCL INDO6 + 


LBL 'NH 
XEQ 'PM RCL 03 RCL 01 + 
1E3 / RCLO3 + STO 06 
LBL 01 
RCL 03 RCL 013 + STO 07 
RCL 06 STO 05 RCL 00 
Tr tr cm 


LBL 02 
x RCL IND 07 + 
STO IND 07 DSE 07 
ISG 05 GTO 02 
ISG 06 GTO 01 
END 


LBL 'BN 
RCL03 1 - 91E3 / RCL 03 
RCL 013 + + STO 05 
O RCL IND 05 DSE 05 
LBL 01 
RCL 00 STx 2 XoOY ST+2 
AR RCL IND 05 + DSE 05 61% 01 


LBL 'ID 
XEQ 'PM RCL 04 XEQ O4 STO 05 
RCL 03 XEQ O4 STO 00 


LBL 01 
RCL 05 1.001 + STO C5 
RCL 00 LASTX + STO 07 
LBL 02 
RCL IND 05 RCL IND C6 - 
RCL IND 00 .RCL IND 07 - / 
STO IND 07 ISG 07 LBL 03 
ISG 06 GTO 02 
ISG 00 LBL 03 ISG 05 GTo 01 
RTN 
LBEL O4 STOY RCLO1 + 1 - 


'BK 
RCLO4 1 - .3 % + RCLOI + 
STO 05 RCL 03 RCL 01 + STO 06 
RCL IND 06 DSE 06 
LBL 01 
A/X RCL 00 RCL IND 05 - 
# RCL IND 06 + DSE 06 
DSE 05 GT 01 
END 


Bemerkungen: 1 steht für ENTER f 
x steht für Multiplikation 


..Beispiele 


Gegeben seien die folgenden x- und y-Werte: 


x -2_ -1 0 1 2 
y 81 16 1 (6) 1 


Men löse mit Polynominterpolation folgende Aufgaben: 


a. Bestimne q(x), d.h. tb, in (3), sowie qg(.5) und q'(.5) 
b. Bestimne p(x), d.h. {c,] für $=0, p(.5) und p'(.5) 
©. Bestimme p,(x), d.h. fc, j für f=1 


Lösungen: a. Es ist n=4, wähle A(x,)=10, A(y,)=15 und ACb,)=20. 
-2 STO 10 -1 SO 11 0 STO 12 1 STO 13 2 STO 14 

81 STO 15 16 STO 16 1 STO 17 0 STO 18 1 sSTOo 19 

4 STO 01 10 STO 04 15 STO 02 20 STO 03 

Die {b,} erhält man dann mit XEQ 'DD 

bo=81, b4=-65, d9=25, b2=-6, by=1 

.5 STO 00 XEQ 'BM ergibt : q(.5)=0.0625=1/16, q’(.5)=-.5=-1/2 
b. Die {c,] sollen die tb, \ überschreiben, es ist £=0. 
20 SO 02 OSTO 00 XEQ 'MH ergibt: 

Col, c4=-4, Ca=6, Cz=-H, Cy=1, d.h. für p(x) erhält man: 
p(x) =1- 4x + 6x“ - Wirt 

.5 STO 00 XEQ 'BN ergibt wieder p(.5)=-0.0625 und p’(.5)=-0.5 
c. Die neuen tc,}-Werte sollen wieder die alten überschreiben. 
1 ST0 00 XEQ 'NH ergibt pı(x) = (x-1)*. 


Ein zweites Beispiel soll die rationale Interpolation behandeln. 
Dazu seien die folgenden x- und y-Werte gegeben: 

x -2 -1 (6) 7 2 

y .2 16) 1 2 1.8 
Es soll der Thielesche Kettenbruch, d.h. die fc} in (5), berech- 
net werden, außerdem ist nach interpolierten y-Werten für die 
x-derte -1.5, -0.5, 0.5, 1.5 gefragt. 
Lösung: Es ist wieder n=4. Wähle Alx,)=8, A(y,)=14, Alc,)=20. 
-2 STO 08 -1STO 09 05T 10 15% 11 2 STO 12 


.2 STO 14 oO STo 15 157 16 2 Sm 17 1.8 STO 18 
4 STO 09 8 STO 04 14 STO 02 20 STO 03 


Mit XEQ 'ID erhält man jetzt die Koeffizienten fc, } 


.6 e .i 
c,= 0.2000 = 1/5\ Ru)e ir == = 
©]"-3.0000 = -5 t ı R x 
Cp= 1.3333 = 2/15 AT eis 
©3= 6.0000 = 6 , v3 


C4= 0.6667 = 2/3 


Berechnet man den Kettenbruch von "unten nach oben", so ergibt 
sich nach einigen Umformungen die interpolierende rationale Funk- 
tion R(x) 


Rx) m t2re 


1+ ı° 


Die geforderten interpolierten Werte werden wie folgt berechnet: 


-1.5 STO 00 XEQ 'BK R(-1.5) = 0.0769 
-0.5 STO 00 XEQ 'BK R(-0.5) = 0.2000 
0.5 STO 00 XEQ 'BK R( 0.5) = 1.8000 
1.5 STO 00 XKEQ 'BK RC 1.5) = 1.9231 


Zu den angegebenen Beispielen: Sie wurden so gewählt, daß die zu 
interpolierenden Funktionen von den entsprechenden Unterprogran- 
men reproduziert werden. Das ist didaktisch vielleicht nicht be- 
sonders geschickt, zeigt aber, daß die Unterprogramme richtig 
arbeiten. 


Anmerkungen 

1. Polynominterpolation ist immer möglich, falls die ix.) paar- 
weise verschieden sind. Wenn n groß ist, kann es aber sein, daß 
( besonders nahe der Endpunkte ) starke Oszillationen auftreten. 
Das kann durch Zeichnen der Funktion kontrolliert werden. Bei 
der rationalen Interpolation kann es vorkommen, daß Differenzen 
verschwinden und ID/BK mit 'DATA ERROR' (Division durch O0) ab- 
brechen. 

2. Selbstverständlich müssen nicht unbedingt alle Unterprogranme 
gleichzeitig im Speicher sein. Außerdem gibt es natürlich weitere 
Möglichkeiten Speicherplatz zu sparen: Benötigt man z.B. bei der 
rationalen Interpolation die y-Werte nicht weiter, so kann man 
A(y,) in RO3 speichemund löscht den Schritt "XEQ 'PM" in ID. 
Das Unterprogramm PM wird dann nicht benötigt, und die {c,| über- 
schreiben die {y,t. 


Niels Nöhren Norderstedt, 01.12.198 
kKilelort 16 

2000 Norderstedt 

F: (040) 524 28 88 


Herrn 

Oliver Rietschel 
Hewlett-Packard 
Anwender-Club 
Postfach 373 


2420 Eutin 


Liebe Clubfreunde! 


"ir leben in einer Zeit, in der ständig steigende Benzinpreise 
and andere Faktoren das Autofahren immer kostspieliger machen. 


Es kann nützlich sein, den Benzinverbrauch und die Kosten- 
entwicklung seines Wagens zu beobachten, um daraus Rückschlüsse 


auf das Fahrverhalten ziehen zu könmnen, 


Jas Programm "Car Control" ist bei dieser Beobachtung ein 
zuter Helfer. 


nach Eingabe aller notwendigen Fakten errechnet das Programm: 
|. Fahrleistung per Monat, per Jahr und total. 


?. Benzinverbrauch per 100 km zwischen dem letzten und dem 
jüngsten Tanken, per Monat, per Jahr und total. 


3. Betriebskosten je 100 km per Monat, per Jahr und total. 

I. Fixkosten je 100 km total und Gesamtkosten je 100 km total, 
3. Rücklagen je Monat für Werkstattkosten und Bereifung. 

3). Aktueller Restwert des Wagens nach einer Formel des ADAC. 
{onfiguration: 

jize: 034 

’rogrammschritte: 383 


Nlags: $, 1, 2, 22, 25, 28, 29. 
tegister: 18 bis 33. 


Ich benutze die angegebenen Register, damit die Daten nach 
Möglichkeit im Rechner gespeichert bleiben können. Die Regis- 
ter enthalten: 


18: Summe der Betriebskosten des laufenden Monats, 
19: Menge des getankten Benzins im laufenden Monat, 
20: letzter Kilometerstand, 

21: Kaufdatum des Wagens, 

22: letztes Eingabedatum, 

23: Kilometerstand beim letzten Tanken. 
24: Kilometerleistung im laufenden Monat. 

25: Zeitspanne in Jahren zwischen Kaufdatum und letztem 

Eingabedatum, 

26: Kilometerleistung seit Kaufdatum, 

27: Menge des getankten Benzins seit Kauf. 

28: Summe der Betriebskosten seit Kauf. 

29: Summe der Fixkosten seit Kauf, 

30: Summe der Betriebskosten des laufenden Jahres, 
31ı Kaufpreis des Wagens, 

32: Benzinmenge des laufenden Jahres, 

33: Kilometerleistung des laufenden Jahres, 


DIN DU I U IS 


Die Gesamtkosten ergeben sich aus den Betriebskosten, den 
Fixkosten und den buchmäßigen Kosten. Die buchmäfßigen Koster. 
setzen sich zusammen aus Grundabschreibung, Wertverlust und 
Zinsverlust des Anschaffungswertes, 


Laut dem ADAC kann man allgemein als Grundabschreibung 15% 
p.a. und als WBRtverlust 25 Promille per 1000 km rechnen, 

Für den Zinsverlust habe ich eine mögliche Verzinsung von 

6% p.a. des Anschaffungswertes angenommen, 


Das Programm wird mit "XEQ CC" gestartet, Die Anzeige 
"DD.MM.YYYY ?" fragt, ob das zuletzt eingegebene Datum noch 
gilt.X Wird ein neues Datum eingegeben (bitte unbedingt in der ‘ 
Form DD,MMYYYY), prüft der Rechner das Datum zunächst auf 
Legalität um dann die Zeitspanne in Jahren seit Kaufdatum 

zu berechnen und abzuspeichern, 


Die nächste Frage gilt dem Kilometerstand. Zum Beispiel 
"KM 71005 27". 


Werden weder ein neues Datum noch ein neuer Kilometerstand 
eingegeben, geht der Rechner zu Jeweils nächsten Programn- 
punkt über, 


Bei Eingabe eines neuen Kilometerstandes wird die Differenz 
zum letzten ermittelt und zur Fahrleistungssumme des laufen- 
den Monats, des laufenden Jahres und zur totalen Fahrleistunzs- 


summe addiert. 


Mit "AUSGABE ?" fragt der Rechner, ob eine Datwnausgabe er- 
wünscht ist. Hier und bei der Anzeige "EINGABEN ?" steht der 
Rechner im ALPHA-Modus. Der Rechner erwartet jetzt eine befahende 
oder verneinende Antwort. Verneint wird mit der Eingabe "N" 

und R/S. Bejaht wird mit "J", einer beliebigen Antwort oder 

nur mit R/S. 


Nehmen wir an, es sind Eingaben zu machen. Jetzt erscheint 
"LTR ?". Hier wird die Tankmenge eingetippt. 


Nach R/S wird der Durchschnittsverbrauch seit dem letzten 
Tanken errechnet. Anschließend wird die totale Gesamtmenge 
und der totale Durchschnitt angezeigt, 


Mit "LAK ?" wird nach leistungsabhängigen Kosten oder Betriebs- 
kosten gefragt. Nach der Eingabe werden die totale Summe 
und Durchschnitt angezeigt. 


"ZAK ?" steht für zeitabhängige Kosten oder Fixkosten. Auch 
hier der gleiche Ablauf, 


Hier ist der Programmteil Eingabe beendet. Jetzt folgt der 
Ausgabeteil, falls erwünscht. Sollte keine Ausgabe erfolgen, 
schaltet der Rechner sich jetzt ab, 


Bei der Ausgabe bedeuten: 


"LTR/M=" Benzinmenge im laufenden Monat. 


=" Durehschnitt auf 100 km, 

"LTR/J=" Benzinmenge im laufenden Jahr, 
"X=" Durchschnitt. 

"LAK/M=" Betriebskosten im laufenden Monat. 
"X=" Durchschnitt. 

"LAK/J=" Betriebskosten im laufenden Jahr. 
u Durchschnitt. 

"RW=" Restwert nach ADAC-Formel. 

"GK=" Gesamtkosten total seit Kauf. 

Xen Durchschnitt. 


"KM/X=" Yilometer im Durchschnitt per Jahr, 
"xm/J=" Kilometer bisher im laufenden Jahr. 
"KM/M=" 2 " " " Monat. 
"YWR/M="? Rücklare für Werkstattkosten per laufenden Monat. 


Bei Ablauf eines Monats werden die Register für die Monats- 
summen auf Null gestellt. Gleiches gilt für die Register der 
Jahressummen bei Ablauf eines Jahres. 


Bei Anschluss eines Kartenlesers kann man über £PLBL G" die 
Daten auf Magnetkarte schreiben und über "LBL H" von Magnet- 
karte einlesen, 


Da ich noch keinen Drucker besitze, habe ich das Programm 
natürlich noch nicht für Drucker ausgelegt. 


Bei der erstmaligen Benutzung des Programms ist es natürlich 
wichtig, alle Grunddaten von Hand abzuspeichern, 


Das Kaufdatum nach R 21. Den Kaufpreis nach R 31. Die bisherige 
Kilometerleistung nach R 20 und R 26. Den Kilometerstand vom 
letzten Tanken nach R 23. Die bisherige Tankmenge nach R 27. 


Die bisherigen Betriebskosten nach R 28, Die bisherigen Fix- 
kosten nach R 29, 


Beim Kauf eines neuen Autos sind ja nur 3 Grunddaten abzu- 
speichern. Das Kaufdatum, den Kaufpreis und der Kilometerstand 
bei Übernahme, 


Ich hoffe, daß jemand dieses Programm gebrauchen kann und 
gute Programmverbesserungen würde ich gerne übernehmen. 


Happy Programming 


Euer 


Hah 


Niels 


'Programmlisting 1, 


Car Control, by Niels Nöhren, ir 
programmlisting 9, Car Control 


001 LBL CC 049 LBL 93 095 ST+ 18 
002 SF 28 050 " AUSGABE .?" 096 ST+ 28 28h x#£Y? 332 x 
003 SF 29 051 XEQ di 097 RCL 28 285 CF ga 333 x()r 
004 RCL 22 052 SF.J1 098 "LAK=" 286 x(Y? 334 RDN 
005 XEQ Y 053 X=Y? 099 ARCL X 287 GO W 335 X()r 
006 FIX 054 cr 91 100 PROMPT 288 CLX 336 R/ 
007 " " 055 " EINGABEN ?" 101 RCL 26 289 1 337 RIN 
008 ARCL Y 056 XEQ 1 102 XEqQ 89 290 + 
009 ARCL X 057 X=Y? 291 RCL Z 338 LBL V 
010 CF 28 058 GTO 6 103 LBL 95 292 1 Eh 339 XEQY 
o11 CF 29 104 CF 22 293 / 340 1 
012 ARCL Z 059 LBL 1@ 105 ” ZAK ?" 294 + 341 + 
013 2)- 7" 060 CF 22 106 PROMPT 295 1 E2 342 ı/x 
o14 CF 22 061 " LTR ?" 107 FC? 22 296 / 343 ,7 
015 PROMPT 062 PROMPT 108 GTo 96 297 + 34h ST+ X 
016 FC? 22 063 FC? 22 109 cr gg 298 XEQ V 345 x() L 
017 cTo 2 064 GTO du 110 ST+ 29 299 STO #5 346 x(\y 
018 xEQ U 065 ST+ 32 111 RCL 29 300 RCL gu 347 CHS 
019 STO 25 066 ST+ 19 112 "ZAK=" 301 XEQV 348 XEQ O0 
020 X()Y 067 ST+ 27 113 ARCL X 302 ENTER x 349 38,6 
021 STO 22 068 xX=9? 114 PROMPT 303 x() 85 350 x 
022 RCL 21 069 GTO 97 115 RCL 26 304 X(=Y? 351 INT 
023 xEqQ V 070 1 E2 116 xEQ 99 305 FC? BB 352 + 
024 ST- 25 071 x 306 FS?cC Ad 353 x()rY 
025 265,25 072 RCL 29 117 LBL 6 307 RTN 3541 E2 
026 st/ 25 073 ENTER 118 Fs? 1 308 X(=Y? 355 / 
o7u x() 23 119 GTO dd 309 GTO W 356 INT 
027 LBL 92 075 - 120 FS? dd 310 x()Y 357 7 
028 RCL 22 076 / 121 GTO 12 311 + 358 ST- Y 
029 1 077" X=" 122 GTO G 312 CLST 359 CLX 
030 + 078 ARCL X 313 RCL gl 360 ‚75 
031 SF BY 079 PROMPT 123 LBL 9 314 LASTX 361 sm Y 
032 SF 93 124 RCL 19 315 RTN 362 N L 
033 xXEQ U 080 LBL $@7 125 "LTR/M=" 363 x()Y 
o3 " wu 081 RCL 27 126 ARCL X 316 LBL W 364 INT 
035 ARCL 29 082 "LTR=" 127 PROMPT 317 CLST 365 ST- Z 
036 ")- ?" 083 ARCL X 128 RCL 24 318 RCL gu 366 CLX 
037 FIX 2 084 PROMPT 129 xEqQ 99 319 FIX 6 367 36525 
038 SF 29 085 RCL 26 130 RCL 32 320 "DATUMSFEHLER" 368 x 
039 CF 22 086 XEQ #9 131 "LTR/J=" 321 PROMPT 369 INT 
040 PROMPT 132 ARCL X 370 + 
o41 FC? 22 087 LBL Jh 133 PROMPT 322 LBL Y 371 RTN 
0,2 CTO 088 CF 22 134 RCL 33 323 INT 
043 ENTER 089 " LAK ?" 135 XEq 99 324 ST- L 372 LBL O 
ouh xl) 24 090 PROMPT 136 RCL 18 325 LASTX 373 INT 
ou5 - 091 FC? 22 137 "TLAK/M=" 326 1 E2 374 ST+ T 
046 ST+ 33 092 GTo #5 138 ARCL X 327 x 375 X{)r 
oL7 ST+ 24 093 cF dp 139 PROMPT 328 INT 376 INT 
oh8 5T+ 26 094 ST+ IB 140 RCL 24 329 ST- L 377 cLX 
330 LASTX 378 12 
Yan möze rir bitte verzeihaa, wenn ich aus Platzgründen die yıı EB 379 STx Y 
aritse Seite auch noch auf dieses Blatt quetsche....Oliver 380 x L 
N 381 Zr 
382 - 
=> 383 END 


Programmlis? 


181 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
189 
184 
185 
186 
187 
188 
189 
190 


xEqQ #9 
RCL 38 
"LAK/J=" 
ARCL X 
PROMPT 
RCL 33 
xXEQ #9 

1 

RCL 26138 
18565 


ARCL X 
PROMPT 


1,86 
RCL 25 
fx 
RCL 31 
x 

RND 
RCL 31 


+ 
RCL 28 


+ 

RCL 29 
+ 

" GK= n 
ARCL X 
PROMPT 
RCL 26 
xEQ 99 
CF 29 
FIX 


191 
192 


193 / 


194 


'195 


196 
197 
198 
199 
200 
201 
202 
203 
20, 
205 
206 
207 


208 / 


209 
210 
2ı1 
212 
213 
214 
215 
216 
217 


218 
219 
220 
221 
222 
227 
224 
225 
226 
227 
228 
229 
230 
231 


232 
233 
23h 
235 


236 
237 


2, Car Control, by Nieis Nöhren. 


cr 91 
cF 92 


C__Programm: Stern - Dreieck Umrechnung 


eibung: Dieses Programm berechnet die Ohmverte von Widerständen, die 
von der Dreieckschaltung In die Sternschaltung ungeschaltet 
werden, und umgekehrt. 


er: 25 
er: STO ol bis STO 0? 


rung: 1. Lreieck- Stern Umrechn. Programm mit XEQ "DREI-ST" starten, 
dann Dreieck- „iderstände nach Alpha- Abfrage mit R/S ein- 
geben und Stern-#Widerst,. mit R/S in die Anzeige rufen. 
2. Stern- Dreieck Umrechn. Programm mit XEQ "STERN-D* starten, 
Ein- und Ausgaöe 8.0. 
R42 RA R: 
2 1 2 


20 R23 — 


"DREI-ST" 


re: Eingabe dov 
o ol Dreieck wider. 


E37” stande 


L 


Berech nung 
und Aus - 
gabe der 
Stern- Wıders 


LBL "STERN-D” 

047 "Bl?" Eingabe 5 
048 EROWPT stern - Widersk 
049 STO 04 

"RE?" 


} guechnung und 
057 BCL 04 Au qube de Dien- 
058 RCL 05 Pick - wi derslände 


Jörd wöyer 2833 Harpstedt, 17.1.8 . © 
Lange Str. 54 


Beschreibung: Dieses Programm addiert & Sinusförmige Schwingungen glei- 
cher Frequenz zu ihrer resultierenden Schwingung. 


beispiel 1. AL SIN(wt#A) + A2 SIN(WT+A)= A SIN(wT+ /) 
2. Al COS(wT+A) + A2 COS(w T+fg)= A COS(w If ) 
3. Al C0S(w I+fa) + A2 SIN(w T+ a )= A SLilw T+ £) 


Bei diesem Geispiel muß man zunächst die COS Schoinyung 
in eine Sinusschwingung umwandeln. Das macht man nach jol- 


gender zormel: sw 44) = SIllw 244,190) 


SIN(w T+f4) = COs(w T+4, -90) 
£s ergibt sich also folgende Gleichung: 


3. Al SIN(w T+4-909 + AB SIN(WT+ P)= A SIHWwWT+/) 


Register: 14 
Speicher: S[O oo bis STO 05 


Ausführung: Programm mit XEQ "ADDITH" starten, dann Amplitude i und 2 
und Winkel ] und Z mit R/S nach Alpha Abfrage eingeben, 
Ausgabe von der resultierenden Amplitude und dem resul: 
tiererden Nullphaserwinkel ebenfalls mit R/S. 


LBl "ADDITA" 
LBL "A" Eingabe pvo- 
"Al=?" gvamm 
PROMPT 
STO 00 
PAZ=?" 
PROUPT 
STO ol 
"Ll=?" 
PROMPT 
SIO 0& 
'q2=?” 037 LBL °C" Rorechnung 
PROMPT 038RCL 02 es wusulher- = 
STO_03 039 SIN enden Wulpha 
"B” Rerechnung |oso RCL 00 Senwnhels 
00 der resuflinerdal 041 x 
Amplitude odE RCL 03 
ol 043 SIN 
044 RCL ol 
045 2 
046 + 
047 RCL 
048 COS 
049 RCL et 
00 = 


Flags und der Drucker 


Funktion: 55 clear; 21 set 55 olear; 21 olear 
ACA x 
ACCHR 
ACCOL 
ACSPEC 
ACcX 

ADV 
BLDSPEC 
PRA 
PRAXIS 
PRBUF 
PRFLAGS 
PRXEYS 
PRPLOTP 
PRAREG 
PRRECGX 
FRZ 
PRSTK 
PAX 
REGPLOT 
SKPCHR 
SKPCOL 
STÄFLOT 


N NS 


— 


Nun Fu VD NN FF KEN FO KOKOK 


NL NN NN NTNINSNIINIININUNUNKRN 


Erprobt wurde diese Tabelle nur auf einem Drucker 
Serial "No. 20575%005%. Enderungen bei anderen Modellen 


sind also durchaus aöglich. 


Rolf Mach 
shorwaldsensir, 3 


6090 Rüsselshein 


Die in der Tabelle " Flags und der Drucker " verwendeten 


Synbole haben folgende Bedeutung: 


Die Funktion arbeitet normal. 

Die Funktion hat keine Wirkung. 

Aufgrund falscher Formatierung ist der Ausdruck unbrauchbar 
Im Buffer stehende Zeichen werden ausgedruckt. Nach einiger 
"Bedenkzeit” passiert schließlioh nichts. 

Der Ausdruck ist in einem gestauchtem Format. Siehe Bsp. 

Im Buffer stehende Zeichen werden ausgedruckt. Danach 

dle Funktion ACA/ACX ausgeführt. 

An den bisherigen Bufferinhalt werden nnn (Spaltenbreite 
des Plots; siehe Handbuch Seite 59 unten) leere Spalten 
angehängt. Bei Überlauf wird eine Zeile ausgedruckt. 


Beispiel zu 3: 


In 


Buffer stehende Zeichen werden ausgedruckt, dann wird er 


mit den betreffenden Zahlen und Zeichen vollgeschrieben. 


rAB= 3,1416 


Roil= 3,va»0 
Ro2= 28,588 Normal, groB 
8 


PRO3= "+REGI* 
Ra4= -523,22 


RBES= -9,09923 
RO6= 4,9999 


R 3,1416R 3, 
aandorR 22,508 
OP+REGZ+R-52 
3,2224PR-8,900 

ZZR 4,0880 


Gestaucht, groß 


R99= 3,1416 
PAl=z 3,6R08 
PA2= 28.599 Normal, klein 


RAI= "aDELje” 
pa4= -527,2224 
paS= -9,0923 
Dak= 4,900 


R 3,14166 3,04900 23,599 


APsREG3«P-523,2224n-9,08 Gestaucht, klein 
270 4,0909 


Rüdiger Schultz ‚23. februar 118] 
Villa Viktoria 
CH-5402-MOERSCHWIL 
Schweiz 


Hallo CJubmitglieder 

5 

Seit etwa zwei Monaten bin ich stolzer Besitzer eines HP 4IC 

und zwei RAM's. kartenles er und Barcodeleser sind bestellt. 

mein Beruf:futtermüller.Jahrgang:1962.Hobbies:Astronpmie ‚Digital- 
technik. 


Aber jetzt will ich cie beigelegten drei Listings ein wenig 
erleutern. 

bas programm: FLAG? 

dieses Prcgramm zeigt des zustand sämtlicher 55flags grösser 
als ODan. 

will man nur die gesetzten Flags zur Anzeige bringen,so kann 
man nach Line 88 II einen GTD OI-Befehl einfügen. für das 
Anzeigen der geläöschten Flags ersetzt man einfach den GTO 0D2- 
Befeh] in Line II durch einen GTO 0OI_Befehel. 

Line 25-27 können wecgelassen werden,wenn in Line 08 för 

6TO Ca ein CiOr-Sefen]l geschrieben wird.Sie sind mir presön- 
lich jedoch angenenhn. 

damit der Alpha-Text bei FLAÄG.L: CLEAR nicht zu lang wird, 
scllie dass Bezimalounkt-Flag gelöscht sein,das ist aber für 
cas Funktionieren des "rogrammes richt unbedingt erforderlich. 
Die Idee zu dieser Routine kam mir, als ich die SIZE-Routine 
von R.Berg, Kreuztal/siehe prisma 1/4-80) ausprobierte. 


Das Frogramm SI-KEX 


Eigentlich braucht es keinen Kommentar zu dieser kleinen 
Routine.Der Grundgedanke war, die zehn normalen Töne des Alers 
mit jeweils nur einer einziLen Taste abrufen zu können(sonst 
mindestens zwei Tasten.; 

Auf diese Art Kann man bescheidene Kompositionen einfach zu- 
wege bringen. 


Das programm Mr.TRIX 


Das ist bereits ein etwas spezielleres Progamm.£: geht darum, 
an eiver Ringmatritze(das ist ein verschleissteil von Pellet- 
pressen in der Futtermittelindustrie) die Gesamtoberfläche, 

die Gesamtfläche a!ler Eohrlächer auf dieser Oberfläche und 

das Verhältnis der beiden Flächen zueinander (Gesammtoberfläche 
entsaricht 100%,Zu errechnen. 

Sie Register DI bis C5 werden für die Beschreibung der Matritze 
verwendet, die Fe-ister C&E bis 08 zur Ergebnisspeicherung. 

Die Routise ist auf Fomfort ausgelegt,sie liese sich leicht ver- 
kürzen.Es ist ein spez&elles Anwenderprogramm für den Maschi- 
nenbau in der Futtermittelindustrie. 

Vieleicht kann der eine oder andere eines dieser drei Frog- 
ramme verwerten. 

In diesem Sinne 


HAPPY PROGRAMMING 


04 bl FLAG? 


fix “0 
L0.(0'55061 
sto LR+ 
05 ıcı 01 
isg IL 
gto 03 
gto 04 
09101 03 
fs’ind L 
gto 02 
FLAG, 
arcl L 
r: CLEAN 
aview 
pse 
gto DI 
A$g101 02 
FLAG. 
arcl L 
r+ SET 
aview 
pse 
gto 01 
a5lbl 04 
fix 5 
off 
agend 


041601 5I-KEY 
OR 1b1CCI 
TONE? 
avieuw 
Dse 
sto L 
tone ind L 
gto Ci 
end 


cla 7 
„rel 68 
Fi. 


aview 


pse 
pse 
fix 5 
off 

64 end 


Agıbl Cl 


lbl MATRIX 
fix 0 
DURCH: = 
prompt 

sto 0] 
GEL.BREITE= 
prompt 

sto 02 
LOCH/REIHE = 
prompt 

sto 03 
REIHEN= 
prompt 

sto 04 
LÜCHRAL, = 
prompt 

sto 05 


FROGRAMMG MATRIX 
User instruktions 


prgm. eingeben 
" starten Xeg MATRIX 
variablen eingeben (nach je- 
der v. R/S drücken 


Registerplan 

00 

DI Matritzeninnendurchmesser 
02 gelochte Breite 

03 Lochzahl pro Reihe 

D4 Anzahl Reihen 

05 Lochradius 

06 gesamte Oberfläche 

07 Mt Lochfläche 

08 Lochfläche % Oberfläche 


Radaer Schall 


rel 01 
rcl 02 
* 


pi 
n 
100 


sto [6 
TOT.FLAÄCHE= 
arcl 06 
‚cumT2 

aview 


TOT.LO.FLACHE= 
arcl 07 
=: 


sto (3 


g Andre in 
Magisches „uadrat Elliger mr ! alla 
zsz222z2u=22s=22222== 5300 Bonn? - Bad Godesberg 


HP-41C ohne Zrweiterungen Telefon 0228/323255 
Size: 017 (7 verwendete Speicher) 
Assignments (User): MAGU 


Ein "magisches Quagrat" entsteht, wenn man in einem n-n-wuadrat alle 
Zahlen von 1 bis n“ so anordnen kann, daß die Summe der Zahlen in je- 
der Zeile, Spalte und Diagonale gleich ist. Die Aufgabe der Berech- 
nung dieser Gebilde ist eines der ältesten (die erste Lösung findet 
sich schon 2000 v. Chr. in China) und faszinierendsten Gebiete der 
Unterhaltungsmathematik. So ziemlich alles, was in der Mathematik 
Rang und Namen hat, hat sich mit diesem Thema befaßt; viele dicke 
wälzer sind allein über dieses Thema geschrieben worden, so viele, 
daß eine Bibliographie dieser Werke selber schon wieder ein dickes 
Buch wäre. 


Die Methode, die dieses Programm verwendet, stammt aus dem 13/14. 
Jh. von einem Inder namens Moschopulos. Nach dem ersten Europäer, 
der darüber (im 19. Jh.) berichtete, nennt man sie auch manchmal 
die "de la Loubere"-Methode. Auf die genaue Angabr der Methode, Sso- 
wie auf deren Beweis möchte ich hier verzichten; sie mußte ohnehin 
völlig neugefadt und mathematisch aufgeknckt werden, um eine PTR- 
Implementierung sinnvoll zu machen. 


Mit hilfe dieser Methode kann der HP-4iC nun schnell und sicher 
ein magisches Quadrat beliebiger Seitenlänge errechnen - wenn die 
Seitenlänge ungerade ist! Bei geraden Seitenlängen versagt die 
Methode (genauso wie die Methoden für gerade wuadrate bei ungera- 
den versagen; allgemeine Methoden gibt's (noch?) nicht) leider, 
man braucht dafür ein anderes Programm. 


Die Handhabung des Programms ist relativ simpel: Start mit "MaGyu". 
Der Rechner fragt nach der "Größe" (= Seitenlänge) des wuadrates. 
Geben Sie die gewünschte Seitenlänge ein und starten Sie den Rech- 
ner wieder. Der Rechner zeigt nun kurz die Summe in jeder Zeile, 
spalte und Diagonale an (J(N):) und gibt dann das magische Quadrat 
spaltenweise aus. Vor Beginn jeder neuen Spalte ‘ertönt ein Piepser. 
Jedes Element steht für ca. 2 sek. in der Anzeige - wem das zu kurz 
ist, der ersetze die Schritte 49/5ß durch STOP. Nach der Ausgabe 
des letzten Zlements stoppt der Rechner nit BBEP und der Seitenlän- 
ge des „uadrates in der Anzeige. Durch Druck auf die ALPHA-Taste 
kann die „uadratsunme wiederum abgerufen werden. 


Literatur (für I:teressierte) kann ich gerne beschaffen bzw. (gegen 
Unkostenerstattung) kopieren. Ansonsten wünsche Ich viel Spaß mit 
dem Programm und bin 


HAPPY PROGRAMMING 


Magisches Quadrat 


HP-410 ohne Erweiterungen 
Andreas Meyer-Lindenberg (258), 12.01.81 


d1 LBL "MaGu" 42 1 2 
B2 CLA 43 STO 12 84 010 BA 
83 "GROESSE ?" 44 STO 16 85 BEEP 
B4 TONE 9 45 LBL 91 86 END 
#5 PROMPT 46 RCL 12 
D6 3+ 47 LBL 93 
87 LAST X 48 CLD 
p8 sTo 19 49 PSE 
a 4 PS 
2 sro 1 a 69 Andreas Meyer-Lindenberg 
ee 52 RCL 15 Elliger Höhe 31 
= 53 RCL 13 5300 Bonn 2 - Bad Godesberg 
ale 221 Telefon 0228/323255 
14 sT/ 16 55 + 
15 st/ 12 56 RtL 11 
16 5T+ 12 57 - 
177 58 Xf1? 
18 ST+ 12 59 GTO D4 
19 STO 15 69 RCL 16 
28 FRC 61 GTO 85 
21 X=ß? 62 LBL 84 
23 3T+ 15 64 - 
24 RCL 13 65 
25 ENTER? 66 Xfr? 
28 ST- 14 69 + 
29 + 78 RCL 99 
38 x 7ı + 
312 12 LBL 95 
32 73 DSB 11 
33 "z(NH):" 74 GTO #3 
34 ARCL X 752 
35 AVIEW 76 3T+12 
35 LBL $2 77 ST-14 
37 DONE 9 781 
38 DSE 15 79 ST+ 16 
48 STo ı5 81 ST+ 12 


die !br aus der letzten Prisma wiet, werde ich mich ab sofort 
um- die syr.thetische Frogramnierune in unserem Club künnern. 
Ich habe vor hier einiges stark zu verändern. Grund dafür 
ist das Buch "Synthetic Irogramaing on the HF-LIC" von Dr. 
w. C. dickes. £s ist erschienen bei 

inrken lublications 

PF.G. zox 967 

college rark, HÜb 20740 V.S5.A. 
zLn Freies von vs 11,50 incl. aller LInxkoster. Wer das Geld in 
var nit der bestellung verschickt, kann in L-t Wochen mit seinen 
Exemplar rechnen. ‘Ich erwälıne dies so ausführlich, weil ich das 
Buch zur Grunrdlare der Kubrik "Syrthetische Programmierung" 
mache. Jeder, d«r sich fur dieses Tlıema interessiert, sullie 
dan wıundwisser, das dieses hervorragende Buch veruittelt 
be sitzen. za ist »is (sogar von EP empfohlenes) Kachschlage- 
werk unerlasiich. Du werden von mir nur noch solche Artikel 
über synthetiscre /rogrammierure zum Abdruck gebracht, die 
über, das in c=2 uch gesetzte Level hinaus wirklich neue 
'nforzationer bieten. jieben dieser inhaltlichen Binschränkung, 
habe icr r.cch eine zur Forz von eingesandten Artikeln. Schreibt 
bitte alies, von gen Ihr piaubt, dak es für elle interessant 
ist, auf LIN Ab-zjätter rit einer Schreitnaschiene und laßt 
an allen 3eiter rerüg hand. Zitte keine beicseitig beschrifteten 
olätter. Ich ser« meine aufgabe nicht als C!lubsekretäarin und 
werde zeiträge, cıe diese ledinzurg richt erfüllen zwar dankbar 
zur rentnise nehsen, sie aber nicht en Gliver weiterleiten. 
ansonsten freue ic! mich über jede Fost von Fuch und bemühe 
sich (seltatadressierten und frankierten Rückunschlag nicht 
vergessen! ; evertuelle Fragen ausreichend zu beantworten. 


Keppy (syrthe“ic,; prorranzine! 


ko!Lf Yach (75) 
Thorwaldsenstr. 5 


60°%0 Rüsaeisheim 


Hex-Dez-Wandler Size 8 


Sven Beiersdorf (92) 


Als Alternative zu den Wandlern vom Typ wie in der Standard- 
Programmsammlung, die das Dezimalequivalent der einzelnen 
Hexdigits durch Vergleich ermitteln, bietet sich mit der 
"synthetischen" Methode die Möglichkeit der direkten Unwand- 
lung. Zudem wird kein weiterer Datenspeicher außer Stack und 


Alpha benötigt. 


Benutzung der beiden Routinen: 
LBL"Z" wandelt die bis zu achtstellige Hexzahl in Alpha ins 
Dezimalsystem um, löscht Alpha, zerstört den Stack, übergibt 
das Ergebnis im x-Register. Zeile 7:STR(127,8,2,2,9,2,2) 
al+LBL "HEX 


81+LBL "Z“ 


LBL"HEX" wandelt den 


o2 1 . “ 

83 CHS 65536er Rest der Zahl im 82 cıa 

04 6 FR » 7 . ® w, 83 4 

85*+LBL 18 X-Register in ans vier FE 

86 RCL od stellige Hexadezimalzahl 85 X<>Y 

OR ERSTER um, die in Alpha überge- ee, = 

03 8 ben wird. Der Stack wird 88 16 

89 KI>.N ".. 09 MOD 

18 ASTO d BeLlDseNd, 19 9 

11 CF 83 Zeile 14: 24@ (=F£&) NOP 11 - 

12 STO CL 12 xX>u? 

13 CLX ; 13 ISG x 

14 xX<>rY Bert 15 

15 <> d Was ist 12 in Hex? 15 39 

17 %=8? 75 17 1 E2 

18 GTO 89 XEQ"HEX" 18 ST- ] 

19 408 i9 7 

20 - =u0D 28 ST+ J 

21 %2>0? Zurückwandeln: 2ı RcL CL 

22 DSE X 22 16 

+Er XEQ"Z" se. 

24 18 18752 . 24 INT 

25 + 25 DSE \ 

26 16 ER 26 GTO 82 

27 Rt WER 27 RCL I 

28 ISG X schreibt eine "HEX"- 28 1 

293. = . . 29 + 

38 YtX Routine für acht Stellen? 38 CLa 

31 LASTX Doch bitte ohne Sizell 31 STOo Lt 

32 RDH 32 ASTO L 

33 * 33 ASTO X 

sa + Hexy Programnin 34 "ABCD 

35 GTO 18 2 E a . 35 ARCL X 

36+LBL 89 wünscht < 36 ASHF 

37 -RON 37 CLST 

38 .END. N 38 AYIEW 
CAT 1 39 .ENL. 

LBL’Z cat 1 

END LBL’HEX 

64 BYTES .END. 


78 BYTES 


; Frank Alten..a 
ten und Rechnen lassen 


der, der schon einmal die Zeitschrift "Stern" gelesen hat, 
ird über kurz oder lang auf die Rubrik "Raten und Rechnen" 
estoßen sein. Eines dieser Rätsel -zugegebenermaßen eines 
r leichteren Kategorie(wegen der Rechenzeit)- habe ich mir 
erausgegriffen um an Ihm zu zeigen, wie man mit einem Rech- 
er und ein paar Überlegungen derartige Probleme lösen kann. 


_. 


; Raten und Rechnen 
Jedes Karo bedautei eine Ziffer, gleiche 
Ziffern heben gleiche Karos. Durch Pro 
bieren. Nachdenken und Rechnen ist dıe 
Aufgabe durch Aufschreiben der richtig 
gefundenen Zahlen an Stelle der Karos 
waagerecht und senkrecht lösbar. 


fgabe: San - AZ! j= 


Ä —#toc 
zum JT es 62 


ls ersten Schritt bezeichne man zweckmäßigerweise die "Karos" 

it Buchstaben oder gleich mit Registernamen um von der unüber- 
ächtlichen Fenzenlehre-Schreibweise auf einen klaren algebra- 

schen Ausdruck zu komzen. 

ies ergibt: 


ABC - DE = ACF 


+ = - 
ABF - DA =AGC 
DHEA :EDB = A 


lies sind sechs Gleichungssysteme mit 19 Unbekannten und somit 
uf konventionelle Weise nicht zu lösen. Man kann derartige 
leichungssysteme aber immer derart reduzieren, daß eine Gleich- 
ng mit vier oder fünf Variablen übrig bleibt: 


sp.1: rechte, senkrechte Spalte: 
100A+10C+F-(100A+10G+C)=A 
100A+10C+P-100A-10G-C =A 
9C+F-10G=A 


8p.2: mittlere, senkrechte Spalte: 
Eine Unformung ist nicht nötig, da insgesmt schon vier 
Variable vorliegen. 


or: 


 EL_LULTEN,, wahren. Da N, Tem ROIEHITLNLINET. 


3,5 Sturien tenitigt. 


Ein zweites Kriteriuf®ber der Auswahl eines Gleichungs- 
systems ist, daß im Ergebnisse möglichst eine der Variablen 
aus den Operanden enthalten ist, da sich dadurch die An- 
zahl der Auswahllösungen deutlich verringert. Dies ist -um 
bei den Beispielen zu bleiben- beim zweiten Term gegeben, 
nicht aber beim ersten, da dort vier unabhängige Variable 
existieren. Es wird also DExDA=EDB zur weiteren Bearbeitung 
herangezogen. 

Man braucht nun nur für die Buchstaben D, E, A und B die 
Ziffern $ bis 9 einzusetzen und alle Möglichkeiten durch- 
zuspielen. Dazu verwenden wir den Rechner. 


Dabei gibt es zwei recht akzeptable Wege: 


1. Das Quadtupel DEAB ist eine ganze Zahl zwichen PßPp und 
9999. Man braucht also nur von ff nach 9999 hochzu- 
zählen, die einzelnen Elemente(jede Stelle dieser Zahl 
entspricht einem Zustand einer der Variablen) zu iso- 
lieren und in die Gleichung DE=DA-EDB einzusetzen. Ist 
das Produkt der linken Seite tatsächlich mit der Zu- 
sammensetzung der Elemente auf der rechten Seite identisc 
so kann angenommen werden, daß es sich um eine Teil- 
lösung handelt(weitere Auswahl wird später getroffen)! 
Das Verfahren ist zwar recht übersichtlich, hat aber den 
Nachteil, daß die Isolierung der einzelnen Variablen aus 
der ganzen Zahl recht lange dauert und sich die Rechen- 
zeit entsprechend verlängert. 


2. Das zweite Verfahren funktioniert ähnlich, nur wird hier 
nicht von einer ganzen Zahl ausgegangen. Für jeden Buch- 
staben wirde ein Datenspeicher benötigt. Der erste Buch- 
stabe wird nun von f bis 9 hochgezählt. Ist 9 erreicht, 
wird der nächte Buchstabe um eins hochgezählt und der er- 
ste auf f gesetzt usw, Das Verfahren wird solange fortge- 
setzt, bis alle Möglichkeiten durchexerziert sind. Die 
einzelnen Zustandsformen der Bucrstaben wird in obige 
Gleichung eingesetzt und überprüft, ob es zu einer sog. 
"wahren Aussage" kommt. Ist dies der Fall, so hat man 
eine der Teillösungen gefunden, Diese Methode hat zwar 
den Nachteil, daß Sie recht unübersichtlich ist, dafür 
aber relativ wenig Rechenzeit beansprucht. 

Aus diesem Grund soll darauf näher eingegangen werden. 


Veranschaulicht ist ein Programm nach Verfahren 2. in Fig.1 
(als Struktogramm) und realistert in Fig.2(Progamm für HP- 
41C). Zu Starten ist d=es Prgm. mit (XEQ'RATEN). Man erhält 
dann folgende Ausgaben: 


DEAB DEAB DEAB 
9948 29959 
ıı2d 2asd 2644 
a wer == 
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Von diesen fünfzehn L’sungen erfüllt nur eine die Bedingung, 
da? verschiedene Buchstaben auch verschiedene Ziffern dar- 
stellen müssen. Dies ist 1286 (D=1; E=2; A=8; B=6). 

Zur weiteren Ermittlung von anderen Veränderlichen, zieht man 
nun das Gleichungssysten DHEA:EDB=A heran, daß außer den nun 
bekarnten Variablen D, E, A und B noch die unbekannte Varia- 
ble H enthält. Zur Vereinfachung der Aufgabe wird diesen wie 
fälgt urgefornt: 


aus DHEA:EDB=A 
wird: DüiEA=AzEDB 


Die bekannten Veränderlichen werden eingesetzt: 


1H28=-82218 
Also muß H=7 sein, 
Als Rest-Lösungsmenge bleibt: L=(3,4,5,9,ß) 


Die nächsten Variablen, die wir aufgreifen wollen, seien C 
und F. Dazu wird in das System ABC+ABF=DHEA die bekannten 
Werte eingesetzt: 
86C 
+B6F 
71728 
&s ist ersichtlich, daß C+F=8 sein muß. In der oben angegebenen 
Lisungsienge sind nur die Ziffern 3 und 5, die zusammen acht 
ergeben. Aber welc..er Buchstabe entspricht welcher Ziffer? 
Dazu nehme man das Gleichungssystem ABC-DE=ACF und verfahre 
wie oben: 86C 
- 12 
BCH 
Durch probieren erhält man: C=5; F=3. 
Die Lösungsisenge hat sich verringert: L,=(9,4,9) 
Es gilt jetzt noch, den Ziffernwert für die Variable G zu 


erralten: 
ACF-AGC=A 
bzw.: 
853-865=8 
Also: G=%. 


Das komplette System sieht dann so aus: 


865 - 12 = 853 


+ z - 
863 - 18 = 845 
1728 :216 = 8 


Viel Spaß und 
Happy Programming 


Raten und Rechnen lassen 


Fig.1 

Rß1 dis Rß4 mit Zählergrenze belegen 

D,E,A,B auf Null setzen 

Solange B<9: 

D,E,A auf Null setzen; B um eins erhöhen 
Bolange Az9: 
D, E auf Null setzen;A um ein erhöhen 
Soange E49: 
D auf Null setzen; E um eins er- 
Ihöhen 
olange D49: 
lenn DE=ZDA=EDB: 
Ausgabe von DEAB 
zähler D um eins erhöhen 
Fig.2 

01 LBL'RATEN 25 INT 49 STO $3 
02 ‚889 26 198 50 ISG 4 
03 STO 91 27 = 51 GTO A 
04 STO ß2 28 RCL 91 52 'READY 
05 STO 3 29 INT 53 PROMPT 
06 STO 4 30 18 54 LBL 91 
07 LBL PB 31 = 55 TONE 9 
08 RCL 91 32 + 56 FIX 
09 INT 33 RCL 94 57 'DEAB=- 
10 19 34 INT 58 RCL 91 
11 = 35 59 INT 
12 RCL 2 36 RCL 9% 60 ARCL X 
13 INT 37 X=Y? 61 RCL 92 
14 + 38 GTO 91 62 INT 
15 RCL 91 39 LBL ß2 63 ARCL X 
16 INT 40 ISG 91 64 RCL 93 
17 18 41 GTO BB 65 INT 
18 = 42 7099 66 ARCL X 
19 RCL 93 43 STO 91 67 RCL 84 
20 INT 44 ISG B2 68 INT 
21 + 45 GTO 90 69 ARCL X 
22 x 46 STO $2 70 AVIEW 
23 STO BB 47 ISG $3 71 GTO 2 
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INTEGRAL NACH WEDDLE * 


Bl+LBL "AB" 


DECODIERTE VERSION, SVEN 


a ‚ail+LBL "AB" 

N AI “a2 FS? 51 

B5+LBL A ae 

Sn 84 ADYV 

85+LBL R 

87 AON « u 
a6 "F ? 

98 STOP 87 AON 

09 ASTO 98 

18 AOFF nn 
89 ASTO 9a 

I1+LBL 97 

un 18 AOFF 

ER 11+LBL 97 

a,b) ? ı2 cr 22 

14 PROMPT 13 "<a,b> ? 

15 FC3C 22 r : i 

na 14 PROMPT 

en 15 FC?Cc 22 

19 "uArülveudhä” = en Tun 

28 STO 91 z 

2IeLBL 88 

22 SF 25 = a. 5 

23 CT0 *'* 28 6 

EL AT: 0 21 r 

25 DEC ee 
23 .006 

26 GTO IND Bi >24 STO 81 

27+LBL 08 

2B+LBL 86 ae 

. 26 RCL [ 

39 CTO 18 ar 
28 RCL ®8i 

Z1+LBL 85 

3 29 INT 

32+LBL Bl 39 * 

33 216 3 

34 CTO 18 2. 

u. 32 SF 25 

ne BE xEQ IND 

32 

en ; GTO IND 

ee 35+LBEL 08 
36*+LBL 96 

41.610 A 

42+LBL 18 u 

a 38 GTO 19 

44. 610°" a 

En, 48+LBL @1 

45 cTO 08 a 

sus 42 GTO 18 

an 43+LEL 82 

2 44+LBL 94 

50 RCL \ .. 

a 46 GTO 18 

is 47+_LBL 83 

2 48 272 

54 TONE 9 ne 
58+LBL 18 

55 STOP 

56 6TO 97 nn 

ar 52 ST+ ] 


53 ISG 81 


PBJ 


Zur Anwendung d«e® 


BER ‚yamm Von 
ein Beispielprog."" 


Michael Fehse 
Seit der Beseitlt 


PRIVATE schien (IH# 
ı auUS- 


«ung des 
"se- 


schützte" Progri 


gestorben. Michne fand 


einen Ausweg. j07' 1ieß sein 


tr 
# ® Tr = 
Programm unter ("! farn 


kappe" der Mextuyles zum 
Alphatext werden® 


Textbytes werde!! n 


Diese 
ıittels 
PBJ übersprungen» sobald 
das Programm ausgeführt 
wird. 

Links die so geb 
sion (numerischr! Integral 


nach Weddle), zeWchts die 
„„malisier- 


„rnte Ver- 


von mir wieder ! 

te. 

Bnutzung:(F p 
e gro "RB" 


ro, ammiert) 


Sprung über 1bL40 
ee >..1 


Ich 


PLOT OF: 
PLOT OF: 
PLOT OF: Gamma 
PLOT OF DBELTA 
Y: -2:00 T0 2,08 
%: 0.06 TO 369.00 
AXIS: 0,08 
SPLIIS: I 

STEPS OF 10.000 


ALPHA 
BETA 


() 
( 

[637 

(02) 


“ 
...° 
. 

+ 


. 
. 
. 


= 
® 
innen nen 
+ 


+ 
E} 
- 
E 2 


% “ ‘ 
+ 4 


„EMD OF MINTILOTTIG  _ 0 5 


ALPHA 
BETA 


[43) 
() 

(03) 

( 


PLOT OF: 
Lot of: 
PLOT OF: GAMMA 
PLOT OF BELTA 
Y: -2,00 T0 2,88 
x 0.09 TO 368,89 
AXIS: 8,88 
SpLi1s: 3 

STEPS OF 10,008 


+ 
2 .——.ERBOF BULTIPLOTTING . 


A 
% 
+ 
+ 
‘ 
‘ 
« 
. ° 
. ® 
[ % 
us + 
. ’ + 
+ 


‘ 
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habe in Robert Klauc's Multiplotter-Programm in folgenden Punkten abgeändert: 
- automatischer Ausdruck der einzelnen Druckstreifen 
- Die Anzahl der Druckstreifen ist von minimal Einem bis unendlich Vielen erlaubt 


- Die Druckzeit für die obenstehenden Beispiele betrug ca. 


15 min pro Streifen 


- Beim Test der zulässigen Anzahl der Funktionen ( am Anfang des Programms ) wurde 
dei Robert Klauc's Programm die Null nicht überwacht 

- Das zu plottende Unterproaramm wurde bei Robert Klauc zuerst im Speicherregister 21 
abgelegt und erst dann wurde indirekt zum Unterprogramm gesprungen, was Zeit- und 


Speicherplatzverlust bedeutet, 


Ich habe es soweit abgeändert, 


nun indirekt Uber das Y-Register aufgerufen wird. 
- Der minimale SIZE hat sich dadurch auf 28 erhöht 
- Das Programm belegt 106 Programmregister ( 736 Bytes ) 


- Es sind min. 2 RAM nötig 


dass das Unterprogramm 


- Die Bedienung des Programms ist noch gleich, wie bei Robert Klauc 


Fred Huber 


eimLBE "-PLO 


82 CF 29 
83 FIx o 
04 4 

85 "NO. OF 


.57 
se 
9 
68 
61 
62 


GTo ı7 
-x INC?“ 
PROMPT 
x<9? 

xEQ 18 
STO 89 


F<X>?- 


86 
0? 
e8 
89 
T* 
18 
11 
12 
13 
14 
15 


PROMPT 
x>0? 
x>Y? 


ETDO -PLO 


16+LBL 15 


17 
18 
19 
208 
21 
x 

22 
23 
24 


25°eLBL 


26 
>- 
27 
28 
29 
38 


"NAME F“ 
ARCL x 
“r >“ 
PROMPT 
ASTO IND 


ISG x 
GTO 15 
AOFF 
NEN 


"SPLITS 


PROMPT 
sTo 26 
x<=8? 
CTOD "NEN 


31+LBL 16 


32 
33 
34 
35 
36 
37 
38 
39 
«0 
41 
42 
43 
44 
45 
46 
47 


-Y MIN?“ 
PROMPT 
sTOo 85 
-Y MAX?” 
PROMPT 
sTo 86 
RCL 85 
x>Yr? 

GTO 16 


RCL 26 
„ 

sto 27 
AXIS?” 
PROMPT 
stn 25 


483+LBL 17 


49 
5a 


-x MIN?” 
PROMPT 
sTo 97 
"X MAX?“ 
PFOMPT 
5TO 88 
PCL 0? 
x>T? 


63 cr ı2 
64 1 
65 STO 11 
66 43 
67 STo ı2 
68 42 
69 STO 13 
ze 19 
71 STO 14 
72 RCL 88 
73 STO 18 
?’4 ADV 
?75+LBL 19 
76 - PLOT 0 
77 ARCL IND 
18 
78 Hr - 
79 ACA 
88 48 
81 ACCHR 
82 RCL 18 
e3 18 
84 + 
85 RCL IND 
x 
86 ACCHR 
87 41 
88 ACCHR 
89 PRBUF 
98 ISG 18 
91 GTO 19 
92 FIx 2 
33.=. Ye“ 
94 ARCL 85 
95 -H TO - 
96 ARCL 86 
97 PRA 
98“ x: - 
99 ARCL 97 
168 -H TO - 
181 ARCL 88 
182 PRA 
183 - AXIS: 


ARCL 25 
PRA 

FIX 8 
SPLITS 


184 
185 
196 
187 


188 ARCL 26 
18939 PRA 

118 FIX 3 
111 “ STEPS 
OF 

112 ARCL 89 
113 PRA 


149 STO 15 
158*+LBL 22 
151 RCL 24 
152 STO 16 
153 RCL 08 
154 STO 18 
155+LBL 23 
156 RCL 
18 
157 
158 
Y 
159 
168 - 
161 RCL 23 
162 7 

163 RND 

164 xX<8? 
165 208 

166 RCL 16 
167 18 

163 + 

169 xX<>Y 
178 RCL IND 
Y 

ıı 1 
172 7 
173 + 


RCL 15 
XEQ 


RCL 85 


E3 


174 
175 
176 
177 
178 
Y 

179 
188 
181 
182 
183 
184 


RCL 18 
16 

+ 

R<DdY 
STO IND 


ISG 10 
GTO 23 
RCL 88 
16,816 
+ 


sto 21 


185+LBL 24 


186 
187 
188 
189 
198 
* 


RCL 21 
sTo 22 
1 


RCL IND 


191+LBL 25 


192 


216 


RCL IND 


x<Y? 
x<>r 
STO IND 


RDN 

ISG 22 
GTo 25 
STO IND 


ISG 21 
GTO 24 
RCL 16 
FRC 

1 E3 


217+LBL 27 


218 
219 
2208 
221 


RCL 08 
16,816 
+ 

sto 21 


222°+LBL 28 


223 
ei 

224 
225 
226 
227 
2283 
229 
2308 


RCL IND 


FRC 

ı E3 

* 

sto 22 
124 
x=Y? 
XEQ 61 


239 
2480 
Y 

241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 


161 
RCL IND 


INT 
x>Y? 
GTO 08 
RCL 21 
1 


x<>Y 
RCL IND 


INT 


? 

FS?C 85 
CcLx 
x<0? 
GTo 82 
SKPCOL 
RCL 22 
ACCHR 


252+LBL 29 


253 
254 


ISG 21 
GTO 28 


255+LBL 08 


256 
257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
26? 


268 


PRBUF 
RCL 89 
ST+ 15 
RCL 88 
RCL 15 
x<=Y? 
GTo 22 
xEQ 21 
DSE 26 
GTO 28 
BEEP 

- END OF 


"“-H-MULTIP 


LOTTING” 


269 
270 
271 
e7’2 
273 
274 
275 


PRA 
FIX 2 
ADV 
ADY 
ADY 
ADY 
STOP 


276*+LBL 01 


277 
278 
279 
289 
281 
282 
283 
284 
285 
286 
287 
z 


RCL 21 
INT 
LASTX 
FRC 

ı E3 


* 
x=7? 
RTN 

1 

ST+ Z 
RCL IND 


294 


RCL IND 


295+LBL 02 


296 
297 


RCL 21 
\ 


RCL IND 
STO IND 


GTo 29 


382+LBL 26 


383 
384 
385 
386 
387 
388 
399 
318 
3ı1 
3ı2 
313 


RcL 17 
RCL 16 


? 

L-] 
x<=Y? 
RTN 
STO 16 
SF 85 
GTo 27 


314+LBL 18 


315 
316 
317 
318 
319 
3208 
321 


ABS 
RCL 98 
RCL 87 
x<>Y 

+ 

RTN 


322+LBL 21 


323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
348 
341 
342 
343 
344 
345 
346 


3 
SKPCOL 
127 
ACCOL 
8 
ACcCOL 
ARCCOL 
ACCOL 
ACCOL 
ACCOL 
ACCOL 
148 
SKPCOL 
8 
ATCOL 
ACCOL 
RCCOL 
ACCOL 
ARCCOL 
ACTCOL 
127 
ACCOL 
PRBUF 
END 


Hier habe ich für den HP-41C einige kleinen Programme: 


1. Programm "XROM": bs ist ais Irgänzung zum Key-Assignment-PItGM 
gedachtz Um Funktionen von Zubehörteilen zu speichern, benutzt der 
Rechner die XÄtöM-Nunnern, die aus 2 Bytes bestechen: Die ersten 5 
Bits lassen den Kechner erkennen, daß es sjch um XHKOM handelt, und 
die übrigen 3 Bits sowie die B Bits des nächsten Bytes enthalten 
die Information iiber Nummer des Zubehörtej)s und Nummer der Funktion. 
Es ist z.B. bekannt, daß PRSTK dje Kezeichnung XkOM 29,19. Das Pro- 
gramm rechnet nun aus das von den Funktionsbytes 160-1067 das letzte 
in Frage kommt, und die Adresse des Befehls 83 lautet. Ins Key-Ass, 
PKGÜM muß also 167 ENTER 83 ENÜER (Taste) R/S eingegeben werden muß. 

2. Programm "STATT": Nach den vielen SIZE-Programmen hier eines, 
daß den Statistik-Hegister-Block lokalisiert. Nach dem Versuch, diese 
Information aus dem kkegister c mit Hilfe des kegisters d wu erhalten, 
gab ich das nach kurzer Zeit au), da der kKechner begann, sich se)bat 
nit der Ziffer 1 zu programnsieren ! lüer also eine konventionelle 
Version. Mit AEQ "STATT" starten, Nummer des 1. Registers in X. 

3. Programm "uk": Um einen Buchstaben aus einem bestimmten Kegister 
ins ALPlIA-Kegister zu holen. Nur das Alpha-kegister wird verändert. 

h. Programm "GEIA": Soll das gleiche Problem wie 3 lösen, das Zeichen 
steht diesmal im Alpharegister selbst. Bei 5 Register- und Zeichen- 
Nummer eingeben, hier nur die Nummer des Zeichens, 


. Programm "GAMMA": Berechnet dje Gammafunktion; Argument eingeben, 
KIN R/S oder XÄEQ A oder XEQ "GAMMA", 


Ralf Pfeifer 


Rubensstr. 5 
sooo Köln -5o 


AI+LEL "GETA” 


B2+LBL A 
1 [ MAR” 
BL+LBL "XROM- BIELBL STATT un -cr- 5 N PRP "GA 
82+LBL A B2+LBL A = ih 
03 ENTER? 83 5 62 "REG ?* @5 ENTER? Bl+LBL "GAMMA 
84 FRC @4+LBL 98 03 PROMPT #6 ENTER? @2+LBL A Peine 
85 1 E2 85 RcL Ind x 84 "NR?" 976 INT LASTX xX#Y? 
86 * 0% 8 85 PRONPT 87 1 - FACT RIN 
97 STO 98 87 ENTER? 86 5 89 INT 
88 RIN 08 5+ 07 - 18+LBL BB 1i+LBL 08 at 
89 INT 89 RDN 88 CLA 11 X28? CF 08 1 sro er 
18 ENTER? 18 RDN A9LBL 88 12 ASHF sTo 68 x<0? > 8 
11 ENTER? tr RcL ınpy 10 x=8 13'DSE % x8? - 5 80 
124, 12 Key? 11° ° 14 CTO 88 a 
13 N0D 13 CT0 91 12 156 X 15 CLX 
14 - 14 RÜL2 13 CTO 08 166 x? CTO 82 STB 1 
15 LASTX 15 1 14 ARCL IND Y 17 NOD + 6GT0 8 
16 64. 16 + 15 ASTO Y 185 
na 30+LBL 82 
17 17 CTO 98 16 19 XOY 
18 ST+ 88 18+LBL Bl 17 ARCL Y 28 - ENTER? nn 2. ur m 
19 RDN 19 -4 18 ASHF >21 ASTO Y * 682 KR 
20 4 28 Rt 19 AYIEN 22 CLA . xoYr At2 1" N 
1/ - 2a + 28 .END. 23+LBL 81 865,9 + KOT: 2 
& 160b” 22 ST- INDL 24 %+8° xor N fe EtX Pl. 
23 + 23 | STERURRE SORT eo 
24 RCL 08 24 - 26 DSERE RCL BI 7 FC?C 08 RTN 
235163 25 .END. 27008 DEG RCL 08 188 * SIN 
26 7 j 29 ARCL Y « PI XOY 7 „END. 
27 + 29 ASTO Y BEER 
28 «END. 3a .. 
= 31 ARCL Y 
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UTILYS-Teil 2 


1. Zusammen mit Ulli Davertzhofen haben wir eine superschnelle 
Primfaktorenzerlegung ausgearbeitet, die außerdem keinen Komfort 
vermissen läßt. Sie zerlegt die Fermatsche Zahl F5 = Ik 294 967 297 
nach 56 sec. in 641 und weiteren 2 min. 12 sec. in 6 700 %ı7 
1.000.003 wird schon nach 1 min. und 10 s als Primzahl erkannt. 

Ein Programm, das im Großen und Qanzen das gleiche Prinzip ver- 
folgt findet man im HP-67/97 Mathematik-Paket, 

2. Zeitschleife, Falls der HP-LIC einmal zu schnell arbeiten sollte 
muß man eine Zeitschleife einbauen. Sehr einfach ist da z.B, das 
unten angegebene Programm. Es löscht nebenbei auch das ganze Unter- 
programmrücksprungregister. Entfernt man eine LBL 00 XEQ 00 Anweisung 
halbiert sich die Laufzeit. In der unten angegebenen Version braucht 
das Programm 7,5 3; Mehr als 6 LBL-Anweisungen sind wegen der max. 

6 Unterprograrmebenen sinnlos. Setzt man aber statt eben dieser XEQ 00 
LBL 00 - Folge mehrere XEQ Befehle vor ein Label, wie im nächsten 
Vorschlag, läbt sich die Zeitschleife beliebig verlängern !(Im Bsp. 
arbeitete der HP-4IC ca. I min !) 

3. Hornerschema f, f'. Für Newton und ähnliche Iterationen kann 

man zur Berechnung von f und f’ bei Polymomen das Horner-Schema 
verwenden, das schnell und rundungsfehlerglinstig arbeitet. 

Die Speicherordnung: In R 00 steht ein Index der Form n+2,00%; 

R O1 enthält nach Programmende £f’(x); In RO3 ff. werden die 
‚Koeffizienten des Polynoms n-ten Grades (n wird für R 00 gebraucht) 
gespeichert: Das Absolutglied in RO2, der Koeff. von x in RO 

u.3.W. 
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IB X=87 xEQ 81 ! ®9 XEO 68 
IM RL 9» IOLBL 88 
ID X=89 NE Bl Ralf Pfeifer Team) 11 320 6a 
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IB X=97 XEQ BL 34 Soo0o Köln-S5o 13°LBL 98 
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108 X)? cr 15 NEO 99 
TBB CI i Ih+LBL 88 
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Ich habe Interesse an folgenden Feengedieten: Auslegung von Industriekraftwerken, ’r>- 
gramm für Teile des I-S-Diagramms ( VDI-Wasserdampftafel ), Dampfturbinen und Kessel- 


on 


berechmung. Vielleicht EIN: es jemanden mit gleichartigen Interessen ???!! 2. Barchewitz 


wer kann nir die zweite Auflage des Buches:"Richard Eckert,Die Progrannierbaren von Ar” 
ersch. im Oldenbourg Verlag 1960 für 2 Tage auskeihenoder mir das in diese a neu 
aufgensrwenef Kapitel über den 41c gegen Kostenerstattung fotokopieren ? Vieli ; 
ich mich mit Programmen oder anderen Büchern revanschieren. Miloslav lereent, Yarıır! 
Str. 14, 6900 Mannhein 31, Tel. 0621/9332494 


wollt Ihr ein Teil-Listing der Hex-Code Tabelle ?? Falls ja, so schilieät Jen Ir. 
den 41c, Trace itodus und drückt folgende Tasten: f STO d 1,080002 EEX 25 ST“ : 
Banpy Programming ! Norbert Weber (44) 

Das folgende Programn zeigt die 10-stellige Mantisse m der in X stenenden Zahi 
bei z = s on 10° mit s = Vorzeicehn von z und o kleiner gleich m kleiner gbusgk | 
t eine vanze Zahl. Der Stack bleibt erhalten, ebenso das Anzeigefcrmat. Der Ir 
and A ( und 9) geht verisren.(z steht in L) Die Kantisse steht in A und in der inzeize 
(mit Clear iüöschen:) LBL "MAnT" ABS 5STo & CLX RCL d sci 3 
ARCL % sed ASTO X ASHF ASTI 2% CLA ARCL X ARCL 3 ciX "AST K 
AVIEW SD Johannes Schu (129) 


Wir Ihr wißt, war es biskHer ein Frivileg für Besitzer der Nechner mit der Serierrummer 
unter 1251, die Befehle wie STO X usw. zu erweugen,. Ich habe nun eine YÜglichkeit zefun- 
den, diese Befehle auch auf anderen Rechnern zu erzeugen. Jedenfalls funktioniert es auf 
meinem Rechner ( 2041402868 ). Und nun zur Realisierung: Zur Erzeugung des 3efen!s STIM 
zibt nan 1,917585 in das derzeit höchste verfiigbare Datenregister, nachdem man v:rher 
MASTER CLEAR (evtl auch CLP) ausgeführt hat. Yun schaltet man in den =ESH “dus ın und 
führt CAT 1 aus, welches man bei dem ersten Erscheinen von „END. untertricht. 
DEL größer als ıull ausgeführt werden. Als letztes wird XZ9 END ausgeführt. Der 
Befehl befindet sich nun im Frogramnspeicher. Sollte dies nicht der Fall sein, 
0.g. Zahl außerdem in R oo zu speichern. Andere Befehle lassen sich analcg erze 
prisma 3/5-30) Kartin Klirgenberg (232) 

Bise Worte ! 

Je grö2er ein Club wird, desto größer wird die Zahl derjenigen, die ihre Freude :n übler 
Nachrede finden. Um solchen Subjexkten zumindest die "Arbeit" zu erschweren hier ein paar 
worte der Alchtigstellung: 

Sämtliche Behauptungen, der Club oder einzelne Mitglieder würden die Berichte ir. risma 

mar irgendwo abschreiben nder übersetzen sind frei erfunden und enttehren jeder !runi!a- 
ge. Sollte etwas einmal doch libernenmen werien ( z.B. daa KA-Programm von 5p2 ), as sit 
Sicherneit extrem selten Ist, so sird dieses ausdri.cklich erwähnt, 

Erlogen ist lie Behauptung, Matthias Grabiak hätte sein Wissen aus dem FrC-Jourmai entnm- 
nen. Richtig ist vielmehr, daß Mattnias zum Zeitpunkt, als er den Bericht schrieb, noch 
nichts von der Existenz des PPC wußte. Darüber hinaus brachte er Ja auch neuen, -:s bis 
neute nicht im ??C-Journal erschienen ist. Das gilt nicht nur für Matthias !! 

"ine böswillige Unterstellung clubfeindlicher Elemente ist, daß finanzielle it‘e: tas 
Tubs zu cluofrenden Zwecken verwandt werden, Die Verwendungszwecke sind im imir-ssum Zze- 
nau aufzeführt. Fe wird für jedermann einsehbar Buchführung geführt. Sıfern über" aurt 
Aufwanrdsentschädigungen fir dle, das sei betont, stupiden und anödend-n orzanisat:rischen 
Arbeiten gezahlt werden, so in der Regel nicht nehr als 6,--DM je Stunde. Das lat extreme 
Interbezanlung, wenn ich mit den 22,50 DM und mehr vergleiche, die icn Für Kacrr:!festunden 
bekrorze ! 

“er ssiche Behauptungen weiterhin verbreitet, mıß damit 

rechaen, “23 ich auf der nächsten Mitglied- wersarmiung 

seinen Aausechlui =u8 dem Verein beantrage ! 


iloslav Folprecht,. Yaxdorfer Str. 14, 6800 Mannheim 81, T.0621/892494 
lub Nr. 345 26. 3. 81 -1- 


ieber Oliver! Liebe Mitglieder! 


eim Erhalt der Nachdrucke des Prisma 1980 habe ich zum erstennal 

n Zusammenhang Tit dem Club etwas bedauert - daß ich nicht schon 
iel früher beigetreten bin | 

eute habe ich auck einen Brief vom Frank Altensen bekommen, den 

:h seinerzeit ein Buch ( H. Alt : Angewandte Mathematik, Finanz- 
athematik, Statistik, Infornsatik für UPN-Rechner ) für die Club- 
ibliothek angeboten babe. Er fragt nach dem Preis. Da ich es 
»ppelt habe kostet Ass Buch den Club natürlich nichts. Ganz selbst- 
»3 bin ich dabei aber nicht : ich hoffe, deß ich und alle Mitglie- 
ar den Nutzen einer zut ausgebauten und funktionierenden Club- 
ibliothek genießen werden. 


BATTERIEN UND _ STROMVERBRAUCH DES HP 4] C 


ıgeregt durch Oliver's Artikel im Prisma 10/80 S.? habe ich den 
:romverbrauch zeines Rechners gemessen : 


Iorr Ton Ion m. Pr. TON m.Pr.+BEEP 
L C ohne Peripherie 0.001 0.5 5.3 5.5 
LG + 1] Memory 0.0015 0.503 6.4 6.6 
LC + 3 Memory3 0.002 0.504 8.2 9.0 
IC+3M + KL 0.0057 0.51° 9.3 9.5 
LIC+3M+KL+üR 0.012 0.52 9.6 9.8 
\le Ströne in mA bei 5 V am Netzteilanschluß, gemessen nit digi- 


ılenm Meßgerät der Sereuigkeitsklasse 0.1 %. Bei 4.6 V au Netz- 
»ilanschluß erackeirt BAT Anzeige, bei Verwendung des Kartenlesers 
ırweigert dieser schon bei weriger als 4.8 V den Dienst. Bei Be- 

eb mit eingelegten Basterien oder Akkus sind die Verhältnise güns- 
ger : FAT erschein* bei 4.25 V und der Kartenleser arbeitet noch 

i 3.3 V einwandfrei. Dies ist dadurch bedingt, daß Netzteilbuchse 
ıd Batterieanschlußkortakte keine direkte Verbindung haben, sondern 
Ir + Pol der Netzteilbuchse über ein Schutzelement, an dem je nach 
ronstärke 0.3 bis 0.5 V abfallen, mit der Rechnerschaltung verbun- 
n ist. 

ch eine interessante Zigenschaft, die von sehr guter Funktion 

r Rechnerstromversorz':ng und interner Stabilisierung zeugt 

i kleineren Sparrurg ateigt der Strom, die aufgenommene Leistung 


zax. ca. 60 mW ) bleibt Lis zur Abschaltgrenze gleich. 


Miloslav Folprecht, Maxdorfer Str. 14, 6800 Mannhein 81, T.0621/892494 
26. 3. 1981 -2- 


Der Kartenleser verbraucht beim Karteneinlesen oder -Beschreiben 
ca. 230 mA, beim abgeschalteten Rechner erhöht sich der Ruhestrom 
nur um ca. 3 uA, wenn man nicht vergessen hat den Rechner rnit auf- 
gesetzten KL ein- und wieder auszuschalten. Unterläßt man dies, 

so liegt der Ruhestronverbrauch bei ca. 120 uA und daß kann schon 
die Batterielebensdauer beeinträchtigen. 

Eine Mallory Alkali-Mangan-Lady-Batterie hat eine Kapazität von 
580 mAh, ausreichend, um im RUN-Betrieb mit voller Peripherie 

58 Stunden lang zu rechnen. Bei einen IoFF = 0.012 mA würde sie 
theoretisch ganze 48000 Stunden, das sind 2013 Tage, halten, wenn 
wir nicht zwischendurch auch rechnen werden. So hat der Ruhestron 
kaum einen Einfluß auf die Batterielebensdauer, wenn er sich im 
Bereich um die 10 oder 20 uA hält. Wir können auch unbesorgt den 
Kartenleser immer am Rechner aufgesteckt lassen, die 3 eingesparte 
uA würden uns praktisch gar nichts bringen. 

Wesentlich wichtiger ist hier die Frage, ob die neu gekauften 
Batterien auch wirklich ihre 580 mAh Kapazität haben oder schon 

so lange gelagert sind, daß uns nur ein Bruchteil devon zur Ver- 
fügung steht. Bei Öfteren Verwendung des KL kann man dann die Batte- 
rienlebensdauer nicht in Monaten, sondern in Wochen zählen. 
Überreaschend war für mich, daß der Tongenerator nur ganze 0.2 mA 
verbraucht und das nur während der Tonerzeugung-kaum nennenswert 
für den Gesamtstromverbrauch im RUN-Betrieb. 


WIEDERAUFLADBARE ZELLEN 


Bei diesen ist fast unbekannt ( siehe Prisma 81, S. 48 unten ), 

daß es zwei für uns in Frage kommendenunterschiedlichenTypen gibt : 
NiCd-Zellen und Masse-Zellen. NiCd-Zellen gibt es schon relativ 
preiswert ( um ca. 5 DM ), sie haben aber den Nachteil der ziemlich 
hohen Selbstentladung. So hat eine NiCd-Zelle bei 20°C nach 2 Wochen 
nur noch 75% der Anfangskapazität, nach 1 Monat 60%, nach 2 Monaten 
35% und nach 3 Monaten nur noch 20%. Bei 30°C hat sie ( und der 
Sommer konnt auch ) nach 1 Monat nur noch 40%, nach 9 Wochen gar 
nichts mehr von der Anfangskapazität behalten. 

Die Masse-Zellen haben eine sehr geringe Selbstentladung, nach 10 Mo- 
naten Lagerung bei Raumtemperatur sind noch 50% der Kapazität vor- 
handen. Von der Fa. VARTA gab es diese Zellen bis vor kurzem unter 
der Bezeichnung 151D zu einem Endpreis von ca. 12 DM/Stck. Wesen 


Miloslav. Folprecht, Maxdorfer Str. 14, 6800 Mannheim 81)"%.0621/892494 
26. 3. 1981 -3- 


zu teurer Herstellung wird von der Fa. VARTA nur noch die NiCd 
Version 151 RS hergestellt. Der Preis bewegt sich für diese Nica 
Zellen bei ca. 7-8 DM, allerdings sind sie mit den oben aufgeführ- 
ten Nachteilen der NiCd-Zellen behaftet. 

Beide Typen, 151D und 151RS, haben eine Nennkapazität von 150 mAh. 
Man muß sie also theoretisch 4x so oft wechseln wie normale Batte- 
rien. Da wir sie aber, im Gegensatz zu normalen Batterien, immer 
voll aufladen können, fällt in der Regel die Relation viel gün- 
stiger aus. 

Nun, das klingt alles ganz schön, aber wie kommen wir an die Masse- 
Zelien ran, werden sie sicher fragen. Ich habe, nachdem ich mich 

mit Netzteil und zwei Stolperkabeln oder einem Batteriegehäuse 

für 4 Moncozellen und einem Stolperkabel abgeplagt habe, 8 von 

diesen Massezellen und ein Steckerlader angeschafft und bin für die 
nächsten Jahre alle Batteriesorgen los. ( Zugegeben : den letzten 
nicht ganz verbraucktten Batteriesatz habe ich aufgehoben - man 

weiß nie wann man das Aufladen vergißt. Passiert ist es mir aber 

nur einmal!). Und das ganze für 68 DMI 

Zu diegem Preis + 5 DM Versand- und Verpackungkosten kann ich noch 
einige Sets, bestekend aus 8 Stck. orig. VARTA Massezellen 151D 

und einem VARTA Steckerlader für 151D, besorgen. Und damit ich keine 
Arbeit habe, richtet bitte Eure Bestellungen an meine Frau : 

Ursula Folprecht, Maxdorfer Str. 14, 6800 Mannheim 81, T. 0621/8992494. 
Und wer schon einen Satz hat, bier noch die Einzelpreise : 

151D 6 DM, Steckerlader VARTA 25 DM. Versandtwird ( Vertrauen 

in Clubnitglieder ) gegen Rechnung. 
KOCKAKANKKKKHKKKKKKIKIKKNKHKKKKANKKIKKKHKKIKKKHKKÄKKHKKKAKKAKKUKKKN X 
Danke für den Bericht von Norbert Weber über DDM. Habe zuerst ein 
DDM obne die geringsten Schwierigkeiten gebaut. Kann man auch jetzt 
zekaufte Menorys so umbauen? JA ! Beachtet aber den Hannovermesne-Bericht ! 
KKKKKKKAKKKKIKKKK IK HIHKKKKKIKKKHIKIKKHHKKÄKKIKAHNAKIOGOK IKK AKKNKKAKKN 
Jabe auch einige Bücher über Progr. Rechner oder mit Progranmnen. 
Muß aber zuerst ein Verzeichnis anfertigen. Es wäre gut, Oliver, 


senn Du in etwa die Abschlußtermine für die nächsten Prisma-Aus- 
Re Natüriichs Jeweils etwa 4 Wochen vor dem Erscheinungs- 
zaben angeben könntest. ncnat (+-2 Wochen). Unverbindlich ! Termine elehe pria- 


KHAHIKKKKKXKKKKKKKHKKIKIKKAXXKIKHXXKKXKKKHKKAXKAKAHXKAKKIKAKKAKNKAKK NK 
ma 44-B1 oben | kächste Auag. ı Aufust,Septenber, ir 


Hannover 1981 - Die Messe d®P’Messen 


Am Do,d.2.4.31 war es soweit; Einige Minuten vor 14 Uhr entstand ein Kenschenauflauf 
in unmittelbarer Nähe des HP-Taschenrechner-Standes. Beim Durchzählen wurden etwa 35 
HP-41-Menschen registriert, die offenbar der Einladung im letz4en prisma gefolgt wa- 
ren. Viele hatten auch meinen Vorschlag einer Namensschild-Magnetkarte aufgegriffen 
und Walter Pieperhoff hatte gleich zwei Hände voll Pappmagnetkartenanstecknadeln ge- 
fertigt, die rejßenden Absatz fanden. 

Pünktlich um 14 Uhr folgten wir der Einladung von HP in die über der Ausstellungsebe- 
ne liegenden Besprechungsräume, wo nach einer Bekanntmachung mit mehreren HP-Repräsen- 
tanten unsere Aufmerksamkeit einem ausführlichen Bericht über die derzeitige Situation 
und die zu erwartenden Neuentwicklungen auf dem uns interessierenden Sektor grlt. Auf : 
der Messe gelbst wurde offiziell noch keine weitere Peripherieeinheit vorgestellt, 
wenngleich der Hinweis auf die ständig fortlaufenden Entwicklungsarbeiten nicht fehlte. 


Der weitaus größte Teil der bis zu mehr als 3 Stunden dauernden Unterredungen setzte 
sich aus persönlichen Fragen und Gesprächen zusammen, die größtenteils zur Zu’rieden- 
heit der Mitglieder ausfielen. Aus diesem Grunde ist es aber auch nicht mögli-h, hier 
über alle Einzelheiten zu berichten. Qurch die vielen Gespräche und Diskussionen wurde 
ein wesentlich besseres Verhältnis zu HF geschaffen, wobei zu betonen ist, da3 dies 
vornehmlich durch das freundliche Entgegenkommen von HP bedingt ist und nicht durch 
Rückstellung unserer Forderungen. 

Unmittelbarer Nutzen für Clubmitglieder ist in dieser Ausgabe z.B. die Erlaubnis von 
HP, die Kurzanleitung des Magnetkartenleserg und den im deutschen Handbuch fehlenden 
Anhang der Dokunentation zum BarCode-Leser abzudrucken. Viele andere Vorteile, die - 
das sei hier ausdrücklich betont - bei einem Konfrontationskurs gegen HP nierm..ls mög- 
lich gewesen wären, sollen hier nicht besprochen werden, sondern werden sich in unnit- 
telbarer und näherer Zukunft positiv für alle Mitglieder auswirken. 

Ein weiterer Beschluß wirkt sich bereits in diesem Bericht aus: In unserem pr sma sol- 
len ab sofort vornehnlich Dinge stehen, die bereits Hand und Fuß haben: Spemu!aticonen 
und nicht feststehende Dinge werden zukünftig vornehmlich unter den aktiven 'itzliedern 
besprochen, die diesen Club tragen und ohnehin jetzt schon in aktiver Komminization un- 
tereinander stehen. Jedes andere Mitglied kann auch gerne mitarbeiten; um nur ein paar 
Beispiele zu nennen: Berliner Ortsgrupve, „er leütet sie ? Statik-Prograrme, -2r bringt 
Ordmung hinein ? 

Weiterhin wurden Zrgänzungen zu meinem neuen Satzungsentwurf besprochen und iirer zukünf- 
tige Projekte diskutiert. Abschließende Besprechungen und eine echte Mitglielcerversamn- 
lung waren jedoch aufgrund des allgegenwärtigen Kesselärms nicht möglich. Die rächste 
Mitzliedervessammlung ist für Juli vorgesehen; die Adressen der Teilnahmewilligen lie- 
gen mir ja vor; der Ort und Zeitpunkt steht aber noch nicht genau fest. 

Abschließend hat Walter Pieperhoff noch ein wenig Atmosphäre einzufangen gesucnt und 
u.a. die Bilder der nächsten Seite geschossen. Weil ein Breitwinkelobj. leid=r fehlte, 
mußte er damit warten, bis sich die Reihe der HP-41-Fans ein wenig lichtete, =» daß nur 
ein paar der wirklich begeisterten Fans sich wiederfinden werden, Dennoch: Auch das län- 
gere Ausharren brachte Vorteile; sei es mır, daß man ein paar Worte mit dem "First Man" 
von HP, der zu späterer Stunde direkt aus den USA einflog, wechselte ..... 


Neue_DIM- Technik !!! 


Vor einem Jahr veröffentlichten wir einen Menory-Modul Umbau von Norbert Weber „ Detlev 

Boch (2) und Nicht-Mitglied Uwe Zierfuß bieten jetzt einen verbesserten Umbau an: Zwei 

Speichermodule können zu einem DDM umgebaut werden, ohne daß zusätzlich ehn drittes Mo- 

dul vorhanden sein muß, wie es bisher der Fall war. xs5peichermodul 

Beispiel: DIM in Port 1 / ROM in Port 2 / Drucker Port 3 / Kartenleser Port 4 

Bei zwei DDMs adressiert der 41c insges. 319 Regieter und läßt die Porte 3 und 4 für wei- 

tere Peripherie frei. Es werden zwei Leistungen angeboten: 

X DDM-Umbau total: Gegen Zusendung von 2 Memorys 1 DIM zurück. Preis; 40,-- 

2) Umbau DDM Weber oder Lütke Uphues: Gegen Zusendung des alten Umbaus ein neuer zurück: 
Preias 20,-- // Bei 1) wird volle Garantie übernommen, bei 2) mur auf den Ü;bau, 

mbau/Vertrieb innerhalb einer Woche. Die Module bitte in einer Schachtel an Ietlev Bucr(2) 

schicken, Geld heilegen oder überweisen: Commerzbank Göttingen, Kto. 630 640 1 


Oliver Rietschel (1)(2.von 
tecktg) im Gespräch mit den 
Ehegatten von Annegret Jä- 
ger (312) (1.vonreelk) 

Die wenigen Stunden ver- 
gingen wie im Flugg man 
hätte sich noch Tage un“ 
terhalten können]!! 


Ein Gespräch sagt mehr 
als ein dutzend Briefe: 


Klaus Werner Hoenow (11) 
Ulrich Merz (63) 
Walter Bierwirth (105) 


(von rechts nach links) 


Wenngleich nicht alle 35 
Mitglieder einen Platz 
fanden: Freundliche HP- 
Bar-Damen sorgten dafür, 
daß die Kehle nicht zu 
trocken wurde....und das 
Stehen erträglich. 


Stunden nach den Reden ' 
der HP-Genies beginnt 
sich die Reihe der 41er 
Fans zu lichten: Die Zü- 
ge fahren ab. 

Im Vordergrund von links 
nach rechtr: 

Detlev Bock \.) 

Walter Bierwirth (105) 
Ulrich Merz (63) 

Klaus Werner Hoenow (11) 


Leider fehlte uns ein 
Breitwinkelobjektiv für 
eine richtig monumentale 
Aufnahme aller 35 „cc... 


Hex-Dez-Wandler Size Jürgen Holm (112) 


Dieser Brief ist die Antuort auf die von Sven gestellte Aufgabe 
einen 8-Stellen D-H-Wandler zu bauen(Prisma 100-81). Schvieric- 
keiten gab es nur mit der LN Fkt. die im Bereich 16°-12 bis 16® 

8l+LBL "D-H den gleichen Wert liefert, so daß die Schlei- 


e2 CLA fe einmal mehr durchlaufen wird. Dies 
83 ENTERTt 


84 ENTERTt korrigiert PRGM-Schritt 37. Der H-D-Wandler 
85 LN von Sven fun«ktisniert bei mir nicht. Grund: 
Es a, 2 Nach Ausführung von ASTO Befehlen entspricht 
88 LN dem 2. Digit des entsprechenden Reg. das 2, 
ar Bl*LBL "H-D Digit des 7. Bytes im 
e : : 
2 us : 2 46 A Beast UBINSERFSHETE 
13 CHS 83 17% Matthias) Es ist also 
84 8 i ” 
Bu de 85*LBL 18 noch CF 06 en: 
16 STO T 86 RCL d RS Außerdem habe ich y 
17 MOL = „eg EEE aus der Schleife ge- 
sto 
ns & e8 8 nommen. Beise PRCfe 
20 RCL Y 89 xX<> N i 
18 ASTO d brauchen jetzt für 
1 7 
ss qg 11 CF 03 8 St.(Hex) ca. 10 sec. 
23 = ı12 CF 86 
13 STO C 
24 x%>097? 
25 156 X 14 CLX 
26 -- 15 x<>TY viel Soaß bei der wei- 
» d 
27 139 = ra teren Verbesserung 
ss 5 18 x=B? dieser PRSMe wünscht: 
To xe>ı 19 GTO 89 _ 
31 X<>Y Ar 
32 xt 32 05 Ka 
34 X<>Y 23 DSE * 
35 STO \ seo 
36 CLX% 26 + 
37 STO ] 
Er 27 16 
ER 28 ST« 
40 SsToLl ee 
41 RDN SayRel 
42 16 sE= 
43 7 sen 
44 ISG L 33 GTO 18 
45 CTO 88 34+LBL 89 
46 RCL I) sen 
47 RCL CAT ı 
48 CLA r 
49 STO C er 
38: RDN BYTES 
51 STO.\ en 
52 AVIEN En 
53 END 


67 BYTES 


LBL'S 
EN 


159 BYTES 


B81+LBL ”S" 


82 
83 
84 
85 
96 


2 
-AA” 
RCL EL 
STO \ 
RCL c 
sTo [ 
ASHF 
“-FRAAA” 
RCL_ d 
x<> c 
sTo d 
Rt 

4 

+ 

64 


FS? 85 


FS? 86 


FS? 087 


FS? 88 


zum. lateten Hals SIZEZBOUTINE Types SShneliatnöglich 
Lieber Oliver I Liebe Clubmitglieder ! 
„eo... Ich habe mir einmal das Register c näher angeschaut 
und als Abfallprodukt entstand ein Programm, das den SIZE 
und den verbrauchten Programmspeicherplatz in Registern di- 
rekt berechnet, wodurch es natürlich sehr schnell ist: iiach 
ca. 2 Sekunden zeigt es den SIZE an, nach ca. 3,5 den Ver- 
brauchten Platz. Der einzige Nachteil ist, daß es leider 
so viel Platz braucht, um so schnell zu sein. 
Zu Beginn mı£ jeweils die Anzahl der Memory-Module einsese- 
ben werden (0,1,2,3,4); schneller wird es, wenn man die Zei- 
ien 13 bis einschl. 18 wegläßt und anstatt X()N in Zeile 51 
5STO N gefolgt von der Zahl 256 für kein Modul, 320 für IM, 
384 für 2 M., 448für 3 M., 512 für 4 Module (oder 41cv), 
Diese Eingabe hat folgenden Nintergrund: Der Rechner verzeich- 
net in drei Digits in Register c (Reg ff) wieviel Register 
für Daten zur Verfügung stehen und zwar zählt er rückwärts, 
beginnend jeweils mit der entsprechenden oben angegebenen Zahl. 
(Vergleiche auch Rechnerorganisation Teil 4) Bei max SIZZE hat 
er demzufolge, egal bei welcher Konfiguration, bis 193 herun- 
tergezählt; der SIZE ergibt sich also aus der Differenz der 
Yeiden %ahlen. Das „END, ist auf die gleiche Weise verzeich- 
net; bei REG ergibt kwikl die Differenz, subtrahiert von jewdi- 
ligen SIZE, dag erste Summenregister, Beispiel: 2 Mencıys er- 
geben 384,5IZE 008, REG 11, verzeichnete Zahl ist 183, 4387, , 
und 3-(384-367)=8-(-3)=11 
Ta das „END. am Ende des letzten Programms steht, ergibt sich 
der verbrauchte Platz als folgende Differenz: (Regbß)-(.EID.) 
Da jedes angefangene Register gezählt wird, hat man meist ein 
paar Byte mehr frei. Zusätzlich tritt eine weitere Schsankung 
Jadurch auf, da3 das .END, verschieden viele Bytes verbrauchen 
kann. 
Andreas Marktscheffel (61) 

68 FS? 16 

61 128 

62 + 


653 FS? 17 


67 FS? 18 


vı FS? 19 


73 FS? 20 


76 + 85 + 
77 FS? 21 86 RCL L[ 
7-8 4 87 sto d 
79 FS? 22 88 RDN 
88 2 89 RCL N 
8sı FS? 23 98 X<>Y 
,2 1 9 - 

83 + 92 RCL ] 
84 + 93 END 


5 -...DENONSTRATIONS PR VG ME 


BarcoıDe 


Unser Dank für die Zrlaubnis, die Demonstrationsprogramne für den optischen Lese- 
stift,die im deutschen Sandbuch fehlen, zu übersetzen und abzudrucken, gilt unse- 
ren Gesprichsrartnern von HR? auf der Hannovermesse, Hier also die - verkürzte - 


tbersetzung: 
SEARCH AND DESTROY Suche und zerstöre 


Du bist der Kapitän eines U-Boot-Jägere und sollst feindlichen U-Booten die Hölle 
heiß machen ! In Deinen Operationsgebiet von der Größe 1f = 1f Flächeneinheiten 
befindet sich z.Zt. genau ein U-Boot. Um die Position Deines Zerstörere zu defi- 
nieren lese eines der als Barcodes dargestellten Felder ( 1Feld=1Flächeneinheit) 
mit dem Lesestift ein. Vor dieser Ausgangsposition aus suche das feindliche U-Boot 
mithilfe Deines Zchslotes und den damit in Zusammenhang stehenden Meldungen Deines 
"Navigationsrechners /' :" sowie den Piepstönen des Echolots, Je höher der zweite 
Ton - er ist mır zu vernehnen, wenn das U-Boot in Reichweite ist -, desto näher ist 
das U-Boct. Yerauche, nithilfe der BarCodes direkt über dae U-Boot zu gelangen. 
Dann werfe Deire Wasserbcemben ab (einlesen des Barcodes DROP DEPTH CHARGES) ! Bist 
Du genau über dem Ecot, wiret Du es versenken; ist es innerhalb einer Reichweite 
von 1,5 Feldern, sc besteht die Möglichkeit, daß es sinkt, 

Nach dem Abwerfen der Bomben gibt es einen großen BUMS und der Rechner zeigt, wenn 
auch das U-Boot buns gemacht nat, BOCM an, ansonsten MISSED und die Jagi geht weiter. 
Wach der: Werfen einer Wasserbombe bewegt sich das U-Boot um ein Feld in eine belie- 
bige Richtung. 

Ssielen: !) Lese die BarCodes unter Seatch ard Destroy ein und danach "X=2 SG" 

2) eine beliebige, ganzzanlige Zufallszahl eingeben. 

3) Die Anzeige enthält die Position des Schiffes. “itnilfe des Barlode 
lesers kann man zu jedem beliebigen anderen Feld fahren. Ein Echo 
des ausgesandten Sonartones erklingt, wenn das U-Boot 2,5 oder weni- 
ger Felder vom Zerstörer entfernt ist. 

4) Kit "STATUS" wird angezeigt, wieviel Bewegungen und Wasserbomben Du 
bisner benötigt hast. 


Example: 

Operation Display 

ScanK£dsG SEED? 

Key in the integer secd 73, 

then scan BEGIN ORDERS 0 

First move: 

Scan 55 SCANNING (no echo) 


ORDERS 55 
Since ihere was no echo, eliminate Ihe shaded region below. 


Second move: 

Scan 22 SCANNING (low pitch echo) 
"ONTACT 
ORDERS 22 


ince a low pitch echo sounded, eliminate the arca very close to the ship‘ location. 


Third move: 
Scan 20 'SCANNING (higb pitch echo) 
CONTACT 
ORDERS 20 
Since a high pitch echo sounded, the sub isclose. Scan DROP DEPTH CHARGES. 
800M 
1CAN 
3SCANS 
GO0DJ08 
NEW GAME 
ORDERS 0 


Dreiecksberechnungen TRIANGLE SOLUTIORS 


Es gibt - glaube ich - nicht viel zu den ganzen Dreiecksprogrammen zu sagen. Doch hier 
zur Demonstration ein Prgr. bei dem kein Tastendruck erforderlich ist: Sind von einem 
Dreieck 3 Seiten und/oder Winkel bekannt, so können die fehlenden Seiten und Winkel, so- 
wie die Fläche des Dreiecks berechnet werden. 
Die Daten werden über das Strichcodetastenfeld eingegeben und danach das in der Grafik zu 
diesem Wert gehörige Strichcodefeld eingelesen. Nawuh drei Eingaben lassen sich die restli- 
chen Werte berechnen. 
Anleitung:1)Lese die Strichcodes TRIANGLE SOLUTIONS ein ! Dann lese ein: "XEQ TRI" 
2) Lese den ersten Wert auf dem Barcodefeld ein. Winkel in Altgrad.Darn den Drei- 
3) Wiederhole Schritt 2) dreimal. ecksteil. 
4) Lese den Strichcode eines beliebigen Dreiecksteils ein und Au erhältst die 
Lösung ! Weiter bei Schritt 2) oder 4) 


Example: Solve the triangle below. 


XEQ "TRI" 
7.89 XEOc 

c=7,08 
5.80 XEQ a 


7 N, Ba 36.09 AEO A 
BE N nn je » 


——— l— SOLUTION 1 


be9.58 
SOLUTION 2 
b=2.82 


SOLUTION 1 
RRER=17.49 
SOLUTION 2 
MREA=5.81 


SOLUTION 1 
«0253.38 

SOLUTION 2 
«C=124.62 


1= solution 2" solution 
PACE Wie schnell soll ich Barcodes einlesen ? 


Nehme Deinen Griffel zur Hand und führe das Programm ( LBL 01 PSE TOBE7T C.0 01) 
aus. Wenn Du jetzt mit Deinem Griffel - ohne diesen einzuschalten - über irgendwelche 
Barcodes fährst, sollte Dein Rechner genau nach jeder Zeile einmal pilepen. Dann ist die 
Geschwindigkeit in etwa optimal und die Lesefehler am seltensten, 


Das Programm Character Builder wurde nicht übersetzt und abgedruckt. 


3ÜCHER-ECKE._ 


»SYNTHETIC PROGRAMKING ON THE HP-41 C" 
W.C. Wickes 


Syntnetische Frogrammierung, für den einen ein Buch mit sibben 
Siegeln, für den anderen Spielerei und für den nächsten DIE 
Programmierungsmethode zur Optimierung von Programmen, ist in 
unserem Club bisher immer nur "Artikelweise" behandelt worden. 
Das heist für den Anwender: wiederholtes Nachschlagen nach den 
entsprechenden Artikeln. 

Der Autor des Ruches "Synthetic Programming on the HP-41 C", 
W.C. Wickes, hat der nun quas& ein Ende bereitet. Das Buch 
umfaßt sowohl die Einführung als auch die Anwendung der Syn- 
tetischen Programrierung und ist damit sowohl für den "Ein- 
steiger"als auch für den Fortgeschrittenen besonders zu 
empfehlen. Für erstere stellt es ein didaktisch gut aufgebautes 
Lehrbuch dar, wobei man nie den Eindruck hat, daß der Autor 

mit erhobener Zeigefinger auf einen blickt, und für zweitere 
ist es wohl eher als Katalog oder Nachschlagewerk zu empfehien. 
Einen winzig kleinen Nachteil hat aber auch dieses Buch: es ist 
in Englisch geschrieben! Dieser "Nachteil" läßt sich - meiner 
Erfahrung nach - mit ein paar grundlegenden Englischkenntnissen 
einem Englisch-Deutsch Wörterbuch und einigen Erfahrungen mit 
dem 4ier recht schnell beneben. 

Das Buch(man sollte eher. "Heft" dazu sagen, da es DIN A4 Format 
hat und den HP-Solution-Books ähnelt) ist in sieben Kapitel 
unterteilt. Es hat drei Anhänge, zehn Figuren/Bilder und sechs 
Tabellen. 

Auf vielfachen Wunsch, seien hier die sieben Kapitel mit den 
Hauptüberschriften angegeben: 


1. Why's and Wherefore's(Warum und Wofür) 

2, Inside the HP-41 C(Innerhalb des Rechners) 

3, Exotic editing with tne Byte Jumper(Außergewöhnliche Kor- 
rekturen mit dem "Byte Jumper") 

4. The Status Register 

5. Prograns for ee a zum programmieren) 

6. Applications(Anwendungen 

7. Amusing Anomalies(lustige Unregelmäßigkeiten) 


Kapitel 1 und 2 beinhalten eine philosophische und basis- 
technische Einführung in das Thema der synthetischen Progran- 
mierung, d.h. es wird erklärt, warum überhaupt synthetische 
Programmierung und worauf diese(von der Hard- und Software) 
aufbaut. Derfenige, der mehr Softwareintressiert ist und auf 
die Hardware oder auf die Erklärung warum etwas funktioniert 
verzichten möchte, kenn diese Kapitel ruhig überschlagen. 
Jeder Schritt/Befehl der synthetischen Programmierung wird 

in den nachfolgenden Kapiteln themenspezifisch genau erklärt. 


Die nachfoMY#hden Kapitel sollte man Allerdings der Reihe 
nach durcharbeiten, da jedes weitere Kapitel auf Befehle/ 
Methoden/Programmsequenzen von anderen Kapiteln aufbaut. 
Intressant ist auch, daß nicht nur gezeigt wird, daß es diesen 
oder jenen Befehl gibt und wie er funktioniert, sondern daß 
die Befehle in vollständig dokumentierten Programmen ver- 
wendet werden und dort zeigen, was sie "können". Das Bpektrum 
der Programme reicht von der synthetischen Erzeugung von 
bel. Alpha-Zeichen, über die Umwandlung von Alpha-Zeichen 
in numerische Werte und umgekehrt, über ein Key-Assignment- 
Frogramn, bis hin zu einem Hang-Man-Spielprogramm(entspricht 
dem sog. "Galgenspiel"). Ein ganz besonderer Clou für Spiele- 
freaks dürfte die beschriebene Möglichkeit der Erzeugung von 
128(bzw.119) verschiedenen Tönen sein, wodurch sich Geräusche 
erzeugen lassen, die das Herz jedes "Pipper" oder "Space War" 
Spielers höher schlagen Hassenläel mir hat das soweit geführt, 
daß mein Rechner neben dem Metronom steht und gleichmäßi 
"mittickt") - und das alles mit jedem beliebigen HP-21 C(nicht 
an Bug2 Maschinen bebunden). 

Das Konzept des Buches ist aber so, daß primär die praktische 
Anwendung der synthetischen Programmierung erläutert wird, wie 
etwa Tips, umnalphanumeri sch zu sortieren etc. 


Im Anhang des Buches finden sich dann alle längeren Pregn.s, 
die in dem Heft enthalten sind in Form von Barcodes als auch 
eine Barcode-Zeichen-Tabelle(alle Alphazeichen als Barcodes). 
Außerdem wird dem Leser dort die Grunälagen von Zahlensystemen 
erläutert. 


Ein weiteres Plus des Buches ist, daß es die Anwendunz der 
synthetischen Programmierung auch auf die Peripheriegeräte 
bezieht, wie etwa das "Springen" zu einer bel. Stelle inner- 
halb eines ROM's oder die Programmierbarmachung von nicht- 
programmierbaren Befehlen. Allerdings werden nicht die hög- 
l&chkeiten aufgezeigt, die der Bar-Code-Leser in Bezug auf 
die synthetische Programmierung eröffnet, was wahrscheinlich 
darauf zurückzuführen ist, daß das Gerät erst in letzter 
Zeit auf dem Markt erschienen ist. 


Als abschließende Bewertung kann man das Buch allen empfehlen, 
die sich git der synthetischen Programmierung beschäftigen 
oder beschäftigen wollen. Es stellt sowohl eine optimale 
In IrE als auch ein sehr umfangreiches Nachschlagewerk 

ar. 


Das Buch ist zu erhalten von: 
Larken Publications 

P.O. Box 987 

College Park MD 20740 U.S.A. 


Preis: 11Dollar 50Cents 


Das Buch kann auch für acht bis 14 Tage von der Clubeigenen 
Bibliothek ausgeliehen werden!! 

Frankierter(1,40 DM) und selbstaddressierter Rückumschlag( 
Versandtasche, größer als DIN A4) an: 


Frank Altensen 
Uhlandstr. 9 
6365 Rosbach III 


Viel Spaß bei der Lektüre und Happy Programming 


ODhm'sche Dämpfungsglieder 
(weiterentwickelt für 
HP-LIC aus EEI-11 für HP67) 


HO1leLBL "RD" Haupt-Label, SB+LBL 62 Anzeige/Druck 
a2 "OHM=R- ü si RE@ 05 von @go]y>eS 
83 NSTO 88 Vorbereitungs- a 
04 ”" dB=a“ 53 AVIEN ; 
05 ASTO 09 schritte 54 RCL 03 Prüfung: 
86 SF 27? 55 x%>Y? a5 >eN 
87 ENG 3° 56 GTO 09 
88 STOP 57 xX<>Y Berechnen des 
B89*LBL A " 358 18 Leistungsver- 
19 STO 82 Speichern, ss, haltniosee 
11 XV Anzeige/Druck 68 18rX n = P,/Pu 
12 STO 81 der Eingebe- 61 STO 94 n epefchern 
13 ADV ©: . eı Berechnen dea 
14 xEQ 86 64 RCL 81 Koppelwider- 
15 "bar 65“ standesa R3 
17 Nov. 66 Rcı 02 
6 [ 
1 Qa 84 
= re 68 SORT 
28 AYIEN 6 ee 
21 x>Y? Berechnen des - 
rı FC? 91 nur für 
ee u a 72 = T-Gliad 
24 ENTERt gegebenen ?3 RCL 94 
25 ENTER? Mndest-Dänp- | 
26 1 fungsneßes 3 - 
> 76 FS? 81 
38 s "ein 77 = 
28 S@RT >8 Fs? ei nur für 
29 RCDV >9 2 f m-Glied 
39a SQRT 
31 + 88 7 
2 LOG 8ı STO 97 R3 speichern 
3 82 ı 
33 28 Berechnung von 
34 « Emin Speichern , es ie e4 4 
ee 85 LASTX we 
36 XEQ@ 85 Anzeige/Druck ? 2 
37 "HM von Sun [ 87 - 
38 AVYIEN se, 
39 ADY speichern 
48 STOP 89 STO 88 
41*LBL B Schaltung; H 98 RCL 81 Rückeprung ins 
42 -T- T-Glisd, “ 91 RTN Rahmenprogremn 
43 AVIEN Anzeige/Druck, 92-LBL C cheltung: 
44 £F 01 Rehmenprogremm | 93 -PI- m-Glied, 
45 XEQ 82 h 94 AYIEN Anzeige/Druck, 
46 * 95 SF 81 Rahmenprogramm 
47 = 96 XEQ@ 82 ; 
97 7 
48 CHS | 
938 RCL 97 
493 GTO 93 EN 
1286 - 


Stroinski 


Sept. 80 
182°LBL 983 
= EM 20 Registerinhalte: 
n + 1 
1985 "ri1- m 77 
186 AVIEM 01 
187 STO 85 
188 RCL 88 02 
189 RCL 82 03 
118 FS? 91 
111 0% 
ı112 FC? 81 05 
113 
t14 RCL 97 06 
115 FS? 81 
116 1/%X 
117 - 
118 FS? 91 
119 1/% 
Anzeige/Druck 
128 xEQ 84 von R2 Dieses Progremm lMuft mit angeachlos- 
ı, eu senem Drucker automatisch ab. 


Ohne Drucker werden die eingegebenen 
Werte mit Text einzeln quittiert. 

125 xEQ@ 94 Anzeige/Druck Nach jeder Anzeige stoppt des Program 
126 -H3” von Az und muß neu gestartet werden: 

127 AYIENM a) nach erfolgter Eingabe durch die 


123 STO 86 
124 RCL 87 


128 ADY entsprechends Labeltaste A, B oder C 
129 STOP 

138+LBL 94 Anzeige/Druck- | ® zur ee 

131 FC? 55 routine für ae 

132 STOP R),R4,R2 und R Das Anzeigeformst wurde mit Rücksicht 


133+LBL 96 


134 


cın 


135 ARCL *% 
136 ARCL 88 
137 RTN 
138+LBL 85 
139 FC? 55 
148 STOP 
1491 CLA 

142 ARCL X% 
143 ARCL 89 
144 END 


SIZE 818 ” 


T0T. REG. 42 


USER MODUS: 
224 BYTES. 


Anzeige/Druck- 
routine für 


Anzeige/Druck- 
routine für 
En und 


Ssoıl"®S 


auf ein geschlossenes Bild mit ENG 3 
festgelegt. Mehrstellige Darstellung 


Daten möglich. 


‚Ast nach Aufruf der abgespeicherten 


Auswertuns aussazenlogischer Ausdrücke AsAlD ne. 1Dn) (ns9) 
J.Schu 


A ist unter einem globalen Label zu speichern. Beim Aufruf 

von A steht p, in Register i. Die Programmieruns erfolgt nach 
den Regeln act UPT. Der Stack kann wie bei arithmetischen 
ausdrücken verwendet werden. Folzonde Tunktionen sind vorhanden: 


ame _ Zchn Register X + LASTX__?ererkung 


ar A X,Y 3a 
ST EN 2,Y ja entspricht = (Mult.) 

) X,Y ja 7» X, Reihenfolge notwendig! 
CT 4 X nein entspricht CHS 
or v hr ja 
Seispiel: (p, # S,) v{BJA P,) (n=2) 
IL 02 RIL ot ER'IT? OL nf STIL oc ZYAD GLIOR 
Das ?reosrarm wird nit 7,'"ASL gestartet. Auf AUS32737 ish 
!as Lsbal von \ mit ”’U einzugeben (Rechner näls; in AlFEL- 
Ivius). Auf 742-2122 ist die Anzabl der Jariablen (=n+1) nit 
%YTI einzuyrsın. Danach wird zeilenweise die Tabelle der \ahr= 
heitswerte ausgezehert: die "/ahrheitswerta der p, und - durch 
eine Leerstelle getrennt - der „ahrzeitswert voh A. Dia Wahr= 
heitsswerte sind | und 7. In der ersten Zeile haben alle p. 
den “erst ‘i, in der letzten F, Der Wert von p_ wechselt int 
jeder Zeile, der von p, in jeder reiten, deR von p, in jeder 
Yiertin se, Die Tabelle hat 2P(n+?1) Zeilen. Die Ausgabe wird 


Ih SIT haendet, 


um Frosranm: Interna werden die \ebrä:ibsire 
“ Aaczgestelit. Der Wahrheitswert von n, wechselt in Zeile k 
deh. Dd, + -p.), wenn zilt: 

= _ n+1 i 

0 = r.,.:= (2 +1-k}mod2 
gilt auch für die ehftn Zeile, da die p 
zt werden); dazu ist äquivalent: 
-1C -r.. ; 

in dieser Form arfolz-; Aie Abfräße im Prorramm. 
"inweis: Ist nan sie 
"unz ton, zo 7ırn m 
3EwA:D, 3 Dan alno: 


hnieht si 
n sich ter 
ac 


Listin® 
Symbole: 0,!,?,j,n = Schleife, Abbruch, Abfrage, ja, nein 
81 LBL'ASL 


U35A55? 


Me} 
24 [POCKET 
AOFT 
70.1 za 
TAr-AH &8 |_REN 
28 ERsen . 69 LBL'ESU 
a Br. ma RES j 
== STo 72 LBL'INP 
I Ts 
X LAITX 
IN 
| s = 72 L3L'NOT 
| |eı m ur 3 
; [742 
MOD CHS 
1 
12_1X<Y? 


RCL IND 11 


1? 1x>g? 
FR 
[2122 
'!-F 
t |ISG 19 
51 GTO 
2 X=z9 IED 41 n+1 
2 1>p Ro dar Sa FPPPeL Er PERS PC 
ö BL} : i=ß,00.,0 
u Rıa ı n/1288 (Schleifenkon= 
mMOrNZ : AYIEN trolle für i) 
N DSr 19 = Yz : Aussagen-Label 
69 GTO_12 
61 STOF — 


Slasnütten, a BT 


Liebe Clubmitglieder ! 
Auf der Hannovermesse bin ich durch Gespräche mit verschiedenen 
Mitgliedern in meinem Vorhaben bestärkt worden, in unregelmäßiger 
Folge erläuternde Artikel über Synthetisches und Rechnerorgani- 
sation zu schreiben. Ich halte dies für sinnvoll, da es einmal 
Mitglieder gibt, die, weil sie erst später in den Club eingetre- 
ten sind, manches verpaßt haben, zum anderen limen schon sehr 
viele Kenntnisse und Erfahrungen anderer(melst PPC) vor, auf die 
man aufbauen sollte, anstatt sie sich mühsam selbst zuserarbeiten. 

Ein paar Warte mÄchte ich noch über Unsinn bzw. Sinn der syn- 
thetischen Frogrammierung verlieren : Wer sich mit Synthetischem 
beschäftigt wird merken, daß es viele unsinnige, nutzlose Befeh- 
le gibt, aber auch sehr leistungsfähige. Zum einen lassen sich 
mit ihnen kurze und äußerst praktische Routinen herstllen wie 
SIZE-,LiEG-,.inD.-Finder, zum anderen ist häufig eine Verkürzung 
"normaler" "ragramme möglich, was dem Platzverbrauch und der Aus- 
führungszeit zugute kommt. 

Als erstes möchte ich mich dem Key-Assignment zuwenden, und 
zwar der Rechnerorganisation, als auch dem KA-Programm : 
wie manchen(oder vielen ?) schon bekannt ist, teilt sich der 
Speicherbereich des HP-41IC folgendermaßen auf : siehe Skizze 
Rechnerintern existiert eine absolute Addressierung nach Registern 
a 7 Bytes von DO bis 255+nx64(n: Anzahl d. Module) und eine ent- 
sprechende innerhalb der Register von D bis 6 aufsteigend. Diese 
Addressierung erfolgt hexadezimal, bei vier Memory-Modulen(511) 
sind also maximal drei haxadezimale Ziffern(?FF) notwendig. Der 
dem Benutzer normalerweise zugängliche Speicherberelch liegt 
zwischen Resister 192 und 255+nx6&4. Bei SIZE 08B beginnt das erste 
Benutzerprpg:amm bei der höchsten Addresse und läuft nahc unten 
fort. Die Programmzeilennummerierung ist also der absoluten ent- 
gegengesetzt. Die .END.-Marke begrenzt den Programmspeicher nach 
unten; sie ist nichts anderes als eine besondere £ND-Marke, die 
Immer in den ersten drei Bytes eines Registers liegt. Gibt man 
einen Befehl ein in den Programmspeicher, so kontrolliert der 
Rechner erst, ob eine entsprechende Anzahl Nullcades an dieser 
Stelle vorhanden ist, wenn ja, schreibt er den Befehl hinein, 
wenn nicht, schlebt er ein noch verfügbares Register ein. Durch 
diesen Einschub rutscht die .END.-Marke ein Register weiter nach 


unten. Hierdurch erklärt sich, daß sie im Druckerlisting bei Aus- 
- Aw 


führung von Catalog 1 3 bis 7 Bytes verbraucht. 
Ab Register 192 finden sich die Key-Assignmentregister, deren 
Aufbau im Weihnachtsinfo von Matthias Grabiak erklärt ist(ent- 
gegengesetzte Nummerierung der Bytes!). Die "jüngsten", vom Rech- 
ner ausgeführten Zuordnungen belegen immer Register 192, d.h. 
öltere wereden nach oben geschoben. Zwischen dem 
obersten KA-Register und dem Register, indem 
sich die .END.-Marke befindet, liegen die für 
den Benutzer noch verfügbaren Register, die 
immer gelöscht sind. 

Hat man einen SIZE xyz gewählt, so ergibt sich 
die absolute Addresse des ersten Datenregisters 
(Reg.U0) aus 256+nx64-xyz, die relative Daten- 
registernumner steigt also entspecbend der ab - 
saluten Addressierung an. Der Programmspeicher 
beginnt dann bei 255+nx&64-xyz. 

Im Statusregister c sind in jeweils drei hexar 
dezimalen Ziffern die absoluten Addressen der 
Positionen der ‚„END.-Marke, des ersten Daten- 
registers und des ersten Summenregisters abge- 
speichert : [Res | , ]16 5 [rec oo] .eug.| 
Ein Tip am Rande : Speichert man in dieE£ REG- 


Ad#resse drei Nullen, so werden bei Ausführung 


noch 
verfügbare 
Regrıter 


von OT der gesamte Stack+Last X+Register M 
gelöscht. Diese Konfiguration ist durch folgen- 


de 8efehlsfolge leicht zu erreichen : RU. c, 
STO M „ APPEND"rAA" „ CLX „ STO N „ APPEND 
"AAARA" , RUN, SO c. 

Damit sind Wir schon fast beim KA-Programm, 


Ky - Assigameat- 
Reg Sıte r 


nicht 
aenutiıter 


Adrafibaruch 


Nach der Eingabe ermittelt das Programm die 
dem Tastencode entsprechende Dezimalzahl, wan- 
delt diese und die anderen beiden in einen 
hexadezimalen Code um und setzt im Registerrff) 
bzw. e das der Taste entsprechende Bit; ohne 


diese Information weiß der Rechner nicht, ob Statvı- 


einer Taste etwas zugeordnet ist. Ist ein Bit veyırter 


-_ L- 


für eine Taste gesetzt ohne korrespandierende Information in 
einem der KA-Register so erscheint bei gedrückter Taste übli- 
cherweise XROM 83,45 oder XRDM 83,46(ABS, 1/X). Im besonderen 
Fällen kommt es vor, daß das Display erlischt und der Rechner 

für ca. 10 Sekunden wegtaucht. Durch ASN ALPHA ALPHA xy wird 

das Bit gelöscht. 

Nach jeder geraden Anzahl von Eingaben wird ein kompletter 
7-Bytes-Code entsprechend abgespeichert-wie, ist recht einfach. 
Da der Rechner seine Speicherhaushaltung über Register c ab 
wickelt, speichert man dort einfach die Information ab, daß das 
erste Datenregister bei Addresse 192, die .END.- Marke bei Ad- 
dresse 3913 liegt. Speichert man nun die sieben Bytes in Datenre- 
gister 00 „ 90 gelangt der Code genau an die richtige Stelle. 

Die alte Information wird nun wieder nach Register c zurückge- 
speichert, so daß al.es beim Alten ist, außer zwei neuen Zuord- 
nungen. 

Das 3yte Fü mu3 immer in einem KA-Negister stehen, da es dem 
Rechner als Erkennung dient. Auch darf nicht aus Versehen in das 
Register der .END.-Marke ein Assignment hineingespeichert werden. 
Um dies zu vermeiden, zu Beginn einfach GTO .. ausführen und in 
PGR4M-Madus schalten. Die Meldung DD REG xyz gibt an, daß zu den 
bereits existierenden KA-Registern noch xyz Register hinzukommen 
können. 

8ei dieser Gelegenheit möchte ich ein von mir optimiertes KA-Pro- 
gramm vorstellen. Es benötigt nur eine Karte und hat den Vorteil, 
daß alte Zuordnungen nicht zwangsläufig überschrieben werden, son- 
dern erhalten bleiben. Will man Sefehle zuordnen, so muß einge- 
tippt werden, wie viele KA-Register belegt sind bzw. bleiben sol- 
len. Ist keines belegt, muß eine Q,!nicht QLX!eingegeben werden, 
da das Programm mit Flag 22-Abfrage testet, ob es die erste Zu- 
ordnung ist. Bei der Eingabe der bekgten KA-Register ist zu be- 
achten, daß der Rechenr, wenn man z.B. von vier Zuordnungen zwei 
gelöscht hat, diese sich aber nicht in demselben KA-Register be- 
fundeh haben, die restlichen zwei Zuordnungen nicht zusammenpackt 
also immer noch zwei #A»sRegister verbraucht sind. Nur wenn zwei 
Zuordnungen in demselben KA-Register gelöscht wurden, schiebt 

der Rechner sie nach PACKING zusammen. 

Ist die Zahl eingetippt, erscheint nach XEQ’KA in der Anzeige 
KEY 1, worauf die gewohnten Eingaben gemacht, dann R/S gedrückt 
werden müssen. flach 3 bis 10 Sekunden erscheint dann KEY 2 In 


der Anzeige. Nach der Eingabe und Drutk auf R/S werden diese 
SIE 


beiden Zuordnungen endgültig abgespeichert und der Rechner er- 
scheint im alten Status, alle Flags bleiben erhalten außer Flag 
22, das gelöscht ist. Sollen weitere Zuordnungen gemacht werden, 
einfach auf R/S drücken, es erscheint KEY 3 usw. Auf keiner Fall 
darf eine numerische Eingabe erfalgen, wenn man weiter zuordnen 
möchte, da dag Programm sonst die im X-Register stehende Zahl 

als die Anzahl zu überspringender Register auffaßt. Ist aus Ver- 
sehen doah eine Eingabe erfolgt, dann CF 22, R/S ausführen. 

Durch diese Art des Programnablaufs kann beliebig weiter zugeard- 
net werden, ohne daß die Anzahl vorher festgelegt werden muß. 
wird man durch Frau, Freundin oder Hund daran gehindert, die je- 
weils zweite Eingabe zu machen, so wird durch schnelles Tippen 
von R/5 die erste Zuordnung korrekt abgespeichert, d.h. In 
diesem KA-Register ist dann nur ein Assignment. Möchte man nach 
vollbrachter Bändigung des Störenfrieds fotrfahren, muß nur die 
entsprechende Zahl von zu überspringenden KA-Registern eingege- 
ben werden, um das halbgefüllte anzusprechen. Für ganz Eilige, 
die schon bei der jeweils ersten Eingabe gestört werden, besteht 
die Möglichkeit, durch R/S$S ihren alten Status wiederzuerlangen. 


wir das Prouyramm in seinen einzelnen Schritten nicht versteht 
nolite es ab Late ALO nicht im SS Tlerchyeben. Erden Programm- 


del zwischen Zarle SO ums ri cıtunbedingt FIXO und CF2S 
erforderlich (> 60.3). 
Es Ist darauf zu achten, daß, wenn keine alten Zuordnungen vor- 
handen sind, eine OÖ eingegeben wird. Stehen im Register 192 nur 
Nullcodes, so ignoriert der Rechner höhergelegene KA-Register. 
Da mein Programm etwas anders abläuft als das alte, darf auf kei- 
nen Fall eine 8 als erste Eingabe gemacht werden, was auch nicht 
sinnvoll ist, da die Codes 00 bis DF als erstes Befehlsbyte die 
gleiche Wirkung haben, sie werden nämlich ignoriert, da ihnen 
außer bei mehrbytigen Befehlen nur die Platzhalterrolle zukommt. 

Sa, das wär's zu dem Programm. Wer es auf Magnetkarte zugeschickt 
haben möchte, schicke mir bitte eine Magnetkarte und einen fran- 
kierten Brieumschlag. 

Einen Appell noch an Euch : Ich möchte nicht, daß unser Club 
nur dazu dient, irgendweiche Programme auszutauschen, und die 
Action, sprich Neuentdeckungen sich nur in Amerika abspielen. 

Un 


Wir sind’genauso dazı in der Lage, siehe Nemorysaver vollen, 
Volf- und Goose-3ef=zhl von Matthias,P8J von Rolf. Natürlich läuft 
das bei uns in einen -leineren Rahnen, aber es soll auch weiter- 
laufen. Aus diese” Grund möchte ich versuchen, eventuell Unklares 


aufzuhellen und zuerläutern. Über Anregungen, Kritik und Fragen 
freue ich mich. 


BleLBL "KRE27 KOY 53 10tK 79 Rt 

82 FOrC 22328 X?  |54 RCL " -g@eLBL 82 
03 cTO 08 29 SF aı 155 F57 91 _81 2 

04 ns 238 ABS re -8/ 

85 STO ge 31 ENTER? 157 Sto 83 FRC 4 
9 ARMEX |seiEY 94.0? —118 RHD 
87 STO O1 -33 18 S9 aRcL Yy 85 SF IND Y-—111 2 
OB BB I s/ zZ Teexocı 86 ISCY 7_112 MOD 


091 235 MOD 1XOd 78ROL 1-13 8:9 
IE x0 4 23368 62 SF IND 2-88 IKT —t14 TO 84 
11 STOa «37 * rd 988? Tells - 
I2FINO SBSHZ ROT CT 162 
13eLBL 81 139 + BR ZA Rt 177 

14 STO 82 +48 INT 66 6 KO d 7-18 RCL 88 
15 "KEY" 41 + 67 Lastx >93 CLA 119 + 

16 ARCL Bi ;42 36 63 - 9 SL 128 RL c 
17 IS BL 3 LASTK [69 1ra 5 Feet 121 RÜL L 
16 PROMPT 44 - TB ARCL X 9 REL N m0122 "ve" 
19 rec 22 5 RL Jrrzon Man 123 MT0c 
20 CO 93 ;46 8 2520. STOL 124 STO IND 2 


21256 rs? 173570 e 199 ASTOX 1125 RDN 
228er 46 5T+ T $74 Feoc a1 108 FS?C 87 1126 STO c 
23 Rt 49517 2 175 sro 181 CT0 81 1-127eLBL 84- 
24 Rt 58 MOD 768 4B2+LBL 83 7128 RlL a 


25 + syov +rxod 188° "129 STO d 

26% :52 INT 78-23 184 ARCLK 138 CLST 
131 END 

22: BYTE3 Ansonsten 

SIZE 983 Happy Programming 


196 F4FABORABE 


BCRdBF 
122 F3 


Markhebeffet (65) 
- 5.- 


ı Das Prgr iet bei Ralf Pfeifer und Walter Pieperhoff auf Karte zu haben! 
Ollver 


HP-4ICV - Ein erster "Ellnistericht" 


Nachden ich meinen iHP-41IC mit einen Kenory ilodule für Eoo,-DH 


verkauft hatte, bestellte ich mit dem Schein aus Prisma/Januar, 


unter Angabe der llitgliedsnunaer bei Fa. Hansen einen YP-LICV. 


Er kan schon in 5 Tagen und kostete rur 668, -Di!! ! 


Die Besonderheiten des CV in Stichworten: 


1) 
2) 


3) 


4) 


5) 


e) 


9) 


Eine neue, abgeflachte Tastatur. Eine wirkliche Verbesserung. 
319 Register bedürfen keines Kommentares. 

Die Grundplatte, aus der die Tasten rager ist aus rauhen 
Kunststoff. Sie verschmutzt und verkratzt nicht so leicht 
wie die alte #etallolatte. 

Zu den üblichen deutschen Anleitungspüchern liegt das "HP-L1C 
Operatine '"anunl- A Guide for the Experienced User" nei. 

Rin 72 3eiten starkes neues Anleitungsbuch (noch?) in englisch. 
Es enthält sowohl in komprimierter rora die Besonderheiten 
eineg HP-4IC, als auch als auch bisher nicht bekannte Infor- 
marionen zun Rechner. Nicht zuletzt aufgrund seines sach- 
verzeichnissesa ist eg brauchbarer als die beıden anderen 
Büchner zusam«en. 

Der Fehler bei Alpha-Vergleichen ( a=Y?; 441?) ist endlich 
beseitigt. 

Der wichtige Cataiog-Jug (PPC-ZBug 9) ist noch vorhanden. 

Ein paar andere auch: Scrolling, 2.) nach 5IZE, DEL, o. äh. 
hängt den 41 auf, tandd He) 

Die Seitenklappe ist noch da; die Äontakte zun Stronanschlus 
fehlen. “er jedoch extern Strom anlegen will, kann das ait 
Yroxodilsklemnen an den Batterieanschlüssen. 

Der Vorteil eines rundherum neuen Geräts (vor allen die 
Ports) ist nicht zu unterschätzen. Fa. Hansen zewänrt I 

Janr Garuntie. 

Der CV ist etwas schneller als ein noraaler 41C (kann auch 
eine Fxemplarstreuung sein!. Dies ist am leichtesten an den 


nach oben verschobenen Tonfrequenzen zu erkennen. 


Fazit: Verkauft Eure "alten !'aschıenen” una holt Euch für geringen 


Aufpreis den äuperrechner Hr-LICVItt! 


Rolf Mach (75) 


Frank Altensen 
‚lgemeines Programm zu CHIP-Preisausschreiben 
„B.: 12/88; 1+2/81 etc.) HP-41 C 


s Programm basiert darauf, daß .eine cödierte Nachricht 
s mehreren verschiedenen Elementen zusammengesetzt ist 
4 die Anzahl der sinnvollen Kombinationen kleiner als 

e Anzahl der möglichen Kombinationen ist. Da der Rechner 
er nicht zwichen sinnvollen und unsinnigen Lösunzen 
terscheiden karn, erstellt er hierbei die Menge der 
glichen Lösungen und überläßt die Auswahl dem Bediener. 
e Rechenzeit erhöht sich mit der Anzahl der möglichen 
mbinationen. 


ogrammbedienung: 


Programm starten: (XEQ"CHIP) N= ? 
zingabe der Anzahl 
der Lösungsmöglich- 


keiten pro Frage: N (R/S) K= ? 

Eingabe der Anzahl 

der Fragen: E (R/S) KOMB.=(Nfk) 
? 


Jetzt die Lösungsbuchstaben, g(Als) 

beginnend mit dem ersten Buch- 

staben der ersten Frage, ein- 

geben. Der Rechner starte dasa 

Prgm. automatisch nach dem 

letzten Zeichen. 

Der Rechner gibt alie möglichen Eombinationsmöglichkeiten 
für diese Art von Rätsein aus. Das Aussortieren der richtigen 
Lösung bleibt dem Bediener überlassen. 


tenspeicher: 

- Anzahl der Lösungen pro Frage 

- Anzahl der Fragen 

- NK 

- Zähler 

H!d6 - Belegt 

h bis Ryaxyg - Elemente (alphanum.) 


K+1ß bis RlsK+9+K - Stellen der ülerente 


E=Kz(N+1)+9 
gs: keine 


els: 

numerische: 

1 bis 95 und 97 

alphanumerisch: 

"CHIP 

erprogrammebenen: keine 

ipherie: eventuell Memory Module und Drucker 
Drucker ist zu empfehlen, da Ausgabe mans::nmal 
sehr Zeitaufwendig. 


Frank Altensen 
Allgemeines Programm HIP-Preisausschreiben 
(z.B.: 12/89; 1+2/81 etc.) 


Beispiel: Chip-Preisausschreiben vom 1.1.1981: 
Vier Fragen mit jeweils drei möglichen Antworten pro Frage. 


1. XEQ"CHIP) N= ? 

3 R/S = ? 

4 R/S KOMB.=81 
hr] 

zZ R/S ? 

c R/S ? 

{6} R/S ? 

H R/S ? 

X R/S ? 

U R/S ? 

D R/S ? 

2 R/S ? 

P R/S ZHYD 
ZHYE 
ZHYP 
ZHXD 
ZEXE 
ZHXP 
OUIE 
READY 


Unter den gefundenen Lösungen gibt es nur vier, die auch 
eine echte Bedeutung haben; nämlich: ZUSE, CHIP, OXYD u. 
OXID. OXYD und OXID können ausgaschloßen werden, da Sie 
inhaltlich eher der Chemie als der Informatik zuzurechaan 
eind,. Jetzt kann man entweder auslosen, oder man weis, wer 
das erste Buch über Logarithmen geschrieben hat. 


Viel Spass und Happy Programming 


Frank Altensen 


Frank Altensi 
Allgemeines Programm zu CHIP4Preisausschreiben 


(z.B.: 12/89; 1+2/81 etc.) HP=41 C 

01 LBL"CHIP 39 AOFF 77 CLA 

02 CLRG 40 RCL $2 78 LBL f3 

03 "N= ? 41 19 79 RCL IND 94 
04 PROMPT 42 + 80 CHS 

05 STO 99 43 ENTER/ 81 RCL 85 

06 "K= ? 44 ENTER/ 82 INT 

07 PROMPT 45 RCL 1 83 RCL Ag 

08 STO gi 46 1 84 x 

09 = 47 - 85 + 

10 STO 82 48 + 86 19 

11 "KOMB.= 43 1 E3 87 

12 RCL gg 50 88 ARCL IND X 
13 RCL 91 51 89 ISG 85 

14 Y/X 52 STO 93 90 ADY 

15 FIX @ 53 RCL 98 91 156 4 

16 ARCL X 54 LBL $2 92 GTo 93 

17 AVIEW 55 STO IND Y 93 AVIEW 

18 PSE 56 ISG X 94 1 

19 FIX 9 57 GTOo 92 95 STO 97 

20 RCL 2 58 LBL 94 96 LBL 5 

21 1E3 59 RCL 93 97 RCL IND 95 
22 / 60 FRC 98 SIGN 

23 19 61 183 99 X=$? 

24 ENTER/ 62 = 100 GTO $7 

25 ENTER/ 63 RCL 93 101 DSE IkD 6 
26 1 E3 64 INT 102 GTO 94 

27 65153 103 RCL 

28 + 66 104 STO IND 96 
29 + 67 105 DSE 6 

30 AON 68 STO 6 106 ADV 

31 1E-3 69 107 DSE 97 

32 - 70 RCL 91 108 GTO 95 

33 LBL 91 7113 109 LBL 97 
34 "77. 72 110 "READY 

35 PROMPT 73 + 111 BEEP 

36 ASTO IND X 74 STO 85 112 PROMPT 

37 ISC X 75 RCL 93 113 END 


38 GTO 91 76 STO 94 


x X 
X X 
iM EX: X 
X zz X 
x x 
X  zMz zMx x 
== / == (o) (co) X 
/xx//oxx//OXX xMz zMz XXX 
JX//KOX///EQX -==,.0X..==- 
/xx/ oxxx//XX IX U XXXXX= 
xxX/ ox//xP X UIXU IXXIX 
XX X EEE KZEFE KXXX 
x EIFE ZEEE DIX 
X EEEER EEE DIXX 
X EHEEE EFEFE XXXD 
%  zEEEIFE EEFFE OH XXD 
x + zEE ze »+ XXXXD 
x 94= =’ X XXXXD XD 
XX I00= =44’ XX XXXD 
X X OXXXD 
==X XXD XXD 
P ’=MM=? 0oD 
PP X 
/PP X 
/PP X 
/PP x 
/PP X 
/PP X 
/PP X 
PP X 
/PP /D 
/PP XD 
/PP X 
/EP X 
PP AXO00 
pP % i% [61 
PP % AP 0 
P “PK EO 
ODNXX PP % PX % 0 
/0 %% % %/X % 0 
00 % xXX %/MMzrxzeN 
X % % X % 
% % X % 
% % x sm“ %/ 
0 % % XuzıE. x: % ’ 
C % % 0% 
C EREXXANIKKXXMM 2= % MMMR% 
X mM ‚m 
XM »P9zM® ZEHEE 
3 23 3 zz. 2x’ 
EEE 2; 


By Frank Altensen & 
HP-9839 


Programm: FN Fluynavigation 


FN dient der vorgeschriebenen, navigatorischen Flugvorbereitung 
für Überlandflüge, sowie der Berechnung der Winkelkomponenten 
auf dem Start und Landeplatz. 


1. Spuren | .. . 4 vom FN einlesen. 
2. Programm mit XEQ FN starten. 


3. Eingabe der Kennziffer n der ersten Flugteilstrecke ( . 32) 
(Kennzifferbezeichnung der folgenden Flugteilstrecken erhöht 
sich automatisch um +]) 

Kartenkurs (*; und Entfernung (nm) der Flugteilstrecken im 
Dialog mit R/S eingeben, z.B. 150, 100 (Kartenkurs 150°, Ent- 
£fernung 100 nm). 


4. Eingabe der Flv daten durch XEQ E 
Magneti: he Variation (*), Geschwindigkeit - (nm) und Richtung (*) 
des Höhenwindes sowie der Geschwindigkeit über Grund v. in kn) 
des Flugzeugtyps im Dialog mit R/S eingeben. 
(Eingabe: Mag. Variation 3° West -)3 
3° Ost = +3) 


5. Eingabe Kennziffer n der ersten gewünschten Flugteilstrecke 
mit R/S. Automatische Ausgabe der berechneten Navigationsdaten 
£für die Flugteilstrecken beginnend mit der eingegebenen Kenn- 


ziffer n. 


Kennziffer der Flugteilstrecke 


Automatische Ausgabe: Kartenkurs ° 
Entfernung nm 
Windabdriftwinkel ®. 
Rechtweisender Windkurs “ 
Mißweisender Windkurs ® 
Geschwindigkeit über Grund kn 
Flugzeit Std, Min. 
Gesamtflugzeit Std, Min. 


(nur bei letzter Flugteilstrecke) 


6. Berechnung der Windkomponenten durch XEQ F 


Eingabe der Start/Landebahnrichtung (*) der Richtung (*) und 
Geschwindigkeit (kr) des Bodenwindes im Dialog mit R/S. 


Automatische Ausgabe der Gegenwind- und Rückenwind-Komponente 
in Knoten (Gegenwind positiv, Rückenwind negativ) und der 
linken oder rechten Seitenwindkomponente. 
{Seitenwindkomponente von rechts positiv, Seitenwindkonpo- 


nente von links negativ). 


7.  Datenkorrektur der vorigen Flugteilstrecken 
XEQ C. (ERROR-ANZEIGE, wenn Kennziffer «. 1) 


8. Datenkorrektur von Flugteilstrecken bei beendeter DATA-Finyabe 
XEQ B. Eingabe der Kennziffer mit R/S. Anzeige der betre!lfenden 
Flugteilstrecken - DATA Neueingabe mit R/S. 


9. Abspeicherung der Flugteilstrecken - DATA auf KARTE XEQ D 


Erfolgt automatisch wenn Kennziffer größer 32 d.h. in der 
Regel, wenn mehr als 32 Flugteilstrecken vorliegen. Pei Aus- 
führung von XEQ E (4) wird diese Karte zuerst im Programm für 


den ersten Rechendurchgang verlangt. 


Vom Programm werden die Register R 00 . . .„. R 58 benutzt. Die ein- 
gelesenen DATA der Flugteilstrecken werden in den Speichern 1-32 
gespeichert, Speicher 33-44 sind Rechenspeicher „ In den Speichern 


44-57 werden "strings” gespeichert. 


Benötigt werden 2 Speichermodule. 
Das Programm arbeitet mıt und ohne Drucker. 


x = Grad 
nm = nautische Meilen 
kn = Knoten 


Liebe Clubfreunde ! 


Dieses recht umfangreiche Flugnavigationeprogramm wird hoffentlich bei aller 
Hodby-Flugbegeisterten auf Anklang stoßen, da es in der Flugvorbereitung die 
sonst verwendete Rechenscheilbe weitgehend ablöst, 

Mein besonderer Dank gilt Herrn Hoenow (11), der mir freundlicherweise bei 
der Optimierung des Programns behilflich war. 


Happy Programming 
Harald Wienbeck (141) 
Rethwiese 13 
2080 Pinneberg (Adressenändering! 11) 


BILBL N 
CEO SF 27 CR AX 
xEO 12 BEEP 


B8+LBL 91 

CLA MRCL 45 ARCL 44 
"+7" PROMPT STO 08 32 
xor Dr? CTO 8 


19°LBL 82 
RCL 98 33 %=7? CIOB 
REN FIX 8 CLA AL 46 
“Fr * ARCL 44 ARCL X 
AVIEU STOP FIX 3 
VIEN X STO IND 09 1 
ST+ 89 CTO 82 


390LBL 85 
TONE 9 TORE S "M.unG " 
ARCL 47 AVIEM STOP 


46+LBL D 

"WRITE LEGS" AVIEN 
1.032 WDIRX SF 01 CLX 
6To "FR" 


S4+LBL B 

CLA ARCL 47 ARCL 48 
AYIEN PSE CLA ARCL 45 
ARCL 44 °F?” PROMPT 
sTO 88 RCL IND 88 

FIX 4 STOP STO IND 88 
stop 


?ieLdl C 5 
1 ST- 88 RCL 60 X=8? 
c10 85 CTO 82 


?8+LBL 83 

RL 32 Or OY? 
To 04 RCL IND 99 © 
x:Y? CTO 84 RCL 00 
FIX @ CLA ARCL 44 
CL 46 °P” AREL N 
AVIEN PSE FIX 3 

RCL IND 08 VIEN X 
TONE 5 PSE PSE 1 
Ste 09 67003 


186+LBL 84 

“END ° RRCL 44 ARLL 46 
AVIEN TONE 3 TORE 6 
stop 


114 LBL E 

buy Adv 8 STO 48 
rs? 91 KED 10 SF 2 
CLA ARCL 48 ,r* 
ARCL 46 °r:° KERLE 
CLA ARCL 49 FYVARIA“- 
RRCL 54 °F 2" ANIEN 
Stop FIX @ NIE X 
STB LA ARCL 56 


" ARCL 57 "+ 9° AYIEN 


STOP VIEH X STO 34 
CLA ARCL 56 ARCL 55 
ARCL S4 °F?" AVIEN 
STOP VIENX STOSS 
CLR ARCL SI FAIR“ 
ARCL 57 °F?" AVIEN 
SToP VIEH X STO% 
RAR MY? CTO 6 
CLA ARCL 45 ARCL 44 
3° PROMPT STO 08 


173-LBL 07 

RCL IND 0R X=8? GCTO 89 
Adv ADY SF 12 CLA 
ARCL 44 ARCL 08 XEQ 11 
RCL IND 98 INT STO 41 
cua ARCL SI HTRACK * 
ARCL 53 ARCL X AYIEN 
RCL IND 08 FRC 1 EI ® 
sto 42 DISTANCE” 

ARCL 52 ARCL 53 ARCL X 
AVIEM RL 41 CHS 

RL SS + STO 37 SIN 
RCL 34 © RL IE 7 
ASIN FIX I 

-IRIFT ANGLE“ ARCL 53 
ARCL X AVIEM REL 41 + 
sto 38 XEQ 89 FIX 6 
CLA ARCL SI <HHERDING” 
ARCL 52 ARCL X AVIEM 
RL 33 - XE0 89 CLA 
ARCL 49 “HHERBING“ 

ARCL 52 ARCL X AVIEN 
RL 38 REL IE PR 
xOY RCL 35 PCL 34 
P-R RDN - RN - Rt 
XOY R-P "CROUNB” 
ARTL 57 ARCL 53 ARCL X 
AVIEU STO 39 RL 42 
XOV 7 Stra MMS 
FIX 2 CLA ARCL 48 
ARCL 58 ARCL 52 ARCL X 
AviEn 1 ST 08 FIX 6 
610 07 


275LEL 86 

TONE 0 TONE 5 TONE 9 
CLA ARCL 46 "+ ERROR“ 
ANIEN GTO E 


284+LBL 88 

ADv END OF LEGS” 
AVIEN ABV RCL 40 WAS 
FIX 2 TOTAL FL." 

ARCL SB ARCL X AVIEN 
ABY ADY STOP 


299LBL 89 
369 MOD RTKH 


383+LBL 18 
er 01 1.032 RITAX RTN 


308-LBL F a 

SF 12 TAKE OFF/“ 
AYIEN PSE "LANDING“ 
AYTEN PSE ADV KEQ 13 
FIxe CF 12 CR 

ARCL 55 ARCL 54 °F?” 
AVIEN STOP VIEM X 

STO 43 CLA ARCL 56 
ARCL 55 ARCL 54 + ?° 
AYIEN STOP VIEH X 
Sto 41 CLA ARCL 56 
ARCL 57 "+?" AVIEN 
stop YVIEN X STO 42 
ABV RCL 43 RCL 4 
KLB- - 08 

RCL 42 PR 
"+HERD/-TAIL” ARCL 56 
AVIEN PSE FIX A 

VIEH X PSE XOY 
"+RIGHT/-LEFT" AYIEN 
PSE CROSS" ARCL 56 
AVIEN PSE VIEU.K ADY 
Abv ADV ADVY RTN 


375eLBL 11 

AVIEN *--- ASTO X 
ARCL X AYIEW CF 12 
AN RIN 


384+LBL 12 

"LEG" ASTO 44 

"wor ASTO 45 

-DATR° ASTO 46 

-CORREC* ASTO 47 
"FLICHT“ ASTO 48 

"ME. ” ASTO 49 

--TINE * ASTO 50 
"TRUE" ASTOS5I ° * 
nsı052 "© * RSTO 53 


405+LBL 13 

°TION“ ASTO 54 "DIREL 
AsTo 55 WIND“ ASTO 56 
"SPEEB- ASIO 57 ‚END. 


RECHEN- 
BEISPIEL 


BATA LEG 1. 
BATA LEG 2. 
DATA LEG 3. 
DATA LEG 4. 


DATA LEG 5. 


FLIGHT DATA: 


MAG. VARIATION ? 


-]. 
MINDSPEEB ? 
15. 
| WINDDIRECTION ? 
69. 
i TRUE AIRSPEED ? 
9. 
TAKE OFF/ 
LANDING 
DIRECTION ? 
118. 
MINDDIRECTION ? 
68. 
MINDSPEED ? 
18. 
+HEAD/-TAILHIND 
6.8 
+RICHT/-LEFT 
CROSSWIND 


TRUE TRACK 
YISTANCE 108. 
DRIFT ANGLE 5.9 
TRUE HEADING 26. 
MAG. HERDING 29. 
GROINDSPEEE 83. 
FLICHT-TINE 1.12 


TRUE TRACK 118. 
BISTAHCE 280. 
DRIFT ANGLE 6.9 
TRUE HERBING 193. 
MAG. HERDING 186. 
GROUNDSPEED 35. 

FLICHT-TINE 2.21 


TRUE TRACK 288. 
BISTANCE 198. 
DRIFT ANSLE  -5.8 
TRUE HERDING 194. 
MAG. HEADING 197. 
GROUNBSPEED 186. 
FLICHT-TINE 0.56 


LEG 4. 

TRUE TRACK 29%. 
DISTANCE 288. 
BRIFT HLE 6.9 
TRUE HERDING 297. 


RAG. HEADING 308, 
CREMISPEED 104. 
FLICHT-TINE 1.53 
END OF LECS 


TOTAL FL.-TINE 6.26 


BONS EUER [Üsterreish 1981) 16.1.1981 Fi103 


Programmzeilen 260 Systemkonfigurations 1Memorymodul 
Bytes 577 Drucker) 
Datenregister 002 Kartenleser) 


Das Programm dient zur Berechnung der österreichischen Lohnsteuer. Es 
ersetzt die Lohnsteuertabelle und kann für alle üblichen Lohnzahlungs- 
zeiträume verwendet werden. Das Progremm kann als Unterprogram in 
einem Lohnverrechmungsprogramm benutzt werden. 

In das Programm eingearbeitet ist das Werbungskostenpauschale mit 4914, 
und das Sonderausgabenpauschale mit 3276,-5. 

Folgende Steuersätze sind dem Programm zugrundegelegt: 


von bis 
50.000 23% - 4800 Arbeitnehmerabsetzbetrag 3000,- 
50.100=- 100.000 23% - 7300 Alleinverdienerabsetzbetrag 3200,- 
100.100- 150.000 33% - 12300 Pensionistenabsetzbetrag 2000,- 


150.100- 200.000 38% - 19800 
200.100- 240.000 43% - 29800 
240.100- 280.000 48% - 41800 
280.100- 320.000 52% - 53000 
3720.100- 500.000 55% - 62600 
500.100-1.000.000 58% - 77600 
000.100-1.500.000 60% - 97600 

über 1.500.100 62% -127600 


Eine Änderung der Steuersätze kann durch Überschreiben der betreffenden 
Progranmzeilen leicht erfolgen. Dabei beachten, daß Betrag, Prozentsatz und 
Absetzbeatrag in einer Zahl zusammengefaßt ist. 

Wenn das Progremm als Unterprogranm aufgerufen wird ist folgendes zu 
beachten: 

Die Bemessungsgrundlage muß in R O1 gespeichert sein. Für tägliche Lohm- 
zahlungen muß F 03, für monatliche Lobnzahlungen F 05 gesetzt sein, Für 
wöchentliche Zahlungen muß F O4 gesetzt sein, wobei die Anzahl Wochen mal 6 
in R 00 gespeichert sein muß, Zur Berücksichtigung des Alleinverdiener- 
Absetzbetrages muß F 00 gesetzt sein. 


Registerbelegungs 00 Steuertage 
01 Bemessungsgrundlage 


Flagsı 00 nit Alleinverdienerabsetzbetrag 
01 Pensionszahlung 
02 Unterprogrammsteuerung 
03 ® 
O4 n 
05 ” 
11 benutzt 
21 benutzt 
27 ON 
29 bemutzt 


Waller Kropf 
Schönowiizetraße 14 
A-8700 Leoben i 


r 3 
Walter Kropt  proGggm DESCRIPTION Iı FO rm 2u 6 
00 Leob PR MMBESCHREIBUNG 11 
A-87 .onsn DESCRIPTION DU PROGRAMME Il 
DESCRIZIONE DEL PROGRAMMA It 


Esumple a) Für folgende Monatslöhne ist die Lohnsteuer zu berechnen 
Arne 8461,50 nit AV-Absetzbetrag 
21521,— “ 
34231,35 ohne " 
b) Bei täglicher Lohnzahlung ist die Lohnsteuer zu berechnen: 
232,15 obne AVSAhastzbeirag 
327,10 mit 
c) Für folgende Wochenlöhne beträgt die Lohnsteuer: 
1371,20 nit AV-Absetzbetrag 
1841,17 ohne 
d) Bei &wöchentlicher Lohnzahlung ist die Lohnsteuer zu Berechnen: 
14186,30 mit AV-Absetzbetrag 
1925,00 mit 
20100,— ohne u 


a) XEQ'LSTEU' D 8461,5 R/S BNCLG=8.461,58 
Ya/s NTL:AV:1.852,88 
21521 R/S BACLG=21.521,88 
Yr/s MTL:AV 5.004,09 

231,35 D/S BRCLE=34.231,35 
a = NTL:12.985.80 
AB 232,15 R/S OMCLG=232,15 
N R/S TEL: 24,68 
327,1 n/s BCLG=327,18 
Yyr/s TEL: AV 4L,R0 
ACıR/S 171,2 R/s BACLG=1.371.28 
Yr/s BI LEN INTL:AV- 88, 20 
1841,17 R/S BACLG=1.841.17 
N R/S IHTL:273,68 

a) 4 CA R/S 14186,3 R/S BRCLC=14.186,38 

vn/s AWTL: AV: 3.158,58 
19979 R/s BRCLG=19. 925.88 
Yvr/ 4UTL:AV:5.568,08 
20100 R/S BRCLG=2. 188,66 


N R/S - 4UTL:5.899, 18 


u Be u 
Walter Kropf USER INSTRUCTIONSI .-103 Pac It 6 
Schönowitzetrafie " PROGRAMMABLAUFI 
A-8700 Looben INSTAUCTIONS D’EMPLOTI 
NORME OPERATIVE I 


Instrucılone 
Openums 


Programm einlesen, wenn Drucker ange- 


ß | er ee 
EBEZEIE AN) DEREN 
ee 

für monatl,.Pensionszahlg.nach Schritt TEE FE 

für tägliche Lohnzahlung SB er 

Bingebe der Beneosungsgrundlage RS jr | 

wenn Alleinvrerdienerabs ,B.berückaichti TEE EEE VER 
verden soll u a RR Eee 

wenn AV-Absetzb.nicht berücksichtigt [| 

für nächste Berechnung für Klein. 12:,1b 

Zeitraum, nach Schritt & I Ws) 1a 

Für vöchentliche Zahlungen EEE ET, 

Eingsbe der Anzahl Wochen |  Anz.Vochen | RS O3 rm | 

veiter bei Schritt & a 

für monatliche Zahlungen EEE Man | 

weiter bei Schr ee ale 

für wonatl.Pensionszahlangen I. BB. Tee | 

veiter bei Schritt & EEE TREE 

für neue Rechnung mit anderem Lehm NEST EEE 

zahlungszeitraum 


veiter bei Schritt 2 
\_} nur erforderlich wenn kein Drucker 
verwendet wird, 


“ 


Walter Kır „I PROGRAM LISTING FILO3 eu 6 


Schöoswimährate M PROGRAMMAUFLISTUNG 
A-8700 Leoben LISTAGE DU PROGRAMME 
LISTATO DI PROGRAMMA 
Lioe Comments Line Key 
Zei Kommunne Zeile Te: ut 
fe Freier wo. Lee 
BILBL -LSTEU- Progremstart | SS cr 
02 SF 62 Flag 02 für Unterprgr. | SeLBL 18 
e = 03 Flag 03 57 26 
64c108 DT sesrom 
85 FS? 84 Flag 0% Für wöchentl.21g. 59 XEQ 81 Steuer berechnen 
5 eD rn N 68 XEO 83 Ergebnis runden 
Flag? es | 
68 CTo D 62 FS? 81 m 
8%LBL A 63 "P- _— 
18 CF @2 Aufruf alb auptprgr. | 64 "HIIL:* is 
1° TCM NO:AP- te] 65 XEO 82 N 500 IE SSR 
12 Pre! Tastenzuopiung | ger eale raue 
1I°LBL 8 j EEE 67 RIN Rücksprung alıs UProgram 
14 CF 0 tägliche 68 CTO 10 
151 EREEEN 63LBL Oi Bemessungagrtınd 
16 STO 08 ee] 78 -BNCLE=" eingeben 
17 XE0 81 Steuer berechnen FO 82 
114 Rundung dba Ergebnisses] 72 PRÜPT fi 
19 EEE BB: 1:04. 
20 FIX 2 re ?4 STO 01 
21 RuB Be] 75 ARCL 01 Bemesaungsgrundlage drucke 
zu RE A BE 
23 XEO 82 Fraebnis husgeben TER Eu 
24 FSIC 2 Zee ode HBENEREN 70 5? 02 20 
25 RIN Rücksprunk aus UProgram 79 CT0 09 
26 CTO 8 | BOLBL 85 Mleinverdi u 
Z7LBL C 3 _ 81 "Av? 
29 -N0* wöchentliche Lohnzahlungen 82 AON 
29 PROMPT für wievipl Wochen | 83 PROMPT 
6 BT see 84 AOFF 
Ei DZ] ss 
32 ST0 0 | 86 ASTO X 
Dun 0 Start Türlinterprogem | 5 9°r 
nr ee 
> XER 01 Steusr befechnen 89 x=Y? 
36 xEQ 03 Ergeinis fanden | 98 SF 88 
en Bear 
6 92. CF B6 
9, a 937 4 
AB FIn 0 SE= = 94 ASTo Y 
MC al 5 %:7? 
42 C1A SER % CF 80 
43 ARCL X re 7x7 
“2 It nrw 
45 AM 99 F? 
“Hm Pe. ERS 
ur Ergebnia 
4 FSIC &2 Rücksprunk aus UProgram| 182 RCL 01 
43. RTH ka re 183 RCL 88 
ee monatIIch Tr Beer 
53 c10 10 SF 01 für Pensionszahlun 187 4914 Werbungskoatenpauachalae ___ 
| SIeLBL 3 monatlich ohnzahlung 188 FS? 9 KARNXIIKIX DIIKIKRIIIE 


IV wirt de la cıdie a paper paar nr ken inne Dr nuhane alle ga ee ehe Venen! 


Pieans wur qupue gius ao srach Ir mye Admre me muy oflazı promi 
Par aromı vare Laasdta par mmie uam au nhbuncn gun aheran be manga" 


re I rumge ranı Paptsiren enbiahen. Kiebufieu umacn Druct bischen! 


Walier Kropf 
Schönowitzstrafe 1: 
A-8700 Leoben 


116 7 

112 FIX 6 

118 RMI 

119 19 

120 / 

121 58, 238848 
122 INT 

123 xOY 

124 X(=Y? 

15 610 8 

126 108. 288873 
127 10T 

128 XOY 

129 x(=Y? 

139 CT0 & 

131 158,330123 
122 INT 

133 XOY 

14 X? 

15 CT0O & 

136 288, 308198 
137 INT 

18 KOY 

139 X? 

148 CTO % 

141 240.4382% 
142 INT 

143 XOY 

144 X=1? 

145 CT0 & 

146 288, 488418 
147 INT 

148 KOY 

149 X? 

150 CTO & 

151 328.528 
152 IMT 

13 X0OY 

14 X(=Y? 

155 CTO & 

156 590.550626 
157 INT 

158 xoY 

159 x(=Y? 

168 CTO & 

161 1888,588776 
162 INT 


pormı niet m miach mrungs Aderuec ape muy ellnı pumm‘ 
man m Pacsriasm aunhhehuem A rebschlemn hamnmz ?de wach brachen! 


' Steuersa 


PROGRAM LISTING 


PROGRAMMAUFLISTUNG 
LISTAGE DU PROGRAMME 


LISTATO DI PROGRAMMA 


0 bei Pensidnezeblung | 


Sonderausgabdnpauschale | 


zurrıız DIT} D) 


Rundung des Binkommen 


INN 


Steuersatz bie 50 


Steuersatz bip 100.000 


PERF VEBESHENE 
Steuersatz bib 200,000 


il 


Steuersatz bib 240.000 


Steuersatz 'b 280.000 


Steuersatz_b 


>0 ,000 


Steuersatz bi 00.000 


Steuersatz_bj 000.000 


ill 


Menue 


u 


163 KV 
164 Xc=Y? 
165 GT0 86 


166 1588.698976 


167 INT 
168 XOY 
169 X=Y? 
178 610 & 
171 ,621276 
172 1m 
173 XOY 
174 LBL 66 
175 LASTX 
176 FRC 
177 1 E2 
178 

179 INT 
188 LRSTX 
181 FRC 
12 16 
183 

184 RD 
195 ® 

186 18 
187 + 

188 Rt 

189 - 

198 3808 
191 - 

192 2688 
193 FO? 01 
194 CLX 
195 - 

1% 3288 
197 FC? 88 
198 CILX 
199 - 

208 1188 
201 XOY 
282 x? 
203 CTO 88 
284 910 
205 IMT 
286 XOY 
207 X(=Y? 
268 CTO #7 
269 938,15 
210 INT 
211 XOY 
212 X=Y? 
213 610 87 
214 968,2 
215 INT 
216 XOY 


Indie ger muwer 


BUT Tendieo gun mm a sum Hi 


utinsor Munanımdene 


F1103 Pogr 5u6 
ee 

Steuersatz bis 1.500.000 
rn 


Steuersatz über 1.500.000 


een 


Berechnung 


Arbeitnehmerlabsetzbetrag _ 


KKXKNKKIXUNIMISIIEINIIKIX 


Pensionistenabgetzbetra 
ZIIKKNIXIIXIMIENIIKNNIIE 


Alleinverdieherabsetzb 
ANXKXISIKLIUNANKNLKKIEIKNIE 


Mindeststeue 
schritten 
Mindeststeue 


betrag über- 


N 


Walier Kıof! 
Echöuowilzstraße 14 
A-8700 Leoben 


Breuoten rel Key presacd 
Temarhas Unmentmuswen Tensc hen 
R Tan (ummeran Tau 
7 Kr REDET ER WR TEE REITER 
218 C10 07 re EM 
219 99,3 Bere 2 
220 IM Een R 
un Eee Fe en 
222 %X=Y? =: zei 
223 CI0 9 . 
225 IM ri wa: 
226 XOY En BEER un 
2a EEE ER E 
228 C10 07 ae il Dh 
229 1868.65 EEE EEE Kr 
238 INT Be ee = a 
231 X0Y re =: 
232 Key? EI BZ 
233 CT0 9 AEREREEIFEE ERERG Sl 
24 91 =[ 
25 Sol r 
en  Mindentsteuersdie | | =: 
DEE 
nn Be za 
291 E3 \ 
is RE en 
241rLBL 08 2 
242 312 TEE SEE | 
203, mm En 
244 Rın Steuer pro Tg| | | ra 
245«1Bl 23 Rundung des Ergebnisses für | BB 
246 KL nicht tägliche Steuer | 
247» En 
248 1 6-3 RER T I 
249 - ö Eee GEEE En 
28 FIX I RE en Ben 
251 RHB —- 
ZB Ber Be 
Zu Ausgabe des Erdebnisses | | on 
255 m ges ze, = 
26 FIX 2 er re 
27 sr 21 Er Er 
258 ARCL X ee | 
259 AVIEM Besen 
268 EM Er FE 
LBL“LSTEU MESEANETEE ET 
EN) 577 BYTES zug 
ZEN Bar RE B 
ae a Se 
BE EEE BL FERERSITIERNE 
BER Se EDER 
= ge er 
sa Eee DE (Te bee Br 6 
IV P nes dh Bacıdle a pugeant puma nach Tssngs Dana elesin 


Pa ou pojwe gl no ah limmgn Adhemve safır ana, afları pauanı! 
Bare I ramas auı Nopmeken emklelen Kirbehtne humnen Druck Iiemchen! 


PROGRAM LISTING F1103 


PROGRAMMAUFLISTUNG 
LISTAGE DU PROGRAMME 
LISTATO DI PROGRAMMA 


Peteun wre lose pre hu lnanı Hnauenı ach uns nun tan 


a ER rt 


RIMFAKTORZERLEGUNG mit dem HP-41C "Priedric. zisngggse (10) 


si der Erstellung des weiter unten aufgelisteten Programns ging 

3 in erster Linie um möglichst kurze Rechenzeiten bei Zahlen mit 
roßen Faktoren; dies erklärt die Länge des Programms von 693 Bytes. 
ieses Programm soll weiterhin ein erster Schritt in Richtung 
aktorisierung von Zahlen > 10” in akzeptablen Zeiten (Tage?) sein. 
afür ist dann sicher zusätzlicher Aufwand, wie z.B. programn- 
asteuertes Einlesen von Daten oder Anschlußprogramnmen notwendig. 


:h habe nicht nur die Anregung, sondern auch viele Realisierungs- 
ge dem Werk von D.E. Knuth (The Art of Computer Programning, 
»l.II, Ch.4.5.4.) entnommen. 


ıs Programm kombiniert zwei unterschiedliche Algorithmen, die in 
ırer Prinitivform zunächst kurz vorgestellt werden sollen: 


lgorithmus E (Die bekannte konventionelle Teilertestmethode; ich 
ırmute, deB sie auf Euklid zurückgeht (Die Elemente, neuntes 
ıch $14); wäre aber für Hinweise auf andere Quellen dankbar) 


3 wird nacheinander geprüft, ob 2, 3, 4, 5, 6, ... Teiler der 
:gebenen Zahl n sind. Der erste so erhaltene Teiler ist der kleinste 
-imteiler von n. Ist bis Yn kein Teiler gefunden, so ist n eine 
-imzahl. 


gie EI ID“ 
92.370 9 

a3 "IST PRIM“ 
94 VIEN 98 
95 SORT 

% ST 

e7 1 

68 ST9 @1 
OL 9 

10 1 

11 STr 8 

12 Ra © 

13 ML 81 

11 97? 

15 619 91 
IERLM 

IT RL 81 

18. n0B 

19 X9? 

20 GT0 8 

21 "MAT TEILER * 
22 Are 91 
23eL BL 91 

24 BEEP 

25 PRONPT 

&% ED 


n hat Teiler pP 


orithnus F (Fermatsche Methode) 


n die zu faktorisierende Zahl. Ist n« P,F,(F,sF,), so kann 

für F, und F, den Ansatz F,= x-y, F,= x+y für geeignete 

cht notwendig ganze) Zahlen x, y machen. Dann ist x = (E,+F,)/2, 
(R,-F,)/2. Insbesondere sind x,y ganzzahlig, falls F, und F, 

e ungerade sind. 

dem Fermatschen Algorithnus werden für ungerades n diese Werte 
nd y gesucht: Ausgehend von x =/M/ (kleinste ganze Zahl > ni) 
x erhöht und jeweils getestet, ob x?- n eine Quadratzahl ist. 


MILBL "een ; 

ST (Beachte: n = x®- y?= (x-y)(x+y) ) 
a3 "IST PRIM- 

04 VIEN 09 


2 = 
5 a TTTTT ungerade 
ı/x 


88 PCL @9 
89 SORT 
11. > En 
IL CHS 
121 

13 N0B 

14 + 

151 

16 - 

17 STO &ı 
t6 RCL 08 
194 

0’ 

| 

22 + 

23 570 9 
24+LBL RR 
251 

26 ST+ 81 
27 at 
23 RCL 81 
23.97? 
39 GTO Al 
31 RCL 91 
32 xt2 

33 RCL 99 
4- 

35 SORT 
36 FPC 


7x9? we 
n en 08 Mit Algorithmus F wird der größte Faktor 


39 RL 0 (nicht notwendig Primfaktor) <Yn' gefunden. 


48 LASTX 

4- 

42 "MAT TEILER ° 
43 ARCL A 
A4LBL O1 

45 BEEP 

46 PPOMPT 

47 .EM. 


Zur Charakterisierung der belden Algorithmen seien nur zwei Beispiele 
mit den jeweiligen Rechenzeiten angegeben: 
EEE DREIER SEEN F 
1001423 = 887-1129 4 min 17 sec 
1001293 = 113-8861 24 min 72 sac 


Ist nur die Alternative zwischen Algorithmus E oder F gegeben, so 
entscheidet man sich ohne Zweifel für Algorithmus E (ca. Yn’ Tests 
gegenüber n/4-Tn (> In’ bei großem n) Tests, zumal danit auf 
einfache Weise der Restfaktor weiter faktorisiert werden kann. 
Beim Auswerten der gemessenen Rechenzeiten fällt aber doch etwas 
auf: Der Abstand vom Startwert (Yn bei F und 2 bei E) bis zun 
ersten gefundenen Faktor ist bei beiden Beispielen ungefähr gleich: 
VIOaSS _ 887 = 113,7»113 ; d.h., es war En erwarten, daß s 


Algorithmus F für 1001423 ungefähr die gleiche Zei.” gg mehr, 

aa der. jeweilige Test aufwendiger. ist) wie Algorithmus für 
1001293 benötigte. Aber offensichtlich ist hier der Fermatsche 
Algorithmus nahezu 7 maı so schnell. Das verwundert. nicht, wenn man 
beachtet, daß in F mit der ersten Erhöhung von x = [m] = [Y1007433'] 
= 1001 um 1 der "Testfaktor" p = x-y einen Sprung von 


(x Ax?-n)-(x+1-Vex H%- nn)» 25,8 macht, während der 
Testfaktor in Algorithmus E konstant um 1 wächst. Die Erhöhung des 
Testfaktors p = x-y wird mit wachsendem x allerdings immer geringer. 
was sich in der unverhältnismäßig hohen Rechenzeit beim Beispiel 
1001293 ausdrückt. Man kann aber mit Recht erwarten, daß mit 
Aleorehnus F große Faktoren wesentlich schneller gefunden werden 
als mit E. 


Es liegt nahe, die beiden Verfahren zu kombinieren und den Übergang 
so zu wählen, daß eine optimale Rechengeschwindigkeit erreicht wird. 
Selbstverständlich wird zunächst Algorithmus E bis zu einem 

größten Testfaktor p. angewandt, da damit schnell kleine Faktoren 
gefunden werden und somit in der Regel nur noch ein Restfaktor 
weiterfaktorisiert werden muß. Außerdem brauchen bei anschließender 
Anwendung von Algorithmus F nur solche x mit x-y zwischen /n und p, 
getestet zu werden. Die Berechnung eines optimalen Wertes p, wird 
weiter hinten durchgeführt. Da dieser Wert immer größer als m ist 
(wobei n der Restfaktor ist), kann n nur noch aus höchstens zwei 
Faktoren bestehen; sonit liefert Algorithmus F dann auch in jedem 
Falle Prinfaktoren. 


Nun zur Realisierung der Algorithmen E und F im Progrann. 
Analysiert man Algorithmus E, so fällt auf, daß es überflüssig ist, 
weiterhin gerade Faktoren p zu testen, wenn Teilbarkeit durch 2 
nicht (mehr) gegeben ist. Damit wird die Anzahl der Tests praktisch 
halbiert; dementsprechend auch die Rechenzeit. Die entsprechende 
Überlegung gilt für den Testfaktor 3. Ist die zu faktorisierende 
Zahl nicht (mehr) durch 3 teilbar, so reicht es, den Testfaktor 

von 5 ausgehend abwechselnd um 2 oder 4 zu erhöhen. Damit werden 
alle Vielfachen von 2 und 3 übersprungen. 

Eine Verminderung der Teilertests auf diese Weise läßt sich nit 

den Primfaktoren 5, 7, 11, ... fortführen. Jedoch zeigt die letzte 
Zeile der folgenden Tabelle, daß der zusätzliche Nutzen (Einsparung 
an überflüssigen Tests) immer geringer wird, während der Aufwand 


unverhältnismaßig ansteigt. 


Testfaktoren ent- 
u nn eat 
Feiler bis eingchlicht. 


Bereich, den eine mNn.2-.C: - 
en 270| 2310| 30030| 7=2-3-5-...p 


Anzahl der Tests 

re Em) 
(Programm länge) 

Ber eich, der mit 

einem Test 487|527| T/Ym 
über decat wird 

Gewinn Jeyenüber 3 DD) 

vorherigen fFail ‚3% 


(Dabei ist Y die Eulersche Y-Funktion: Y(n) = Anzahl der zun 


teilerfrenden Zahlen kleiner n) 
Da für jeden Test mindestens ein Unterprogrammaufruf mit Eingangs- 


parameterübergabe notwendig ist, wären bei £) mindestens 


der relativ lau, indirekte Unterprogramnmaufruf zugrunde gelegt). 
Bei e) sind minde@tens 144 Bytes in der Schleife notwendig, was 
durchaus realisierbar ist. Für das folgende Progrann wurde die 
Alternative e) zu d) untersucht, wobei allerdings in d) die 
Unterprogramme abgerollt wurden, d.h. nur im Erfolgsfall (Teiler 
stunden) wird hier ein Unterprogramn aufgerufen (in diesem Fall 
ist der indirekte Unterprogrammaufruf nicht nur jeweils um ein Byte 
kürzer, sondern auch etwas schneller (d.h. das Überspringen ist 
schneller)). 
. Es zeigte sich, daß dieses Vorgehen nach d) die günstigsten 
Rechenzeiten lieferte. (Ein Schleifendurchlauf Zeile 052 bis 710 
dauert 1,160 sec) 


480x353 = T%: "m nur für die Schleife notwendig (dabei wurde 


Realisierung des Fermatschen Algorithnus. 

Während alle mir bekannten Realisierungen des Algorithmus E mindes- 
tens die Inkrementierung nach b) der obenstehenden Tabelle benutzen, 
ist es nicht ganz so offensichtlich, daß man im Algorithnus F 

die Anzahl der Tests ebenfalls (sogar effektiver) drastisch 
reduzieren kann. 

Dieser Algorithmus wurde von Fermat benutzt, und es ist nicht 
anzunehmen, daß dieser sich für ein Verfahren entschied, bei dem 

er wesentlich häufiger die Wurzel aus einer Zahl ziehen mußte, 

als im anderen Falle eine Division durchzuführen gewesen wäre 

(zumal Fermat bekanntlich nicht einmal einen TI-Rechner zur Verfügung 
hatte, geschweige denn eine wirklich leistungsfähige Hilfe wie 

den HP-41C). 

Fermats Vorgehensweise bestand darin, daß er die beiden Erdziffern 
des Radikanden x®- n betrachtete, um so viele Fälle auszuschließen; 
er arbeitete modulo 100. Soll nämlich x®- n ein Quadrat sein, so 
müssen die Endziffern 00, a1, a4, 25, b6 oder a9 sein, wobei 

a gerade und b ungerade ist. 100 wurde sicher deshalb als Modul 
gewählt, weil man n mod 100 bei dezimal dargestelltem n direkt 
ablesen kann. Für die Realisierung mit dem Rechner ist das kein 
Vorteil mehr; daher kann man einen günstigeren Modul suchen (In 
Programm habe ich 144 gewählt). 

Um zu veranschaulichen, wie diese Vorgehensweise im Algorithmus F 


benutzt werden kann, sei dieses zunächst mit dem Modul 9 verdeutlicht: 


Voraussetzung ist, daß n schon soweit reduziert wurde, daß 3 kein 
Teiler mehr ist. 

In der folgenden Tabelle sind in der Kopfspalte alle in Frage 
kommenden Reste n mod 9 aufgeführt (das sind f(9) = 6 Stück, denn 
0, 3 und 6 scheiden aus, da n nicht durch 3 teilbar ist). 

In der Kopfreihe sind die Werte x mod 9 aufgeführt; das sind 
natürlich 9 Stück. Die Eintragungen in der Tabelle sind jeweils 
die Werte x?- n mod 9, wobei diese Werte mit doppelter Zeichen- 
breite gedruckt wurden, falls sie ein Quadrat mod 9 darstellen. 
(Als Quadrate mod 9 kommen nur die Zahlen O0, 1, 4.und 7 in Frage, 
wie man leicht nachrechnen kann). 


- xn08 9 
Kt2-R mp 9 8 1 2 3 4 5 6 ? {=} 
E47 
a00 TUE Din vi al nic abe Dir De fra an De ae ae De oe are ai ar a ac fe ee ar er a ae oe 
N 00 9 ” 
1 ” & [2] 3 8 6 6 e 3 [=] 
4 
2 [ 7 8 2 7 5 5 ? 2 R 
E 
4 * 5 6 a 5 J u 5 8 6 
- 
5 * 4 5 L) 4 2 ? 4 8 5 
» 
? r ® 3 6 2 8 [4] ? 6 3 
3 
3 * 1 j2 & N 3 3 1 5 2 


zu testen, für den gilt: x mod 9.= 3_ und gleichzu nmod I9=K&, 
denn der zu untersuchende Radikand x*- n ist keine dratzahl, da 
er bei Teilung durch 9 den Rest 5 ergibt, und 5 ist kein Quadrat 
‚mod 9. Unter Berücksichtigung der Ergebnisse dieser Tabelle ergeben 
sichfolgende Inkrenente für x: 


nnod 9 = 2, 5 oder 8: 
x- [H/9J)-9 und dann jeweils um 3 erhöhen. 


Es ist im Algorithmus F also beispielsweise uns 1. x - Wert 


n nod I = 1; 

x- [M/Y-9 +1 und dann abwechselnd um 7 und 2 erhöhen. 
n mod 9 = 4: 

x- [In/9/-9 + 2 und dann abwechselnd um 5 und 4 erhöhen. 
n mod 9 = 7: 


x- [M/Y-9 + 4 und dann abwechselnd um 1 und 8 erhöhen. 


Bei den ersten zwei (bzw. 3) Inkrementierungen muß zusätzlich 
abgefragt werden, ob x?- n negativ ist. 

Bei dieser Inkrementierung werden also mit einem Test mindestens 3, 
meistens sogar 4,5 xX-Werte abgedeckt, im Gegensatz zu nur einem 
bei der Primitiv-Version. 

Wie man sieht, sind jedoch leider die Inkremente abhängig vom Input 
(das ist beim Algorithmus E nicht der Fall). Die Berechnung der 
Inkremente erfolgt aber nur einmal und hat deshalb keine Rechenzeit- 
verlängerung (im späteren Programm nur ca. 2 sec) zur Folge, sie 
verlängert das Progranmn jedoch erheblich. 

Wie schon erwähnt wurde im Programm eine Inkrementierung mod 144 
gewäblt. Die der oben entsprechende Tabelle ist fast 1 m? groß, 

so daß sie hier aus naheliegenden Gründen nicht abgedruckt werden 
kanr. Die Auswertung dieser Tabelle (und die anderer Module zu 
Testzwecken) erfolgte selbstverständlich durch ein Programm, dessen 
Arbeitsweise hier kurz geschildert sei (mit der Hoffnung, daß jemand 
die Abhängigkeit der Inkremente vom Input und vom gewählten Modul 
besser durchschaut als ich; das entsprechende Programm stelle ich 
als Listing oder auf 2 Magnetkarten gerne zur Verfügung). 


Eingegeben wird lediglich der zu N rOD 144 = 18% N MOR 144 = 133 
untersuchende Modul hier AH). Km2=1 Krp2=' 
Nach geraumer Rechenzeit KKR2=7 EM 72 = A 
werden dann alle Quadrate NM3=1 NMOD 3 =! 
modulo 144 ausgedruckt, und KARO 4 = 13 KMT4 = 7 
anschließend für Jede zum Modul KMA&=ı km4z=ı 
teilerfremde Zahl ein "Zettel" KMI3 =: MMOD 36 = 25 
der folgenden Forn: Nrb6=ı! Li) 2 
------ - --- .- N mol 24 = 13 KMOß 24 = 13 
KNOBS = 5 me =5 
144 mu R mp 18 = 1 nmi18=7 
NAR9=1 nnt9=7 
Rie= & NBOb 16 = 13 Knob 16 =5 
Fil- 1 nmpi2=! xen12=1 
Ri?7= 4 
R13= [- } ANFRHESINCRERENT: ANFANGS INCKEMEN! : 
R14= 16 
R15= 25 1 Ki be} we. 
Ri6= 36 
R1?7= 49 SCHLEIFENINCPEMENTE: SCHLEIFENINCRENENTE 
R13= 52 
R19= 64 16 wor & MER 
R28= ?73 se or. 46 u. 
R21= 861 16 [E22 8 Rr 
R22= 97 2 ar ı1C w.. 
R23= 189 16 DE 25 e RR 
R24= 112 38 vr 46 er 
R25= 121 15 wer 8 Er 


2 De 1@e rk 


= 


sequenz 122 238 (ohne 220 bis 229) umgesetzt, wobel ich sicher 
bin, daß man das eleganter machen kann. 

An dieser Stelle sei eine zusätzliche Schwierigkeit genannt, die 
Algorithmus F bereitet: Da im Ausdruck x*- n der -x"Wert bel 
großem n größer als 10” wird, ist keine korrekte Berechnung mehr 
möglich, wenn wie im obenstehenden Primitivprogramm inkrementiert. 
wird. (Man versuche damit 98947-101063 zu faktorisieren). 

Diese Schwierigkeit läßt sich aber umgehen, indem man ausnutzt, daß 
(x + i%”-n= (zZ-.n) + (1?+ 21x) ist, wie das im späteren 
"Programm realisiert wurde. 


Im Gegensatz zu Algorithmus E, bei dem erhöhter Aufwand immer 
geringeren zusätzlichen Nutzen bietet, führt beim Algorithmus F die 
Wahl eines geeigneten größeren Moduls ( mit mehr Primzahlpotenzen) 
zu wesentlich besseren Ergebnissen. Nach Knuth ist beispielsweise 
bei Berücksichtigung der ersten 30 Primzehlen ( mit dem Tagghen- 
rechner natürlich nicht realisierbar) nur noch einer von 2 Fällen 
zu testen. 
Die Arbeitsweise von Programmen, die auch Zahlen> 10” faktorisieren, 
stelle ich mir so vor, daß beim Übergang zum Algorithmus F das 
Programm stoppt und dann nur noch anzeigt, welche von möglicher- 
weise sehr vielen Datenkarten mit den richtigen Inkrementen einge- 
lesen werden muß, da das Berechnen der Inkremente im Programm zwar 
nicht zu zeitaufwendig wäre, jedoch den Programmumfeng so stark 
aufbläben würde, daß für die eigentlichen Testroutinen, die dann 

a wesentlich komplizierter sind, kaum Platz bliebe. 

i unserem Beispiel, dem Modul 144 werden je nach Beschaffenheit 
des Restfaktors n entweder 72 (n mod 3 = 1) oder 48 (n mod 3 = 2) 
x-Werte mit 4 Tests überdeckt. Das bedeutet, daß bei n in der 
Größenordnung 10 mit den ersten 4 Tests 3720 bzw. 3050 Testfaktore 
p überdeckt werden. Dieser Bereich für p nimmt mit wachsendem x 
bis auf ca. 44 in beiden Fällen ab; bis dahin ist die Testmethode 
nach Algorithmus E schneller. 


Zum Abschluß sei noch die Vorgehensweise erläutert, mit der die 
hoffentlich optimalen Übergangsstellen von E nach F gafunden wurden. 
Die "zeitfressenden"” Schleifen im Programn sind die Frogrammsequenze 
052 bis 310 für Algorithmus E und 262 bis 324 für Algorithmus F. 
Die Schleife für E wird bei meinem Rechner in «= 1,160 sec 
durchlaufen, während für die Schleife in F die Zeit 4= 1,669 sec 
benötigt wird. (Bei der folgenden Konstantenberechnung geht 
letztendlich nur das Verhältnis A“ ein, so daß unterschiedliche 
Rechnerlaufzeiten kompensiert wären). 
Insgesamt muß vom Programm jeder in Frage kommende Faktor p im 
Bereich 0 bis Jh getestet werden, wobei das in folgender Reihenfolge 

eschieht: 

on O bis k,/n’ mit Algorithmus E und anschließend von Yn bis kn’ 
mit Algorithmus F; debei ist m = n mod 3 (= 1 oder 2) und es ist 
O<ck,<k,<1. Es sei weiter B„e 72 oder 48 (für m = 1 oder 2). 

Im Algorithmus F gilt: R 

n = p-q = (x-y)(x+y) = x’- y? 


d.h. p(x) = x-Yx?-n bzw. x(p) = (p?- n)/ap 


Gesucht wird nun zunächst eine Funktion f(p,n), die die Differenz 
des Verhältnisses der überstrichenen Testfaktorbereiche zu den 
Verhältnis der Rechenzeiten für diese Bereiche angibt. 


LR-PU-E)_ _L 
f(p,n) = 225° en) _ 


Diese 48 _ 63 "Zettel" wurden dann mühsam in die Programn-- 


n+p* P?-n 1 8 
-( (ar +2.) -n +77 - Bm) 35 nn 


:Di1e Faktoren: ku werden‘ 'dann:dı 
Nulistellen:p dieser Funktion 
Die Nullstellen dieser Funktion für 
stärkerer Gewichtung. sroßer Werte)' wurden: nit SoL; 
Mathe I Moduls berechnet. Die:lineare Approximation die 
Ergebnisse mit den Kurvenanpassungsprogrann. der. "Stendardgrbgränn- 
sammlung ergibt für ; 

=1,00000; a = 21,79642; b= 0,48023 
und für j 


n mod 3 = 2: R?=1,00000;.a = 21,74261; b = 0,55692 

Die absoluten Glieder a können Vrnachiäusizt werden, da die Schleife 
in E bei einem Durchlauf schon 30 p-Werte überdeckt. Es ergibt 

sich also für das Programm: 


k,= 0,480 und ky= 0,557 


n mod 3 = 1: M* 


Die längste Rechenzeit ergibt sich für p = 10”. 7 (größte 

mean p<10” mit p mod 3 = 2): 45 min 46 sec, dagegen für 
®_33 (größte Primzahl <10”): 41 min 23 sec. 

I "ungünstiger" Fall ist sicher 55697-179535 mit 45 min 38 sec, 

denn hier würde der kleinere Faktor mit Algorithmus E direkt 

gefunden, wenn nicht zu F übergegangen würde. 

55681 -« 179591 mit 35 min 19 sec liegt kurz vor diesem Übergang. 

Diese "Ungereimtheit" liegt einfach daran, daß mit Algorithmus F 

von der Wurzel an abwärts getestet wird; dafür wird dann ja auch 

beispielsweise 99991-100003 in 30 min 31 sec gefunden. 

(alle Rechenzeiten obne angeschlossenen Printer). 


Diese Beispiele zeigen, daß mit rn F für 52% des gesanten 
Testbereiches nur 26,3 % bzw. für 44,3 % nur 22,8 % der Gesant- 
rechenzeit benötigt werden. 


Die Rechenzeit für das untenstehende Programm, das die Zahlen 
unterhalb 2°, die die größten 10 Primzahlen< 2” enthalten, 
faktorisiert, beträgt knapp 50 min. 
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. Variabies 

Open * Demrirugsbe 

[N v Drrandes 

karrununen n i Dei 
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ird das Programm_ohnre 
anae schlossenen_Printer _eingefaskt 
So ird Zei oO sche_Listin 
Seite_5 XEQ’PRA’ (db. de 


779 5 2 - 


A Aa Re, 


"DEI 
DESCRIZIONE DEL PROGRAMMA . 


A lons, Vi bien 
Apoilcin, Eau, tag 


die_kanonische Zerlegung in ihre_ Primfoktoren ermittelt, 


abe, rd; erste Proszrommteil_(E, oler_APAusnufzung des 
2gr verhaltens Pri oO _der tleiler_bis ca. O5- 


die_ Zahl Yaklorısiert. SEEN EIER 
Der dann_ver bleibende Restfaktor, der nur noch aus höchsten 


Zwei Fokloren bestehen kann, wird über den Ansal2_Nn=(x- x: 
a er_Fermat'sc, ethode (F., iter tersuchl , wobei 


rementlieru ler__X- le er Kon vzverha 


dl 4 wird. 


Literotur: D.E.Knuth , The _Art_of_Computer_Pogrammınz VoLZ, 45 
Operasing limiss and Warninge _ Nach Verwendung des Programms als _ Unter- 


Cara Vanschwanb ungen 
ne menifi 4 arm us di S er Funktions flags 


72,27,25 und 2 da nazeigae fortmaf 


334. neu Jesetzt werden. 


ve einge gebe. ahl 7 Ber 2&ns40” lie e 907, 


falls sie _ nicht yon zeahlis wird gerundl, Zu Kleine oder 
Zu große Eingeben werden vom Programm nich! abasefrazt. 


This program har been verified only wich respect to ıhe numerical example given in Program Dienpusn I. User accepts and uses this pro 
marctial AT HISOWN RISK. in rclianer sılely upum his own inspection of ıhe program materual and withwut reliance upon any represens 
or dexcnipium concerning ie program mareraal. 

NEITHER HP NOR TH: CONTRIBUTOR MAKES ANY EXPRESSOR IMPLIED WARRANTY OF ANY KIND WITH REGARD 
THIS PROGRAM MATERIAL, INCLUDING, BUT NOT LIMITED TO, TIE IMPLIED WARRANTIES OF MERCHANTARII 

AND FITNESS FOR A PARTICULAR PURPOSIL NIEITHER IP NOR TIIE CONTRIBUTOR SALE DE LIABLE FÜ 

OR CONSEQUENTIAL DAMAGES IN CONNECTION WITH OR ARISING OUT OF TIIE FURNISTIING, USE OR ! 


OF IHIS PROGRAM MATERIAL. 

Darur Programm wurde kedialch anhand dies en der Progummiechrediung I enibahenen /ablenhergpark: uhrrpeofi. Dice Remeser erboh url beması des Prog 
Anika dun; er hatıen dirshalh  gienhgulug, alı er Verens andenwenig prasermeen beschrarhen wurd: wis du uenctmuchen. 

TEUER HPNEKILDERTNSENDER r DAN IROGRANMMATERIAL. HIN! 
HAFTUNG, INSBESONDIERI:. NICHT Sl, UT ODER SEINE VEAWINDRARKEIT PU! 
SENDHR HAFTEN AUCH NICHT FR INDIREKT: ODER FOULGEMNIADEN. 

Le prewm pirgrumme n’5 de Send quion re qui crmaerme Veacmple mwenteagur wndagee dens ba dememumn du pengesmee N H'eleaı ur sceeper er wıle 
ANS PROPRIS IM JUN.S er du se her unggurmenı 8 13 Jrrrmper an pen teen cha fenvgramme kann we seictet d mr urn derlenaten er lernen 

NP ET IE IWRNISSEUR NE DONNENT AUCUNE GARANTIE, EXPRRSSE ORT IMPLICHT COREHANANT 14. PWENENT PROWRAMM 
TORIMEACIALISATION FT D’ADAPTATION NEN URAGE PARTMUNER. HP ET IE POURNDNM UA NASMUNENT NDCUNT BI SPONN 
GINLFANT. LES DOMMAGES INDIRBETS NEN DE. LA TOURNITURE DE LUTIEISATIOIN OR! DU EONETIONNEMENT DU PRISENT PACHGI 
Querun juogramme # san vertuate daniı par quannıe ennrerne Fewanpen namen wahren nes Dewwrwene del Pronesmema B wihrzar ıc scene wihrar 
AH INTRO AIM.IUO, Kulsmbs ungameme della penpras vertwe del programme e mom hasanııma su alarc la manazuuu cr ehrwerunne 

NE. 1A SCOHIKTA NE. AUTOR DANNU ALAUNA GARANZIA IMPLICHA 0 ESPLICHIA CONCHANENTI. MI PRINUNTI. PROGRAMMS 
RICHARD ALLA SUA LONMNEREIALIZZNZIONE O ADATTABELTTA AD UN US PARTMOLART NT. DA SMMIETA DID NN. BADER 
RESPONSARTLITA TER DANNI IMMETMATIO NEDMATI CAUSATIDALLA FORNITURA, UTIIZZAZIONE O BUNZIONANMENTO DIE PR! 
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. DESCRIPTION. DL PROGRAMME 
DESCRIZIONE DEL PROGRAMAA I 


or dern 


anderen Via isfäaden. 


schlossenem_ Frinter: b 


an [3 


S 


dr) 


gli 


220 
s2r2#5#11 


234 
=212%#71 


34765731 
=3r2=7w11*13 
=17=227 


36939357 
=317247m13#23 
”37%#33 


2172649216 
=210#*2537 
33923 


2181168396 
=2179*8529191 


r anzu Schlje 
RIS Cbzw. XEQ 70) 


er 7) v 


TLeRRaGRAEO ENTER? 
7.999999 1X 
J760g,99 ee 
KEQ "PRN“ 
5764801 
=719 


93978592519 
=2143%2153 
"2161 


89589869856 
=2716*131971 


öl te 


v r schie dene 


eschalletem aber 
nawesentl 3 
a (tere 


be ‚qtle Faklorısıerun le 
er, bzw. eınzu schalten un an fl 
einen _ Ausdruck Zu be kommen 


2,89 ENTER? 
27,00  YeX 
111,49 = 
13421 7616,6 em 


134217617 
IS PRIME 


SF 8 
59097942612 
=2r2 
"3t2 
"1172 
“13 
"1712 
“1912 


Rum 
5397942612 
=212=3t2 
"11r2%13 . 
„1712m19tT2 


PROGRAM 
PROGRAMMA 
LISTATO DI PROGRAMMA 


BIeLEL -PRn- 
SF 05 SFI2 E39. 
FROM STO0 2 
.STO02 4 SO + 
STO 86 SICH 11 'STO.88 
* STO®9 CLR RSTO 11 
ASTO 12 MRCL 0 


sr 21 SF 25 PrA CF 21 
RYIEN 


RCL 00 ENTER? ENTER? 
STO 07 REL 82 nOB 
X=0? XEQ IND 64 CK 3 
MOB K=89 XEO IND 64 
ax 5 md x 

XEQ Ind © CLX 7 MOB 


SOLBL 08 

CLX RCL 84 LASTX + 
ROB xX=07 YXEQ IND 04 
ax RC 02 LASIX + 
NOB xX=0? XEQ IND 84 
CLX RL 04 LASTK + 
nos %=0? XEO INB 94 
can RL 02 LASIX + 
nOB X=0% YEQ IND 84 
CLX RL 24 LASTK + 
nOB x=6? XEO IND 04 
AR ML IRSTK + 
"OB X=0? XEQ INP 84 
IX RL 02 IASIK + 
MI X=0? XEQ IND 04 
ax KLR LAK + 
map X=9? YXEO IND 64 
SE 10 CTO 88 


D 
12} 
NN 


I 


N 
N 
RN 


r 


L. 
I 
r 


ul 


ar LasE 112 07? 
cd 97 


N 
N 


rer cr ws rn |Sckleimzähe) | 
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fUNG 
. LISTAGE.DU PRÖGRÄMME ' 


Commems 
Kommen 


IF86 CF: RLe 3 
MOD CTO IND X. 


TH 
KLe7 4 m 3 xY? 
cTO 83 18 STOM % 
SE C08 


148+LBL 93 
12 sta0ı SF @7 
cT0 8 


145eLBL 01 

rc 07 12 MOB ST+ X 
RCL O7 9 MOB + 
yEa IN X CTO 82 


156 LBL 03 
16 STO6I 2 RTN 


161>LBL 96 


18 STOen 14 Rn Ber Aaun 


ahramenr 


t66+LBL 69 
8 sro 


ur 


% RN 
Algoribh 


ITieLBL 15 
28 STO 81 16 RTR PrgruonZ- 
176+LBL 18 

4 STO0ı 32 RIN 


sieht 21 
28 STOe1 9 RM 


186 BL 92 

0602 RL 05 RB 
STO 83 STeX - ML 92 
- so RL 16 
noB CIO IND X 


Qu9LEL 83 

291-LBL 11 

(F 7 Ra RO 02 
Sro8ı ML EI X 84 
$TO 83 


BI LBL 81 

210eLBL 13 

FSTT 6 CTO 11 PLL 82 
20 84 STO 2 


Ql6eLBL 85 
&17eLBL 07 
210eLBL 9 
a9 13 


Keystrohes 
Tanenfı ii 
‚Tomthers 

Taw 


RÜL 97 SORT REL X 
: RCL 85 MOB - STE 
xt2 RL? - 


Znit ialisierumg]_ 


ii Ku 2 7 FR 
CLX 


Xu 87 %=0? GTO N 
» RDN RL 8 XER 07 
m CTI O1 REM 
ra e2 ET 1-9 
cTo ei RIM RCL 03 
xEO 97° X=9? 6TO 0 


„ 


{LUX RCL 18 REL 96 


—— AL 65 7 INT. ST 18 chl ben ähler 
— [SG 190 


> 6 
N 
» “ 
N 


. ML 12 
CL RLB4 Xr2 RL 86 
LASTK Ste 86 SIer 0 
2 + + ENTERt SOET FRL 
“9? CTO 91 CLX 
RCL OL X? KL O6 
LASTK STE 86 STeX © 
* + ENTER? SORT FRC 
%=0? CT 81 CL 
REL n2 Xt2 RL 
LASTX STE 6 SIeX = 
+ » ENTER? SORT FRE 
= cT001 IX 
RL 03 2 ML 
Ei LASTX ST 6 SI ® 
+ + ENTERt SOHT FRC 
x cT091 BE 18 
cr 12 6707 


ar_ Algor. F 


Konrgruenz- 


x 
N 


& 
S 
! 
Y 
Q 
\ 
- 


I26+LBL 87 

2 ML LASTK 
TH THX. + 
ENTER? X0? RT SORT 
FRC RIM 


| 
it 


J41LEL 01 
RCL 06 LASTX - 
s XEQ 04 


eo puprrghaneniehlninge Vlwune pe wur Mn guet‘ 
Kran men Paperieım smbichra Aiehrlane boneea | ven I hir hu" 


FRC 


SV wehren de Bao chi 
Per tarııme unare lacrdlan 


AMLEL 7 . 
RCL 07 ENTER? SICH 
STO 87 XOY X? 
XEQ @1 BEEP YEQ 07 
E21 CT 


FRLBL 18 

SF ı2 SF2I CR 
ARCL @®9 AYIEU RCL 89 
19 1 + 


TB. 14 

an ARCL INB X ISC X 
AR. IND X AVIEN 1SC X 
ET0 14 


T7ILBL 92 
Av CK CD CF 12 
CF 21 RTH CTO 10 - 


IOHLBL 4 

RCL 97 LASTK MOB X9? 
CTO 81 X LASTK 

$T/ 97 SICH STe-Y RDN 
6T0 84 


399LEL 61 

5% 05 "= 

RCL 08 LASTX AREL X 
XeY? IS PRINE” SICH 
Rt xy? CTO 01 "Hr 
AR X 


ang Oi 

FS? 25 SF 21 FS? 09 
AVIEW CF 21 ASTOZ 
ASHF ASTG T CAR 
ARCL IND 69 ARCL IND 69 
APCL Z MRELT AST m 
ASHE STB 01 ASHF 
ST Y CR .ASIo X 
xr? 6I0 01 RL 
STO IB 9 RCL 91 
510 13 ‚ 


ind 0 

wo Mm Mm 2 
STe 88 Ste 69 RIM 
STo Im 88 NY 


USE 


NS 
a 
N 
N 


: 


Zusätzlich 


nr pen er nen” 
brrtamgne” 


PROGRAMMA 


To 


A5leLBL 13 
STO IND 89 ARCL IND 08 
ARCL IND 09 FC? 08 
AVIEN 


ß 


ASTOLEL &8 

LASTX STO BL RCL 0? 
ST NOV .- 30 / 
RCL 7 3 MOD 

KEO IND X Rt = IKT 
STO 10 RCL 87 RL 87 
RCL 67 RCL BL RBS RTN 


ABReLBL 90 
481oLBL 61 
72 SO 65.48 RN 


X 


: = S un Q\ kn SYS 
£ BK| RB I 
& N a, 
i Rn.K 
r nn y r 


[4 


486 LBL 82 
4 ST 85 ,557 RTN 


le 83 

Ft? 00 FC? 25 RN CAR 
SF 21 ARCL IND 08 
RRCL IND &9 AVIEM CLA 
cr 21 END 
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eine fertige 
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FLÄGS; BRTRUEE 
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Ss 
zz 
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en ne 
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Bere ee] 
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Assignnente 
Tetucohriegung /Ayugnainue [ Auckmmurası 


Function 
banken 
Funrmen 
Vassuer 
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"Dis Problem ist auf den ersten Blick tatsächlich recht simpel: 


Drei Werte sollen sortiert werden... 


Das gängige Sort-Programm für den ler dafür einzusetzen, halte ich 
für eine zu einfache: Lösüng. Also mus. ein neues Progrämmchen her! 
So gedacht, so getan. Nach etwa einer halben Stunde hatte ich's dann 
such, j 


Wie lange habt Ihr wohl dazu ? Ich gebe zu, dass ich das Problem 
recht lange gewälzt habe. Nun lief es jedenfalls. Doch das genügte 
mir noch nicht. Eine BASICL-Version musste her. Doch da merkte ich, 
dass es so 'einfach', wie mit dem 4ler gings da nicht mehr. Zwar 
breucht das Progrämmchen nur zwei (Verarbeitungs-)Zeilen, aber ich 
brauchte such ein Hilfsfeld. Die PL/1-Version war dann schon etwas 
einfecher (zwar ein wenig viel Schreibarbeit), obwohl ict im ersten 
Test einen Dump produzierte (was soviel heisst, wie, dass der fRechrer 
- eine IBM 370/148 - ins "Kraut! gefahren ist). 


Beiliegend jedenfalls die 4ler und die PL/l Versionelh. Bevor Ihr 
die Aler-Vereion ausprobiert, versucht doch, dieses Problemchen selter 
zu lösen! Eine gute Uebung, nicht nur für Anfänger! 


Werte in Roi bis R 3 gespeichert 


LBL "SORT3" Kurze BASIC-Version 

RCL 02 

REL D1 10 REM TAB=SORT=3=ELEMENT 

xy? 2D INPUT T1,T2,T93 

GTO 00 30 IF T1 T2 THEN A=T2:T2=-T1:T1=A 

x<>0D2 40 IF Tl T3 THEN A=T3:12=T2:T2=T1:T1=A 
sto ol 50 PRINT"SORT: 1."511,"r2."5T2;"3.";T3 
LBL 00 6D END 

RCL 03 

x>y? 

GTO 01 Viel Spass beim ausprobieren! 

“ey 

x=z>02 

x<>03 (Das PL/1 Programr ist eine ganze AZ Seite lang. 
x? ich drucke es daher lieber richt mit atb...Oliv- 
STOo 01 

LEL 01 

18 .END. 


Vielleicht findet jemand eine noch kürzere Version!? Schickt sie an 
Dliver zur Veröffentlichung. 


MITTEILUNG der HP-41[-Anwender-Programm-Bibliothek, Dornach 


Ich möchte allen recht herzlich für ihre Unterstüzung danken. Leider 
bin ich - durch persönliche Probleme - gezwungen, den Betrieb vor- 
läufig einzustellen. Ich werde mich jedoch bemühen, das ganze bis 
Herbst '8l wieder in Gang zu bringen. Bis dahin werde ich ausserdem 
in der Lage sein, die - etwas voreilig angekündigten - Lösungsbücher 
bereitzustellen. Ich wünsche allen [Llubmitgliedern einen schünen und 
nicht zu heissen Sommer. 

Happy Programming 


G ui do Studer 


Für Frogremme bin ich natürlich auch während dieser Zeit sanktar! 
HP-Anwender-Prgm.-Bibliothek, Postfach 18, 4143 Dornach (Üchweiz) 
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Für die Abdruckerlaubnis 
: sei HP vielmals gedankt! 


HP 821044 
Magnetkartenleser 
Kurzanleitung 


Wenn’ der Magnetkartenleser HP 82104A an den 
HP-41C angeschlossen ist, werden die nachfolgend 
beschriebenen Funktionen im Systern wirksam. Diese 
Fünktionen und Programme, die diese Funktionen 
"beinhalten, können nur ausgeführt werden, solange 
det Kartenleser an den Rechner angeschlossen ist. Sie 
‚können ein vollständiges Verzeichnis dieser Funktio- 
‚non.mit 2 auflisten. 
Pünktionsverzeichnis 

Hängt eingelesene Programme im Speicher 
u an. Ersetzt alle Programmzeilen ab der au- 
Bi .genblicklichen Position im Speicher durch 
das Magnetkarten-Programm. Der HP-41C 
muß auf das letzte Programm positioniert 
FR werden oder [_MAG_| Bestandteil des letz- 
Orr ten Programms sein. 

Einlesen von Datenkarten. Die aufgezeich- 
neten Karten werden ab R„ in den Speicher 
übernommen. 

Einlesen von Datenkarten, gesteuert durch 
eine Zahl in X. Format von X ist bbb.eae, 
. wobei bbb die Anfangs- und eee die End- 
adresse ist. 

Einlesen eines Unterprogramms. Ersetzt 
das letzte Programm im Speicher durch das 
Magnetkarten-Programm. Wenn 
Bestandteil des letzten Programms ist oder 
der HP-41C auf das letzte Programm po- 
sitioniert ist, ([_RSUB_) über das Tastenfeld 
ausgeführt), wird das Magnetkarten-Pro- 
gramm hinter dem letzten Programm im 
Speicher angehängt. 


(nicht programmierbar). Zeigt 
an; dabei ist t wahlweise: P (Programm), 
D (Daten), 8 ; 


er enthalten Programmanweisungen. 
Dätenkarten enthalten Daten aus den Speicherregi- 
. Statuskarten enthalten Status-Informationen 
» LWSTs ] ). Speicherauszugskarten enthalten 
iche Informationen aus dem HP-41C. 


chützse Magnetkarten 


at Hier ab- 
5 a 7) s schnei- 
Fi 25 ® den zum 
a . -®- Schützen 

von Spur 2 


:Wenn der Eckenabschnitt zu einer Spur entfernt ist, 
‚können keine weiteren Informationen auf dieser Spur 
„aufgezeichnet werden. Beschnittene Karten können 
"aber normal eingelesen werden. Zum bewußten Über- 
‚schreiben einer geschützten Karte ist das Überschrei- 
:QYüngs-Flag (Flag 14) zu setzen. 


‚Aufzeichnen von Programmen 
auf Magnetkarten 
;Positionieren Sie den HP-41C im PRGM-Modus auf 
‚das gewünschte Programm und führen Sie eina Karte 
‚ein. 'Der HP-41C fordert die Karten mit 
’an, wobei kk die als nächstes zu schreibende Spur 
und nn die Gesamtzahl der erforderlichen Spuren ist. 
'Zum Schreiben „Privat“-geschützter Programme 
führen. Sie aus. Diese Programme können 
ven angezeigt, geändert oder erneut aufgezeichnet 
en. 


Binlesen von Programnkarten 


Programmkarten können auf drei verschiedene Wei- 
son eingelesen werden: 1. Schieben Sie die Karte ein, 
wobei sich der HP-41C_nicht im PRGM-Modus be- 
findet; 2. führen Sie aus; 3. führen Sie[MAG] 
aus. Der HP-41C fordert die Karten mit 

an, wobei kk die am niedrigsten nummerierte Spur ist, 
die noch nicht gelesen wurde, und nn die Gesamt- 


Verifiziert (ü rüft) Magnetka 
Te , SARRRRER 


(Statue), A (Speichersuszug), 
„_TPP-SIAWER Pagrarıea), TO MET 


HP-97 Daten); nn ist die Nummer der r. 
Fehlerhafte Daten verursacher!HECK- 
SUMERR Unbeschriebene oder unlesbare 
on vordrsachen CARD ERR. 
Schreiben von Speicherauszugskarten 
(nicht programmierbar). Zeichnet alle im 
HP-41C enthaltenen Informationen auf. 
Schreiben von Datenkarten. Zeichnet die 
Inhalte sämtlicher definierten Speicherre- 
gister ab R. auf. 
Schreiben einer Datenkarte, gesteuert 
durch eine Zahl in X. Format von X istbbb.ese, 
wobei bbb Anfangs- und ese Endadresse 
ist. 
Schreibt „Privat“-geschützte Programm- 
karte (programmierbar). Zeichnet augen- 
blickliches Programm auf. 
Schreiben von Statuskarten. Zeichnet den 
Status der Flags O bis 43 auf, Position der 
Statistik-Register, Zahl der Datenspeicher- 
register, Tastenbelegungen der Standard- 
und Erweiterungs-Funktionen sowie In- 
halte von X, Y, Z, T, LAST X und ALPHA- 
Register. 
Löscht Ro bis Roy, Ay bis Ay. Entspricht 
HP-67/HP-97 
Wählt O bis 9 anzuzeigende Nachkomma- 
stellen. Entspricht HP-67/HP-97 
Obis 9. 
Wählt O bis 9 Nachkommastellen bei in- 
direkter Steuerung durch Ry. Entspricht 
HP-67/HP-97 BSPW. 
Dekrement und Sprung wenn Null. Ent- 
spricht HP-67 [BSZ]Jund HP-970Z] MN. . 
Dekrement und Sprung wenn Null bei indi- 
rekter Steuerung durch R„. Entspricht 
HP-67'DSZ (WJund HP-97 DsZ) W. 
Technisches Anzeigeformat. Ändert nicht 


stellen. Entspricht HP-67/HP-97 ENG). 
Festkomma-Format 


der 
swricht HR-ST/HP-87 [EI 


zehi der zu lesenden Spuren. Magnetkarten können ‚Speicherauszugskarten 


in beliebiger Reihenfolge eingelesen werden. Lesevor- ' 
gang kann jederzeit mit [/S!oder [=] abgebrochen 
len. 


. Automatische Programmausführ. 


! Setzen Sie Flag 11 vor dem Schreiben der Programm- 
! karte. Der Rechner beginnt dann die Ausführung des 
| Programms bei jedem Einlesen mit Zeile O; dabei er- 
' tönt ein Piepton. 

Aufzeichnen von Daten auf Kart 


ı Zwei programmierbare Funktionen werden zum Auf- 


zeichnen der Speicherregisterinhalt$ auf Magnet- . 
' karten verwendet: [WDTA | und[WDTAx] Der HP-41C ' 


fordert die Karten mit an. 


Einlesen von Daten von Karte 


Drei Möglichkeiten zum Einlesen von Datenkarten: 
1. Führen Sie die Karte ein, wobei sich der HP-41C 
nicht im PRGM-Modus befindet (auf der Karte ge- 


speicherte Daten werden ab R., in den Speicher ge- 
taden); 2. führen Sie on aus; 9. führen Sie 


die Zahl der angezeigten Nachkomma- . 


Ändert nicht die Zahl ' 
ö Nechkommastellen.. Ent- { 


Sprung zum Unterprogramm bei indirek- 
ter Steuerung durch R,,. Entspricht HP-67/ 
HP-97[GS8) [). Negative Werte führen zu 
NONEXISTENT 

Sprung zu einer Marke bei indrekter Steue- 
rung durch Ra. Entspricht HP-67/HP-97 


Kam, Vena i orte führen zu 


Inkrement und Sprung wenn Null. Ent- 
spricht HP-67 [SZ] und HP-97[182 \[T). 
Inkrement und Sprung wenn Null bei indi- 
rekter Steuerung durch Rz. Entspricht 
HP-67[18Z() Jund HP-97[18Z)M). 
Austausch der Inhalte von Primär- und Se- 
kundär-Registern. Vertauscht Ro bis Ro 
gegen R,, bis R,,. Entspricht HP-67/HP-97 
[P3S] 


nn: 


Listet bei angeschlossenem Drucker die 
Inhalte von Ro bis Ras, Rx bis Ras auf. Bei 
nicht angeschlossenen Drucker werden 
zuerst die Registernummer und dann der 
Inhalt angezeigt. Entspricht HP-67/HP-97 


[REG] . 

Druckt bei angeschlossenem Drucker T, Z, 
Y. X. Anzeige, wenn kein Drucker ange- 
schlossen. Entspricht HP-67 [STK] und 
HP-97 [STACK ]. 

Druckt bei angeschlossenem Drucker X- 
Registerinhalt. Zeigt X an, wenn kein Druk- 
ker angeschlossen. Entspricht HP-67 (-x-) 
und HP-97 [FRNTE). 

Ruft Inhalte der Statistikregister zurück 
Entspricht HP-67/HP-97 [z+)._ 
Wissenschaftliches Anzeigeformat. Ändert 
nicht die Zahl der angezeigten Nachkom- 
mastellen. Entspricht HP-67/HP-97 (Sci). 


Magnetkarten - Arten 


Tele Sour2 
{10 Register) 


IE 


Spuri — 


(16 Register) 


aus. Der HP-41C 


Zum Schreiben, führen Sig [Wall] 
‚fordert die Karten mit NN an. Vorzeitiges 


Abbrechen des Schreibvorgangs tuhrt zu einem un- 
vollständigen [_WALL_} Kartensatz, der nicht einge- 
lesen werden kann. 

Überzeugen Sie sich zum Einlesen des Kartensatzes 
davon, daß der HP-41C nicht in den PRGM-Modus 
geschaltet ist und führen Sie den vollständigen 
[_waıt | Kartensatz in beliebiger Reihenfolge ein. 
Unterbrechung des Lesevorgangs führt zu 


MEMORY LOST 
XROM Funktionen 


Kartenleserfunktionen in Programmen werden als 
XROM-Nummern angezeigt, während der Karten- 
leser nicht an den HP-41C angeschlossen ist. Einzel- 
heiten zu XROM-Nummern können Sie im HP 82104A 
Magnetkartenieser Bedienungshandbuch nachlesen. 


HP-67/97 Kompatibilität 
HP-67/HP-97 Magnetkartenprogramme werden zur 
Verwendung mit dern HP-41C übersetzt (siehe Kom- 


aus. Der HP-41C fordert die Karten mit RDY patibilitätsfunktionen im Funktionsverzeichnis). Zur 


an, wobei kk die am niedrigsten numme- 

kKoR Et ist, die noch nicht gelesen wurde, und nn 

die Gesamtzahl der zu lesenden Spuren. Karten kön- 

nen in beliebiger Reihenfolge eingelesen werden. Der 

i Lesevorgang täßt sich jederzeit mit [WS)oder ©) 
} beenden. 


Erstellen von Statuskarten 


Führen Sie aus, wobei sich der HP-41C nicht 
im PRGM-Modus befindet. Der HP-41C fordert die 


Karten MIRDYkkOFnn an. 

Ein&esen von Statuskarten 
Überzeugen Sie sich, daß der HP-41C nicht in den 
PRGM-Modus geschaltet ist und führen Sie Spur 1 


an 


zuerst ein. Der HP-41C fordert die Karten mit RDY 82104-90012 
Ö 


Ausführung übersetzter Programme ist der HP-41C in 
den USER-Modus zu schalten und dann die Taste für 
die entsprechende Marke zu drücken (A bis E, Wa bis 
We), wie es beim HP-67/HP-97 erforderlich ıst. Die 
Tasten der oberen Tastenfeldzeite dürfen dabei nicht 
mit anderen Funktionen bzw. Programmnamen belegt 


(ASM) sein. 
HP-41c Register HP-67/97 Reg 
Ron bis Roxy Primär-Register 
Rio bis Rıo Sekundär-Register 
Ro bis Ras AbisE 
Ra I 
h HEWLETT 
PACKARD 
..German- 8.79-Ca Printed in U.5.A. 


BL@LBL "KEGELK“ 
FIN 6 CF 21 SF 27 
CF 29 CLRG 2 STO 08 


B9+LBL B 
i $T+ 08 RCL 98 HON 
-"NAME 2" PROMPT AOFF 
ASTO-IND X 1 + STO BI 
ist ınd Bi 2 ST+ 88 


25+LRL 86 
iR RL BI I - 
ARCL- IND X *r #“ 
ARCL IND 81 "Fe" AVIEN 
CF 22 
I6+LBL b 


PSE FC? 22 CT b 9 
x(72 CT0. 86 RDN 

TONE 7° XEQ 88 

VIEN IND-Y "RDN STO 88 
1 ST+ IND 81 PSE 


% B6 


S3+LBL E 

1 ST- IND 61 XEQ 81 
RCL IND 98 RCLZ 7 
INT 18 / FRC 10 * 
'CHS XEQ 98. GTO 86 


69+LBL 88 
YEO Ol * ST+ IND Y 
RIN z 


. ?44LBL A 

RCL IND al 9 + 16 / 
INT RCLAI + 

RCL IND BI 1 - 10 7 
FRC ie *« 9 - ABS 


101% RÜL 2 RTN 


 97+LBL 82 
Pix STO 82 1 ST+ 88 
RT 


103eLBL D 
Foo SFet SF 
SF 21 2 STO 08 


110+LBL 87 
.t :5T+ 88 RCL IND 80 
SF 25 1: #* FERC 25 


CTO 88 RCL E29 X? 
SF 00 18 ST- 82 .089 

'$T0 03 CLX STO BL CLA 
RCL IND 08 xX=8? CTO ti 
ARILK LEI 7 


136+LBL c 

xEQ 16 156 83 GITOc 
Pe ARELOI "Fo" 
FS®C 81 XEO 11 RCL Bl 
ST+ 04 ARCL 84 FS? 80 
xEQ 09 FC? 00 7a - 
ST. 85 "FH" ARCL 85 
.PRA GTO 97 u 


SF 81 6T0 97 
185+LBL 89 
RCL 02 %=8? GTO 11 9 
+ 7 = RN 
194+LBL 19 
ENTER? INT ST+ 81 RDN 
FRC 18 * RIN 
ed3+LBL 11 
*+r- 8 STO 84 STO 05 
END 
LBL’KEGELN 
__EhD 336 BYTES 
KEU "KEGELN” 
NAME ? 
OLIVER 
OLIVER +1* 
TaBuauaua‘ 
ULIVER *2* 
7788889888 

‘OLIVER #3% 

Tr rOUaKauR 
OLIVER #4* 

?r7ranBudd 
OLIVER #5* 

7777300888 

‚OLIVER *6% 

7777878888 

OLIVER #7* 

2777876088 
OLIVER #8* 
7777879888 

OLIVER #9* 

7777879878 

OLIVER +18% 

7777873877 

OLIVER 11% 

HETIELTT 

OLIVER #i2* 

?ranauaade 

OLIVER #13* 

TrEBHHRBAR 

OLIVER +14* 
he * 

13: %* mu 
h L mm 
ln a8 ©& 
I — 
| u >3I RS 
| m m 
ı & ISO $ 
I 0 089 35 
} - - 5R 
I W * Ko 
t & * ER 


158+LBL 98 

ADY SF 12 "ee" 

ARCL IND 88 "+ #e" 
AVIEN 1 ST a “ " 
RCL IND 88 1 - ARCL & 
“F WURF" AYIEN 


RCL IND 88 STO 82 


CF 12 ADV CLX Fi? 82 
STO 04 FC?C 82 STO 85 


7676679778: 78 211 1 
TrrarB7TTe 71 282 2 


Hier ein kleines Progrämmchen für alle 
Freunde des Kegelsportes: Ein vollauto- 
matischer Kegelnotizkalender mit inte- 
grierten Druck-und Rechenroutinen. 
Problemstellung: 

Abspeichern einer unbekannten Anzahl 
einstelliger Zahlen, Danach Ausdruck 
in Zehnerblöcken, die jeweils addiert 
werden, außerdem Ausdruck von der Sun- 
me aller bisherigen Würfe und die Abwei- 
chung vom Durchschnitt 7. 


Bedien des Programms: 

1) Eingeben oder Einlesen (Strichcodes 
werden abgedruckt! Magn.K.bei Walter) 

\ Starts XEQ"KEGELN" 

3) Namen des ersten (bzw.nächsten) Keg- 
lers eingeben (bis 6 Zeichen) 

4) Nacheinander die Würfe dem Rechners 
eingeben: Rechner zeigt Wurfnummer an, 
einfach Taste drücken (f bis 9). Es 
muß einmal piepen (Eingabekontrolle). 
Zur Kontrolle wird immer der derzeiti- 
ge Zehnerblock angezeigt. Wer sich. bei 
der Eingabe vertut, drücke einfach E !! 

5) Erschöpft möge der Besitzer von der 
Bahn kriechen, den Printer anschlie- 
ßen und dann die Taste D drücken:Die 
komplette Tabelle wird ausgedruckt !! 
...und alle Kegelschwestern, -brüder 
beginnen zu staunen ! 

6) Der nächste Kegler kann natürlich auch 
erst einmal kegeln, bevor alle Kegel- 
pläne zusammen ausgegeben werden ! Ein- 
fach Taste B drücken und weiter bei 3) 

Allgemeines; 

Mit dem 41cv lassen sich viele tausend 

Würfe auf einmal abspeichern (= mehrere 

Mannschaften), zudem Namen usw.; auch der 

HP-41c ohne Memory reicht für einen Kegler 

schon aus. DiesProgramn zeigt sehr deutlich, 

wieviel Datenspeicher man zur Verfügung hat, 
wenn manDigitweise abspeichert! Und es hat 
sich bereits bestens bewährt !!!!! Nur: 

Der Rechner ist die ganze Zeit im RUN-Modus 

und säuft entsprechend viel: Aufpassen !! 

Geschrieben 1980 und bereits 8 Monate an- 

standslos im Test ! Oliver Rietschel (1), 


= 
u 
Pa 


11 


11 
142 2 
B76B778877 73 434 14 


Tees? 78 382 2 
7879776776 78 422 2 
7877677579 78 492 2 
Terre 1 %3 3 
Pa7TTa767 7 63 3 
Sererr7ras? Te 78 53 
x» KURT ** 
1806 WURF 
rgaa777?87 7 219 9 
7088657767 7ı 298 18 
7677877787 71 361 
mrarırere?r 71 585 15 
Sos7788878 74 579 19 
TIr7878877 73 652 2 
Trras77err? 71 783 23 


re7zı7are? 71 
rare? 71 


'rrisma - Din 1ikation des W-imvender-Clubs - sult-kugnt-Werriihner - - hungabe 5. =: 


iiete Yitel ehe Y: 

Die letzte Frier2-Ausgabe (Juni) trieb den Arbeiteaufwand ins nahezu Unüberwind- 
tare: Allein der Versand dauerte ilber einhundert Arbeitsstunden uni zog sich über 
zrei irchen :bin. Wenngleich. zu Pfingsten alle Hitglieder das Info in Händen haten, 
tr>or der Tersınd an neue Hitglieder zeitweise zusammen. j 
Aus Sieren Grinfen werden wir une nach anderen ‘Versandarten unsehen und‘ diese Aus. 
erte zunächst quantitativ ein venig einschränken. . Dennoch wänsche ich: viel Spaß, 
dern ie Auntit?t ulrd keineswegs leiden ..... Alles Cute Buer Oliver 


- Titglieder des PPC haben es bereits vor einigen Wochen erfahren: Page-Switching 
nei’t eine Yetıırde, mit der man bis zu acht Quad-Memorys an den HP-41c anschlie- 
ten kann. Diene odule können dann als Permanentapeicher dienen, wobei jeweils 
ein Aurärem im direkten Zugriff ansprechbar ist, Die Fodule können Hard- und 
Sefr vererZfiz geechaltet werden, Aber Vorsicht: Wer rach der Anjeitung is FPC- 

f 27 vorgeit, om sehr leicht auf die Zase fellen: Die FPC-Schaltung ist 

fa ! Da racı eicer Tafrage mur ertren veuie Clulsitglieder in der Lage wä- 

ren, Zar UTrbau zu bewältigen, seien alle aufgerufen, die neu eingeführte Ciub- 

börse zu beachten ! Dort findet sich ein Angebot von Hans-Günter Lütke Uphues. 


- YametkartenfE “Ischungen: Feuerdings tauchen massiv Kartenfälschungen auf, die den 
e Aasmetk=rten senr ähnlich sind und optisch praktisch nicht zu unterscheiden sind 
vıalitativ sinl sie jedoch wesentlich schlechter, so daß eine "vernünftige Anwen- 
dung nicht glich ist. Wer solche Karten irgendwo erstanden hat, sollte unbedingt . 
v-rsuchen, sie wmzutauschen, Die Karten wurden nicht von HP produziert. 


- dir n:ben ein neues interessantes Angebot von einem Computerhändler bekommen, so 
Gak die röglichzeit eines noch günstigeren Clubeinkaufs in Aussicht eteht,. Im po 
sitiven Fall firdet sich ein entsprechender Bericht im nächsten priema ! 


- Vereinzeit Icssen sich in den USA derart günstige Freise erzielen, daß selbst die 
deutschen Tro?äaändler noch teurer sind. Wer also in die USA reist, möge sich bitte 
kurz einmal hei TI1l1 (3) melden. Bei d«m Dollarkurs von 2.45 IM habe ich aller- 


Ainzr rege Bedenken ... 


- zuf der Konto von nu 6) ist eine Zahlung in Höhe von 168,—IM Ohne Absender 


einsemangen. Isfern es kein grofzügiges Geschenk eines anonymen Wohltäters ist, 
re eier der jetzt 169,-- Ärmere Mensch bitte bei Ulli melden. 


- Zine kleire Ciubstatistikr Seit Bestehen unseres Clubs wurden über T1li fant 
15 2:2 asnetkarten mit Taschen und nahezu 1560 Rollen Tehrmopapier bestellt. 
Unzefi nr 10 osc Fagnetkarten und schätzungsweise. 1 000 Fapierrollen wurden von. 
Yitgliedern mit Bedarf von über 2 000 Karten und/oder 300 Rollen direkt bertellt, 
Zavsn wurien allein im ersten Halbjahr 1981 24 ooo Karten und alle 2 500 Papier- 
r-ilen bestellt. Das macht je Mitglied 5 Papierrollen und 43 Magnetkarten ! 


nn u sun m mm rm mm 


ns nen num mm 


- Isr !etztan Inf> fehlten die Seiten 000-1 und 4127-81." Diese Seiten liegen diesen 
inf, tei ! 


ozein ? und FY 7 wurden beim Flotten der Strichcodes jeweils ein ‚Bit ven 
taurcht,. Lie Felsen. eind katastrophal, so daß diese Seiten erneut geplottet wer- 
den. Können Aje Symthetio-Pans den HAH-Killer von FN 3 erklären 777? 


1981 ,- Conyricht 1981 - Ferfigstellungs 12-06-1981 = Versand: erste Iulivsche 
Lösungsblicherz u ren 2 
Die Nachfrage nach dem Lösungsbuch Wr. 1 hat deutlich nachgelassen. Der Preis bleibt nach 
wie. vor bei 15,90 IM (Selbstkosten). Dagegen gingen viele Anregungen und Verbesserunssvcr- 
schläge ein, die bei den beiden folgenden Büchern - so hoffe ich - weiter‘nöglich berücksich- 
tigt wurden. Aus organisatorischen Gründen muß allerdings folgende Könventin getroffen „er- 
' den: 1löBu 1 und zwei sind bei Oliver erhältlich, die anderen alle bei dem jeweiligen Autcr. 
Angeboten werden die Lösungsblicher in der nenen "Clubbörse” vom jeweiligen Autcr, serit sie 
unter Alleinregie des Autor vertrieben werden. Eine andere Möglichkeit bes:<cht bei der der- 
zeitigen Clubstruktur nicht, 
Lösungsbuch 1:5 Spiele 
Lösungebuch 2:3 Kalenderrechmungen 
Lösungsbuch 3: Intelligente Spiele 


- Clubbörse: Auf’ den Wunsch einiger Mitglieder wollen wir einen Verzuch s*"rter, unseren 
Club noch attraktiver zu gestalten. Bisher wurden mır vereinzelt Gesucke :der Anzetste 
von Cluimitgliedern veröffentlicht. Denen soll nun eine eigene ätdeilluns <ingerämt wer 
den: Gelegenheitsanzeigen aller Art, sofern sie mit den Clubaktivitäten - sirmenh’ngen, 
können von allen Mitgliedern kostenlos aufgegeben werden. Den Anfang machen wir gleich mit 
einer Lösungsbuchvorstellung und - vielerorts sehnsüchtig erwartet - einer Froduktvorste!- 
lung: Kassetteninterface von Tlrich Jansen für den AP=41c(v) !1 Außerdem Fasge Switehinz 
von Hans-Günter und vieles mehr I!!!!! Aber auch wer irgendetwas kaufen cder verkaufen wi!l 
etwas sucht oder sonst irgendetwas will, möge an Oliver eine Anzeige mit Schreibmaschine 
geschrieben schicken, 


- Irgendwo in dieser Ausgabe wird sich ein Bericht "Wissenswertes für Keulinge" [inden, den 
auch manch ein "alter Hase” ruhig einmal lesen sollte.... 


- Das unser Club keineswegs nur aus den Infos besteht, wollen wir wieder cinnal beweisen: 


Übersicht der in der Clubbibl iothek_- Frank Altensen, Ihlandstr. 9, 6365 Rostach ? - der- 
zeit enthaltenen Bücher 


1 x E.H. Gloistehn, "Programmierung von Taschenrechnern 1, 53-56" 

2x H. Alt, "Angewandte Mathematik, Finanzmathematik, Statistik, Infermatik für UTR-Rech: 

1x H. Schumny, "Taschenrechner + Microcomputer Jahrbuch 1981” i 

4x W.C. Wickes, "Synthetic Programming on the HP-41c" (engl.) 

3 x HP-Lösungsbücher "Games" (engl.) 
AP-Lörungeblicher "Geometry" "Tensı.) 

HP-Lösungsbllcher "Calendare" (engl.) 

HP-Lösungsbuch "Statistiks” (engl.) 

HP-Lösungsbuch "Chenistry" (engl.) 

HP-Lösungsbuch "Maschinenbau" Tseutsch) - bestellt - 

HP-Lösungsbuch "High level Mathematics" (deutsch) - bestellt - 

EIV für Schulen Band 1 

EDV für Schulen Band 2 

TI-59-Specialty Pakettes "Lab Chemistry" 


Alle Bücher können auch per Post entliehen werden: Wattierte Versandtasche, grüßer DINi4, 
und je Buch 1,40 Porto, max, 2,80 einsenden und Abnender und gerinachter "uch angeben. Kei- 
nesfalls die Mitgliedanummer vergessen ! 

Nur zur Einsichtnahme sind in der Bibliothek vorhanden: 

a 1 x Af-Games-Tac-Module (engl.) 


Donna Nn- 


ASS aaa nn 
KAM RHNHMM 


E2) 1 x HP-Network-Analysis-Module (enhl.) 


MRR__stiftet noch, ein Bichlein 277 aneesanenseen 


Die Barcode Seiten Kegeln und FN sind mit 1838-81 bis 
193-R1 zu bezeichnen (kegein-1- = 1688-31). Oliver 


Kur Er-41c(v) 7? oder: Ein rein eubjektiver Bericht Über Personalgomputer 


In verech, Gesprächen werde ich immer häufiger gefragt, was ich von diesen oder 
jenen Computer halte, Selbstverständlich kann ich dann immer nur meine persönli- 
che Keimung 4ußern - die nach jahrelanger Praxis als Informatik-Assistent keines- 
wegs unqualifiziert ist. Diese Anfragen mın nahmen in letzter Zeit immer mehr zu, \ 
so da? Ich mich zu diesem Bericht bequeme. 
Wie auch ich wird eich manch ein 41 Besitzer [ragen, ob sich nicht die Anschaffung 
eines Personalcomputers lohnt, Doch beginnt das Erlebnis nur bei der. Schreitmaschi- 
nentastatur — reistene leider eine amerikanisehe - und findet seinen Höhepunkt bei 
den Frrfahrungen mit dem Betriebssystem des Rechners um in einer derben Enttäuschung 
oder grenzenloser Freude zu enden. Von mir nun wird immer die Antwort erwartet: DER 
Comruter und kein anderer, Doch gäbe es diesen schönen Computer - ich hätte ihn längst.: 
Bisher habe ich auf größeren Rechnern (Wang,Cromenmco,Siemens ‚Northstaru.ä.) Software ' 
hauptsächlich zu Lehrzwecken erstellt. Durchaus empfehlenswert ist darunter nur das 
Tromemeo-Systen, dem aber alle neuen CFM-Systeme mur in wenigen Sachen nachstehen 
(Vektor, Aitce, Adler, Alpha, CIM, IBM, HP, Dynabyte, INS, Nixdorf,(Wang), u.a.). 
Alle diese Systeme haben aber durchweg'eines gemeinsam: Unter 15 000,--DM sind sie 
bestimmt nicht zu haben. ITamit sind sie aber für den Hobby-Markt uninteressant, der 
sich deswegen auf Geräte wie TRS-80, Apple, CHA, Sorcerer und Sinclair richtet. i 
Bei unserem HF-Besuch in der vergangenen Woche bekam ich mın nicht nur die Möglich- 
keit, den H?-85 kennenzulernen, sondern sah mir auch gleich den Apple einmal näher 
an. Dabei ging es mir weniger um die Hardware als um die Software, denn hardwaremä- 
Big tuen sich bei diesen Hobbygeräten keine solch großen Unterschiede auf, daß sie 
für’ den Hobbyanwender ernstliche Kaufgründe wären: Fast alle wichtigen Dinge lassen 
sich nachrüsten, die Frage richtet sich vielmehr nach dem Preis. 
Von dem Großrechner-luxus wie Cromemeo-Structured-Baric u.ä, verwöhnt setzte ich mich 
also an den lieben Apfelrechner und kann mein Erlebnis als schockierend bezeichnen, 
Die Apple-Sprachen empfand ich als extrem umständlich, unübersichtlich und verwirrend. | 
Deutlich war zu erkennen, daß der Apple einer der ersten Personalcomputer war (ist) | 
und dementsprechend veraltet..... . Leider steht es auch mit TRS-80 und CHM nicht ! 
anders, sn da? ich meinen Blick auf den Sorceree schweifen ließ und dort schon etwas ı 
angenermere Sachen erblickte. Mit der S-100 Box und einem CPM-DOS 1äßt sich praktisch ı 
jede vernünftige C/Yi-Sprache verwenden, womit der Sorcerer seinen Apple und sonstigen : 
Konkurrenten kilometerweit überlegen ist - insbesondere aus Sicht des Nicht-Nur-Spie- ı 
lers. Also- warun empfehle ich nicht den Sorcerer ? 
Gerne würde ich es tun, denn mit der 2-Bo CPU (die ein Personalcomputer wenigstens , 
haben sollte), vernünftiger Tastatur mit Groß- und Kleinschreitung (ganz im Gegen- ] 
satz zum Apple), 64x24 Zeichen Bildschirm (Apple 40 x 16), CPM-DOS (wichtig) und Vo 
sehr vielseitigem S-100 Bus ist der Sorcerer allen seinen Konkurrenten weit Über- PR 
legen. Doch der Haken liegt im CPM, das die Minifloppye (SS,SD) auf rund 2500,--IM 
je Stück verteuert, Zur vernünftigen Anwendung braucht man zwei Floppys, S-100 Box, 
gutes CMi-Betriebssystem (strukturiertes Basic) - und liegt kurzum auch liber 10000,--. 
Daher kann ich allen Hobbyprogramnierern, die mit dem Gedanken spielen, dich einen 
Rechner dieser Art zu kaufen, mur zuflüstern: Wartet noch ein bischen ! Ich tu es ja 
auch 2.0. j 
Wer jetzt aber nicht ro lange warten will, dem kann ich eine Empfehlung geben: Wird 
der Computer nicht für Textverarbeitung gebraucht, eo ist der HP-85 in die nähere ! 
Auswahl zu ziehen. Gründe: Sein Betriebssystem ist allen Konkurrenten überlegen, deut- | 
lich iberlegen. Bandlaufwerk und Thermodrucker reichen für den Hobbyisten völlig aus, ı 
die Tactatur ist verniinftig und überhaupt: Qualität wird- IP üblich - GROßgeschrieben. ! 
Was ich bereits nach kurzem verspürte dürfte let3tlich für jeden Hobbyisten entechei- 
dend seins nach einigen Binüben bringt das Programmieren 9paß - es ist wirklich eine 
Freude, Fur: Wer an Textverarbeitung denkt, sollte den 85 schnell vergessen, so daß 
man CHIF zitieren darf: Fast ein Rolls-Royce ! Das ist auch der einzige Crund, wa- 
zum ich noch Feinen 85 mein eigen nenne: Der Rechner (er hat auch die Strichcodes in 
dieser Auagabe geplottet) ist ausgezeichnet - der Club aber erfordert viel Textver- 
arbeitung - das einzige Bauteil vom Volkswagen am 85. i 
Also liebe Cluhmitelieder - nervt mich nicht mehr mit Anfragen dieser Art - meine Mei- | 
mung kennt ihr: Abwarten bringt nicht mur Freude, sondern auch Geldersparnis. Zunilochst 
eollte der 41lc völlig ausreichen. VIEL SPAR I : 
oliver ı 


Wissenswertes für Neulinge 


Unser Club ist wieder eirmal um hundert Mitglieder gewachsen —- und die 
Organisation wird entsprechend schwieriger. Daher wendet sich dieser 
Artikel an alle Mitglieder, auch die "alteni Rasen"; 
Alle den Club betreffenden Schreiben können mur beantwortet werden, 
wenn neben dem vollständigen Absender deutlich die Mitgliedsnummer . 
angegeben ist I Dies gilt für alle Schreiben;-auch 3.B. für Bestellun- 
gen bei Fi. Hansen in Bonn ! Wer seine Mitgliedsnumer vergeseen hat, 
findet sie grundsätzlich rechte oben auf dem Adressaufkleber der ihm zu- 
gesandten Infos. Auch Überweisungen (Beitrag etc.) sind immer mit der 
Mitgliedenumner zu versehen ! Sonst kommt eine zweite Rechnung .... 
Die Seite o00-81 enthält die aktivem Mitglieder - Stand Ostern 01 - ı 
Wer ein HP-9845 Barcodeplottprogramm möchte kann es bei Detiev (2) 
erhalten, wer an einer Sammelbestellung teilnehmen möchte, der wende 
sich an Ulli (3) und wer ein Buch aus der Bibliothek ausleihen möchte, 
sehreibe an Frank (117). Diese Zuständigkeiten sind unbedingt zu beach- 
ten, denn mır so ist ein Berücksichtigung der Anfrage etc. gewährleis- 
tet, . 
Auffallend ist, daß Mitglieder mit höherer Nummer ziemlich passive Fans 
sind: Rührt Euch ! Es gibt viel zu tun. Das häufigste Argument auf sol- 
che Aufrufe lautet "Ich bin ja noch Anfänger" o.5., doch das lasse ich 
nicht gelten. Auf verech. Treffen von Clubmitgliedern untereinander stel- 
lte sich immer wieder heraus: Ein persönl. Gespräch hilft mehr, ale ein 
dutzend Briefe. Daher folgt den Beispielen von Matthias Grabiak und An- 
dreas Marktscheffel, die im Raum Frankfurt eine Ortsgruppe gründen wol- 
len (121-81). ÄuBerst begrüßenswert ist auch die Absicht von Günter Lehr- 
ke (239), im Großraum Stuttgart eine Ortsgruppe zu gründen. ALS); Wer in 
Umkreis von 100 km um Stuttgart möchte mitmachen ? Meldet Euch beim Glin- 
teri (Ortsgruppengründungen und -mitteilungen stehen im prisma immer aus- 
reichend Seiten zur Verfügung, falls Ihr das eine oder andere sinnvolle 
aitzuteilen habt |) _____ PASERIERPEIS EN EN RESEEE Aiver_____ 
Ein Witz _? 
Es ist schon fast ironisch: Da hocken drei handvoll Leutchen über ganz 
Deutschland verteilt und kommen plötzlich auf die Idee, aus ihrem Club 
einen eingetragenen Verein zu machen. Selbst eine Einladung mit extrem 
dürftiger Resonanz wird verschickt .... und dann ? Die Vorbereitungen 
laufen auf Hochtouren, da man vereinzelt meint, es geht nicht ohne e= 
Punkt V-Punkt hinter dem Namen, man sucht Gründungsmitglieder aus ganz 
Deutechland, da ohne e.V. das Chaos drohen soll und dann auf einmal kommt 
das große BUMM-PENG und alles ist aus: Bei der Konsultation eines Rechts- 
anwaltes im Rahmen der Gründungsvorbereitungen trifft dieser die Fest- 
stellung, daß wir ohne e.V. viel besser fahren und rät energiech von dem 
Vorhaben ab ?!! Wir haben kein großes Vereinsvermögen, das Risiken wit 
sich bringt und erst recht keine Verpflichtungen irgendwen gegenüber; 
die Beiträge sind steuerfrei und keineswegs gigantisch hoch; der Club 
erwirtschaftet keine Gewinne, denn er ist gemeinnützig tätig: Was also 
soll der e.V. ??? Ein Fachmann lieferte auch diese Antwort; Mit dem Ver- 
ein kommt eine Fessel für die aktiven Mitglieder, Eine auf Jahre hinaus 
eültige Satzung muß her, Vorstand, Vollversanmlungen, Vorstandsritzungen 
und den aktiven Mitgliedern werden die Hände betreffs ihrer bisherigen 
Fähigkeit, sich auf Neuerungen einzustellen, gebunden, Die Folgen wären 
noch schlimmer als im MICAC, der bekamntlich mehr oder weniger einge- 
schläfert wurde. 
Sehen wir uns einmal um in der Clubwelt der Computerolubs: Gibt es unter 
den Clubs, die nicht wirtschaftlich tätig sind (also nicht Apple-Club, SC“ 
wa.) auch mr einen e.V. ? Rein I Nicht einmal der PPC .... 
Also kam letzte Woche beim HP-Meeting der endgültige Beschluß: Wem unser 
Club nicht gefällt, der soll einen e.V. gründen, wo er will, aber ohne une! 


Eure "Aktiven" 


Ir Kiverter .1985 wurde der_KRXORL-SAVER von Sven Beiersdorf veröffentlicht. 
Da er jedoch auf Tatrix geschrieben war, haben ihn nur die ersten 150 Mit- 
glieder erhalten. Für die anderen 350 sei er nachfolgend noch einmal wieder- 
gegeben: 

MEMORY SAVER von Sven Beieradorf 


WEZEENEZSUNSZESSSBSFASTTEZSISSZZErDgm—mngEmnnmN 


Zur Erzeugung des Effektes gehe man wie folgt vor: 


i) beliebige Version eines Key-Assignment Frogramms einlesen 

2) KEYTKA" 

2) Fails erferderlich auf die PAIRS Abfrage "1" eingeben: 1 R/S 
4) Auf die erste Abfrage eingeben: 241 ENTER 65 ENTER 11 R/S 2 
5) Auf die zweite Abfrage eingeben; 241 ENTER 56 ENTER 12 R/S 
€) Evtl. ertint BEEP (de nach KA Version), KA-Prer. muß enden 

7) Troer.=m 1”schen: CLP"YA" 

&) FRS% (In den Program-Kodus schalten) 

o/ REL 04 

RR ss? 

11) PRGH (Aus dem Frogram-Kodus aussteigen) 


1?) Taste 11 (Sunme plus) im User-Modus drücken 
FRSM (In den Trosran-Modus schalten) 
ausführen en) 
5) S5ST ausführen warten! 
18) Clear (Löschtaste) drücken und warten ! 
Clear drücken und warten 
FRSH (Aus dem Program-Modus aussteigen) 
Rechner ausschalten !!!! 
Versuchen, den Rechner “wieder einzuschalten ! Nicht mözlich _! 


O0 -1 


GERN 


Nach dem äusschalten des Rechners ist es nicht möglich, diesen wieder (auf die 
"normale" Art) einzuschalten oder MEHORYLLOST (Master-Clear) auszuführen. 


Achtune! Im Interesse des Clubs bitte nicht weitersagen: 


a) Der Rechner läft sich durch kurzes Herausnehmen der Batterien und anschließendem 
Drücken der Taste CLEAR wieder einschalten. Der Effekt bleibt jedoch erhalten! 
rrobiere es aus .. 


b) In es u.£. zu erheblichen Verzögerungen beim Bewegen per SST oder BST im 
Frem-Kodus kommen kann (und andere Gags) empfiehlt es sich nicht, diesen 
@Ustzrd als nermanent einzurichten. Er ist jedoch optimal geeignet, um un- 
erwöinschten Spielern schnell die Iust am Rechner zu vertreiben. 


Die einzige Möglichkeit, MEMCRY LIST zu verursachen, ist entweder das Einlesen 
einer halben wäLL-Karte und anschließendem Drücken von CLEAR oder das Abspeichern 
eines undefinierten Wertes nach c, Auch stundenlanges Herausnehmen der Batterien 
dürfte zum Erfolg führen. 


Alles auf eigene Gefahr ! (wie üblich !1?!! Sven Beiersdorf und 
Oliver Rietechel 


T2eo2zm2sa220=20===ssen22gEecEn-ASSEZERDSS2E2=39CScD OEMETEESERSTCEIDBTERSEWBARBZAMEERZTSCEwUE 


Einfach ausech-1lten & 


Heinz i1sässer hatte das Problem, beim Ausschalten des Rechners das gleichzeiti- 
ge Ausschalten des Druckers zu vergessen. Er schrieb daher folgendes frogramm: 
LAL"OP" 75221 BeRP SEF EM. Das Programm hatte MERAR den Nachteil, nur zu 
testen, ob der Drucker angeschlossen ist, nicht aber, ob er auch eingeschaltet 
ist. Mner echricb Ich nachfsigende Routine, die allerdings den }iachteilhat, 

dan Alphnrepister bei angeschlössenem Drucker zu zerstören. Freilich kann man 


das Brogramm dahingehend abwandeln, daß das Alpharegister erhalten bleibt, 
: doch wird dann die Meldung "PRINTER OR I" nicht gegeben und der Alpharegister- 
inhalt bei angeschlossenem Drucker ausgegeben. Hat jemand noch einen Ver- 
besserungsvorschlag ?7 
LBLTOF" FC? 55 OFF CLA SF 25 PRA FC?C 25 OFF CF 21 -"PRINTER ÖN !" 
AVIEW SF 21 CLA BEEP BEEP PSE OFF END Ri 

Oliver ie und 


Heinz (4 1 


Insbsahndere neuere Mitglieder fragen Sersingele an, ob für Veröffentlichunsen 
oder eingesandte Programme eine Entschädigung gezahlt wird; 

Durch eine 1980 getroffene Konvention wurde die Sache folgendermaßen gerese!t: 
Für eingesandtes Material wird kein Honorar gezahlt. Vielmehr wird im Ckt’- 
ber ein Wahl durchgeführt, in der die besten Veröffentlichungen mit verscr. 
Preisen honoriert werden sollen. DIese Wahl wird stattfinden. 


@EOEJI=LEDEEZWUARTESETRTENANETDESMERTUERZESCHE-CSEOSSEIEOE EN SZCnnecumnm: 


Mittelschwere Resonanz 

erfuhr meine Anmerkung in prisma 26-81 !zu dem Programm von Gerhard. 

Dort schrieb ich ziemlich lapidar "R/S läßt sich doch jeder beliebi- 
_gen Taste_zuordnen „..". Das stieß bei einigen Clubmitgliedern auf 

erhebliche Schwierigkeiten, so daß hier die Antwort folgen soll: 


Zuordnen von R/S_vu einer beliebigen Taste_des HP-Alc(v) Tastenfsiies 
R/3 läßt sich nicht über die ASN-Funktion des 41 zuordnen. Vielmehr 

muß man auf eine beliebige Version des KA-Programms zurückgreifen, 
wobei d}& Anwendung aber denkbar einfach ist: Statt Bytel und 2 des 
betreffenden 2-Byte-Befehle gibt man einfach SENTER,ENTER,xy ein, wo- 
bei xy die betreffende Taste bezeichnet. Beispiel: XEQ'KA" - es er- 
scheint die Abfrage PRE/POST/KEY (je nach Version) - Eingabe: 5 ENTER 
ENTER 11 - R/S drücken - Sofern das Prgr. eine zweite Eingabe verlangt, 
diese tätigen - fertig; R/S ist jetzt der Taste 11 (Summe +) zugeordnet. 


Wen dieses Gebiet der synthetischen Programmierung interessiert, der 
sollte aufmerksam die Rechnerorganisationsberichte in prism lesen 
und sich das Buch Synthetic Prgr. aus der Clubbibliothek ausleihen. 


Oder an einem Clubtreffen teilnehmen. ... Cliver m 
PRC- ROM ade 2 | Beau eu DB She ERS DENE 000 Eye 


Nur ältere Mitglieder (niedr. tgl. Nr. unter 150) werden re rer 
nähered über das PPC-ROM wissen, das sich unser Club in sechsfacher 
Ausführung bestellt hat und verleihen will. Es wird vom amerikan. 
PPC produziert und soll eine Vielzahl nützlicher Programme, zum gro- 
ßen Teil synthetische, enthalten. Allerdings gibt es nicht nur bei 
unserem Amateurclub organisatorische Schwierigkeiten - auch der FPC 
hat sie. Das Produktionsdatum - ursprünglich auf Mitte März Bd [est- 
gelegt - hat sich bereits bis September verschoben. Und wer weiß, ob 
er dann auch wirklich komt .... ? 
wie dem auch sei - wenn die Dinger endlich kommen, wird es im pris- 
ma zu lesen sein. Nenn 20. nnnnmuonesnnumanunnan LEVEL, (1), 
Gerade jetzt, wo dieses prisma fast fertig iet, bekomme ich einen 
Anruf vom Walter (205), der noch eine Anzeige für die Clubbörse hat. 
Doch die ist für heute leider voll, weswegen - man möge es mir ver- 
zeihen - ich sie in diese letzte freie Ecke klatsche: 


Verkaufe Software: 'N-Feld-Träger - Feldweise Gleichiast - zwei bis 
sieben Felder - 1 Kemory erforderlich - Drucker wahlweise - 
Clubpreis: nur 10,--DM, Nichtmitglieder 40,--DM. Angabe der Mitgl.Nr. 
unbedingt erforderlich. Walter Pieperhoff (205) 


Anwender-Chb 
Postschsckkunto Hınla. 48835-207 G.L.UBB_Ö_R,S_E vimı 
Postach 373 - D-2420 Eutin 


C:vrritslieder können kostenlos Gelesenheitsanzeisen in der Clubbürse aufgeben ! 


Zusätzlich zu den in prisma 65-81 aufgeführten Leistungen biete ich jetzt an: 
1) Unbau von zei RÜMs in ein Double ROM bzw. Einbau von ROMs in den Rechner 
Unbaus 40,-- Eibau: 45,— pro ROM 
2) Koeifizierung von Quad-RAMs: 
a) Zibau von Kondensator: 40,-- pro RAM 
db) Zinbau von 3 (evtl. 4) Quad-RAlis in das Gehäuse des 41c. Mit Schalter wer- 
den die Quads ein- bzw. ausgeschaltet: Beim 4) cv nicht möglich !! 
Eibau des 1.Quad: 120,-- jedes weiteres 100,-- 


Die Yorule und evtl. Rechner sollten mir per Wertbrief zugesandt werden (nach 
Vereinbarung). Die Leistungen beinhalten den gewünschten ( auch Sonderwünsche 
wie z.B. bestimmte Fortbelegungen einzelner Module ) Umbau mit Gewährleistung 
der Funktionstüchtigkeit. Zahlungsweise: Vorraus Bar oder Scheck 

Tje !rbeiten werden innerhalb von 2 Tagen durcherführt, so daß die zugesandten 
Teite zr’itestens am 3. Tag nach Erhalt zurückgeschickt werden. 
Hans-Tinter Ytke Urhues, Bahnhofstr. 20 061 Altenberge, Deutschland 


Nachfolgend gebe ich eine Verkürzte Cerätebeschreibung für ein Kassetten-Interface 
för den W-41 c(v) wieder, sowi& eine kurze kritische Stellungnahme; 


ASSETTENISTERFACE FÜR HP=41C: 

zweck; Errööglichung der Speicherung von ?rogrammen, Daten und Statusinformationen 
auf !ngnetfclien-lassebspeichern, in der Regel also Kassetten- oder Tonbandgeräte, 
zum späteren Einlesen in den HP-41c{v). Das Einspeichern geschieht mittels dem opt. 
Lesestift, indem entsprechender Strichcode abgetastet wird. Hervorzuheben ist: 

- Es lassen sich alle nichtsynthetischen Programme eingeben, auch wenn hierzu kein 
strieahzsiertes ?rogrammlisting existiert, indem die Einzelfunktionsstrichcodes 

äi.r Barcdetartenfeldes benutzt werden. 

- Es könnnen nur konstante Datensätze in den Rechner eingelesen werden. Ein Ausle- 
sen von Daten aus dem Rechker ist nicht möglich. 

- Zun Betrieb des Interfaces wird die Betriebsfirmware des Lesestiftes in vollem 
Infarge verwendet; man kann deshalb beim Arbeiten mit dem Interfaoö sämtliche Funk- 
tionen d=s Lesestiftes aufrufen (WNDDTA,WNDDIX, WNDLNK,WNDSUB,WNDSCN ,WIDTST) 

- Die MHögiichkeit der gemischten Verwendung von Programm-, Daten-, und Einzelfunk-, 
tienrbarcöodes ernöglicht es, einem auf Band abgelegten Programm unmittelbar da- 
zugeh“rize Statusinformationen und Konstanten beizufügen, was z.B. beim Magnetkar- 
senlezer nicht möglich ist. 


Pe 


Interface kann durch Erweitern mit einem Modem zur Datenfernübertragung per 


Ias 
Telefon oder Funk umgerüstet werden. 
Es sin) keine Erweiterungen oder sonstigen Veränderungen am Rechner nötig. Das 


interface wird lediglich in die Zuleitung zum optischen Lesestift eingeklemt, 


Lieferunfanf: Das Gerät wird auf Europakarte (100 x 160 mm) mit indirekter 31-poli- 
Eer Steckerleiste nach DIN 41617 mit detailierter Beschreibung geliefert. Der Preis 
tetrigt 266,--3°, für Clubmitglieder unter Angabe der Mitgliedsnummer allerdings 
rar 1°0,--28! 11! Mit dem Kauf dieses Gerätes spart ein Mitglied aleo Geld in fast 
dcp-elter Höhe des Clubbeitrags !!! 4 

Das Gerlt sowie eine etwas ausführlichere Beschreibung (Kostenlan geg. Rückporto 
v.rab) ist erhältlich bei Clubmitglied 288: Ulrich Jansen, Mühlenstr. 16 
Zifn_azzelenz, Telefon: 02154-58714__________-___ 


.ritische Stellunsrahme: Das Gerät versucht zweifelschne in eine Marktlücke vor- 
zurtsöen. Der Bedarf und die Nachfrage nach einem solchen Gerät sprechen dafür, 

denn !aznetkarten sind keineswegs optimal. Eines darf man aber nicht übersehen: 
Fromramme Rünnen nur soschnell ausgeführt und/oder eingelesen werden, wie man sie 
selbst beim ersten Mah eingibt. Das ist keineswegs rchnell „.. man braucht viel Zeit! 


Hachdem mit dem ersten Lösungsbuch einige Erfahrungen gesammelt worden 
sind, erscheint mın das zweite Lösungsbuch, an dem zwei Autoren betei- 
ligt sind: Werner Loibl (224) und Walter Kropf (56). Das Buch stellt qua- 
litativ die Spitze dessen dar, was ein Lösungsebuch auf diesem Sekter über- 
haupt bieten kann. Besonders ist der Teil von Werner hervorzuheben, der 
nicht nur sehr schöne Programme geschrieben hat, sondern in einer lobens- 
werten und mihsamen Arbeit alle theoretiscehn Hintergründe der Programme 
ausführlich behandelt. 

Die Programme wurden von Niels Nöhren (81) auf- ihre Richtigkeit hin über- 

prüft und in Zusammenarbeit mit den Autoren weiter verbessert. Die rela- 

tiv hohen Autorenhonorare, die im Preis enthalten sind, sind dadurch mehr 
als gerechtfertigt. Das 63 DINA4 Seiten starke Buch wird in limitierter 

Auflage (ca. 50) eret nach Eingang der Bestellungen gedruckt. Daher 3 

fort bei Oliver bestellen!!! Evtl. wird das Buch noch durch versch, Bio- 

rhytmusprogramme ergänzt. 

Daten: Mindestene 63 "echte" DINA4 Seiten, unverkleinert, da sehr kleine 

Schriften verwendet. 

Preis: je nach Nachfrage und Auflage zwischen 40,-- und 50,--IM 
Zahlung: Nach Erhalt der Rechnung 

Haftung und Garantie: Es gelten die normalen Clubregeln. 

Inhalts 1) Datum beinhaltet versch. Kalenderrechnungen im gregorianischen 
und jJulianischen Kalender, manche Berechnungen für jedes belie- 
bige vor und nachchristliche Datum innerhalb der Anzeigekapa- 
zität dds HP-41c(v). 

2) Feiertage: berechnet den Wochentag datumgebundener und das 
Datum 'Osterabhängiger Tage für nachchristliche Jahre im gre- 
gorianisghien und Jullanischen Kalender. 

3) Zeiträume lassen sich ohne Zwischenschaltung einer Kalender- 
routine durch direkte Subtrektion bzw, Addition der Differen- 
zen zwischen Tagen finden oder Zeiträume berechnen, zum Da- 
tum addieren oder davon abziehen. Funktioniert mit belx bigen 
vor- und nachchristlichen Daten innerhalb der Anzeigekapazität 
des Rechners, 

4) Wiederkeh® berechnet gregorianisch und julianisch, jedcch 
nur nachchristlich, bel&ebig viele aufeinanderfolgende Jahre, 
an denen ein Wochentag auf ein bestimmtes Datum fällt, wann 
also z.B, der 24.Dg2. ein Mittwoch ist (wer). 

5) Kalender druckt einen Kalender aus, allerdings im Gegensatz 
zu dem in prisma bereits veröffemtlichten Programm auch nach 
dem julianischen Kalender und Berücksichtigung der Tatsache, 
daß seit 1975 die Woche mit dem Montag beginnt. 

R Verschiedene nützliche Unterprogranme, 

Wissenswertes zum Kalender: 

- Julianischer Kalender Hundertjähriger Kalender 
- Gregorianischer Kalender - Das Jahr 

- Christliche Zeitrechmng - Der Monat 

- Stile s - Jahreszeiten 

- Jüdischer Kalender - Kalenderreform 

- Mohammedanischer Kalender = Zeitgleichung 


Kalenderrecehnungen versch. Art, auch als Unterprogramm, 


[;) 

AN NRewepliche Feste: Uber die goldene Zahl des eingegebenen 
Datums werden die bewegl. Feste berechnet, die in diesem Jahr 
liegen. 

10) Monatskalenderberechnung in Matrizenform 

11) Jahreskalenderberechmung in Lietenforn 

2) Picrhrtmus Vers.1.1. 

13) Freitag der 13, berechnet jeden Freitag, der auf den 13. 
eines Monats gällt. 

14) Biorhytmie Vers. 2.1. 


Autoren: 1-7: Werner Loibl, 8-12: Walter Kropf, 15-14: Niels Nc+r-en 


FROGRAMMIERHILFEN FÜR ANFÄNGER 


Vun Hans-Günther Götter (115) stammt ein Programm zur Textver- 
arbeitung, an dem sich einige wesentliche Prinzipien dieser für 


L 


von I Dis 3 bezw. 


a1+LBL 
62 CLRG 
63 .883 
a4 STOL 
05 SF 09 
K& AON 
a7+LBL 08 


43 "TEXT?" 
a9 FC?C 68 
CONTI 


18 “+ 


11 CF 23 
12 STOP 
13 FC? 23 
14 GTO 94 
15+LBL 01 


16& ASTO IND 


17 ASHF 
18 ISG L 
19 GTO 01 
28 .004 
21 ST+ L 


22 GTü 88 
“RN” 


23+LBL 
24 .003 
25 STO L 
26 AON 
27? CLA 


29*+LBL 02 


29 CLST 


2a ARCL IND 


L 


3i x<> IND 


32 %=Y? 
33 GTO 94 


34 X<> IND 


35 ISC UL 
36 GTO 82 
37’ .884 
38 ST+t L 
39 AVIEN 
48 cıa 

41 GTO 82 
42+LBL 94 
43 BEEP 
44 NOFF 
45 END 


-UR”" 


den HP-41 C(V) charakteristischen Betriebsart 
demonstrieren lassen. Das Programm dient zum 
Schreiben und Lesen eines (fast) beliebig lan- 
gen Textes auf dem Display des kechners. Das 
Schreiben wird durch XEQ WR und das anschlie- 
3ende Lesen ourch XEU ND ausgelöst. Nach Ein- 
gabe von Dis maximal 24 „lphazeichen wird R/S 
gedrückt, und weitere 24 Zeichen können einge- 
geben werden. Wenn die Eingabe beendet ist, 


N/S abermals gedrückt; Ende wird durch BEEP an- 


wird 


gezeigt. 


Zunächst zur Texteingabe (Programmteil "UR"): 
Auf die Frage "TEXT ?" (im weiteren Programn- 
lauf heißt es dann "TEXT ? CUNTIN.", was durch 
setzen -G65-, Abfragen und Löschen -U9- von FLAG 
00 bytesparend erreicht wird) muß der gewünsch- 
te Text (max. 24 Zeichen/Zeile) eingegeben uwer- 
den. Dazu muß der Rechner durch AUN -06- zu- 
nächst einmal für ALPHA-Zeichen empfangsbereit 


gemacht werden, andernfalls würde er jeden Ta- 


stendruck als Ziffer oder Funktion (in diesem 
Falle sinnlas) interpretieren. Der gleiche de- 
Fehl ist allerdings im zweiten Programmtell -26- 


überflüssig, da Ausgaben wegen AVIEW -39- Immer 


im richtigen Modus erfolgen; es ist allerdings 
im Interesse nachfolgender Programme oder manu- 


eller Rechnungen vorteilhaft, den ALPHA-Modus 


am Ende durch AGFF -4b= wieder aufzuheben. 


Der eingegebene Text wird nach jeder Zeile 
(Drücken von R/S) in Blöcken von jeweils 6 Zei- 
chen fortlaufend ab ROD abgespeichert. Das be- 
sorgt die Schleife mit L8L 01 (Zeile 15 bis 19), 
wobei der Index des Zielspeichers platzsparend 
im LAST X-Regieter steht und dort auch jeweils 
Na- 


von Lk pis 7 etc. inkrementiert wird -18-. 


türlich muß ner im ÄLPHA-Register stehende Text durch ASHF -17- 


( 


D 


jeweils rs dem Abspeichern eines 6er-Hlocks um 6 Zeichen nach 
links geschiftet werden. In Zeile 20 wird der Endwert der Lauf- 
variablen im LAST X-Register nach Abspeichern der ganzen Zeile 
jeweils um 4 erhöht, worauf zu Zeile 7 zurückgekehrt wird, um 


nach der nächsten Textzeile zu fragen. 


Die Eingabe wird beendet durch nochmaliges Drücken von R/S nach 
einer Texteingabe. Was geschieht dabei? Bevor das Programm in 
Zeile 12 zur Aufnahme eines neuen Textes stoppt, wird in Zeile 
11 FLAG 23 gelöscht. Durch Eingabe des neuen Textes wird es 
automatisch wieder gesetzt (ALPHA-Zeichen-Eingabe-fla;, Hano- 
buch, Seite 217), und bei der Abfrage in Zeile 13 wird daher 

der Sprungbefehl "GTO U4" ignoriert. Nur in dem Falle, wo keine 
neue Texteingabe nach dem STOP -12- erfolgt (Drücken von R/S nect 
der Aufforderung zur Texteingabe), bleibt FLAG 23 geläschı, und 
das Programm verzweigt'nach Zeile 42, wa es mit einem BEEF endet. 
Die gleiche Prozedur wird übrigens häufig zur Beendicung einer 
Serie von Zifferneingaben benutzt, dann allerdings m’: FLAG 22 


anstelle von 23. 


Die Textausgabe (Programmteil "RO®") ist sehr ännlich zufgebaut, 
enthält aber noch zwei in diesem Zusammenhang interessante Punk- 
te: zunächst einmal werden immer maximal 4 Ger-Blocks von Zei- 
chen aus den Speicherregistern ins ALPHA-Register getslt. Da 

das mit dem Befehl ARCL... -30- geschehen muß, der die cEigen- 
schaft hat, den gerufenen Speicherinhalt immer an cas bereits 

im ALPHA-Register stehende anzuhängen, muß dieses zu Anfang ge- 
säubert werden: 27 CLA. Auf diese ALPHA-Lüschung sollie man im- 
mer achten, denn es kuommt häufig vor, besondere bei £rgebinsan- 
zeigen (z.B. "25.4 MM"), daß das ALPHA-Regieter mit FRCL... ge- 


laden wird. 


Der Ausstieg aus der Textenzeigeschleife geschieht durch die 

Zeilen 31 bis 34: Da zu Anfang der Texteingabe alle Register ge- 
läscht worden sind -D2-, und da auch wegen 29 der gesamte Stack 
auf 0 gesetzt worden ist, wird in diesen Zeilen geprüft, ob der 


( 
gerufene Registerinhalt O Ist. In diesem Fall’ist man sicher, | 
a 


das erste Register erwischt zu haben, das keine ALPHA-Zeichen 


des eingegebenen Textes enthält, und das Programm darf nach zei-| 


le 42 verzweigen, wo es wie oben mit einem BEEP endei. AEERERERNS 


hätte sich dieser Ausstieg: auch etwas kürzer durch L3L D2; 
ARCL IND L; 0; RCL IND L; X=Y?; GTO O4, ISG L lösen \assen. 


£ Klaus Werner Hoenou 


a VEBE-Program nit den HE 410 Hauke Totens (165) 
O2+LBL Bi 

(F 3 FIX 

"NEX ZAHL ?° PROMPT 1 
+ 510.05 ST088 5 
ZEIT ? SEC" PROMPT 
STo 806 Sin STe 88 
"FALSCH" ASTO 12 


"Lamm ASTO 13 "KAREL" kti d “UEBE”.- 
STD 14 XEO 06 STO 02 unktion des (XEQ) "UEBE"-Programmsı 


Dieses. UEBE-Progrann ist sine Weiterentwicklung 
des "ARITHMETIK-LEHRGANG"” „Programms aus der 
Standard-Programasannlung.Vor allen wird für 
jede Aufgabe eine (zuvor wählbare) Rechenzeit 
vorgegeben, und die eingstippten Reohenergebnisse 
werden autonatisch abgeholt (ohne RS), 


yeg 68 STu 63 =»>Der Rechner fragt nach der "UAX ZAHL 7", die 
der Zufallegenerator für die Summanden vwer= 
27LBL 82 wenden darfı z.B. 30, RS. 


# 51089 ST 10 16 »>Der Rechner fragt nach der "ZEIT ? SEC ?" für 


sTo 65 ErrA, PN jeweils eine Aufgabe. Zahl, RS. (#enn nur 
PrörPT RÖFF ASTO I RS ohne ‚Zahl gedrückt wird, setzt der Rechner 
Ya 88 von sich aus 5 Sekunden je Aufgabe.) 


RCL #T RCL 62 >Der Rechner fragt nach der Rechenart. "ryuyr,?", 
XEQ In) It STO64 CA M+ oder @- oder M» oder Mı eingeben, RS. 


ARCL 83 ARCL 11 
ARCL B2 "ta" AVIEM >Der Rechner stellt nacheinander 10 Aufgaben 


in’ der üblichen Sohreibweise, z.B. "12+23=7", 
a ‘ u hr un 5 Ergebnis eintippen, z.B. 35 (kein RSi, die 


Cr 22 CE 08 -h* Zahl wird sogleich automatisch abgeholt). 
AVIEN »>Der Rechner meldet "RICHTIG" und stellt die 

nächste Aufgabe, 2.,B. ”14+8=?", Ergebnis ein= 
SIeLbL 84 tippen, 2.B. 32, 


psE F5? 22 6T0 86 n o 

DSE 07 CTo 94 viy ız> Der Rechner meldet "FALSCH", piept unangenehm 
und stellt die gleiche Aufgabe zum 2. Mul. 

GoeLeL 85 Ergebnis eintippen, z.B. 9. 


TORE 2 PSE 1 ST# 1 >Der Rechner zweifelt an Ihrer Ernsthaftigkeit, 

FS?C 008 CIO 88 SF O8 meldet sich mit "KAMEL" und piept wieder unangenehn. 

Re 96 SToer CF 22 Um keine Zeit zu verschwenden, zeigt der Rechner 

AVIEN GIO 84 die richtige Lösung: "14+8=22" und stellt sahlioBu 
lich die nächste Aufgabe, z.B."28+29=7", 


ray E "pa" Has, Sie brauchen länger, als die von Ihnen vor= 
ARCL 84 AVIEN PSE Begebene Zeit??? 
co #7 >Der Rechner piepirgegsrdäich und sagt so etwas 

: wie "LAMA” und stellt die Aufgabe zum 2. Mal. 
er 1 10 00 >Nach 10 Aufgaben sagt der Rechner, wieviel % 
VIER 12 co 85 der gestellten Aufgaben richtig waren. 

=>Sollten alle 10 Aufgaben auf Anhieb richtig gelöst. 
IzeLEL #8 worden sein, belohnt Sie der Rechner mit einer 
“RICHTIG” AVIEN 1 kleinen Melodie (-wenn man sie wegläßt, ist das 
STr 85 Programm kürzer) und fragt, ob man nochmal "+,-,»,1ı7" 
mit gleichen’ Bedingungen rechnen will. 

93+LEL 67 


BSE 09 CTO #3 RCL 18>Von. ganz vorne? (EXQ)E+ (=XEQ 01), 
1:8? XEQ 18 RCL 89 ‚1 

» Un ARCL X 

"FW RECHT" ATEM PSE 

10 8 


Benerkungen WWergieichsopsrationen 


Bei Vergleichsoperationen, beispielsweise: x=y? entstehen mitunter ÜLer- 
raschungen, die mit der Rechengenauigkeit (Rundungstechnik) der HP-Taschen- 


rechner zu erklären sind. 
Dazu wird Seite 78 des Handbuchs in Erinnerung gerufen. Im Kapitel "Rundupg 
einer Zahl" heißt es u.a.: 


" --- wird bei Anderung des Anzeigeformats --- die Genauigkeit der 
internen Darstellung der Zahlen im Rechner nicht beeinflußt. Dort 
sind alle Zahlenwerte mit zehn --- Stellen in der Mantisse --- 
gespeichert." 


Einige Beispiele, auszuführen mit FIX 9 


Berechne 441 ı 19 und multipliziere das Resultat nit 19 
4ya, ENTER, 19, ./.} Resultat: 23,210 526 32 ® 19, Resultat: 444,000 000 1 


Berechne LN 441 und führe anschließend o(IN 441) zus 
444, LN; Resultat: 6,089 Ob4 875, 0X; Resultatı 440,999 999 8 


Berechne 13? 


13, ENTER, 7, yX; Reaultatı 62 748 517,00 


7 
Berechne Y62 748 517 
a) 62 748 517, LOG, 7, ./., 10°: Resultat: 12,999 999 99 


b) 62 748 517, ENTER, 7, 1/x, yX; Resultat: 13,000 000 01 
Die Algorithmen sind korrekt, die Ergebnisse in der Anzeige keinesfalls, 


Korrekte Anzeigen erhält man allerdings sofort bei Umschaltung auf FIX<?, 
was allerdings nichts daran ändert, daß intern weiterhin mit den Ergebnissen 


gemäß a) und b) operiert wird. 
Wollte man_aleo beispielsweise die Vergleichsoperation: x=y? mit x = 1} 


uns y= v6 748 517 durchführen, käme dieser Vergleich nicht zu Stande, 


denn intern liegen die erwähnten, von "13" abweichenden Ergebnisse vor. 
Abhilfe ist nur durch Anwendung der oben erwähnten "Rundunz' mözlict. 
Einzelheiten siehe Handbuch. 


G.SIEWERT (52) 


= = 
“ O <= En e 
= S OO oono = 
2. 5 . a Pe 
2° o 8 zSZzzex=r — 
frag Aus 
._ 2 2 “oosrrm 55 
‘ mu 
u “ ipA ‘ = 
2:3 > 5} . 8. Per 4: 
er we. * “m . "gu SPFRFrEUSS 
zo 3 a= 1 5 
gas= SE SEs® Ze 37, Goannfon, 8 2 
Por = ex [7 “© vi ud a wwe a 
BEE S m 8 Ja == zzı:xz EN 
= 7# S. N, er | 555 33555 = = 
m. ..% bu BE U u 27 I Zt Jar Sr 7 


EcWW#ärd Müller (122) 
M.-Schnabrichstr ‚9 
3500 KASSEL 


tel:0561/492266 
Bal+LBL "NEN 
TON» NEWTON - VERFAHREN zur Bestimmung 
82 "FUNKT. von reellen Nullstellen einer Funktion 
NAHE ”? 
a3 AÜN 
94 PRÜNPT Voraussetzung 
85 AUFF 
85 ASTO 63 Unter einem globalen Label muß eine 
a7 FIN 9 leichun in. 
I 8 ung f abgespeichert sein 
9 "na 7“ Beim Aufruf von f ist der aktuelle 
18 PROMPT x N 
i1 STO ot x-Wert im x-Reg. ausserdem in Reg.Ol. 
12+LEL 08 Es muß von f eine reelle Lösung existieren 
os nz os ( ist das nicht der Fall, ocer gibt es 
15 XER IND zu viele Lösungen, z.B. y=sin x, 80 
SL sıo 82 sieht man nach einiger Übung die Diver- 
17 1 E-4 genz der x werte, da der aktuelle x Wert 
18 ST+ 81 | : 
13 RcL 21 jeweils angezeigt wird), außerdem muß 
S= xE@ IND *f zweimal differenzierbar sein und f' 
21 RÜL 82 darf in einer Umgebung der Nullstelle 
22 - ‘ nicht Null sein. 
23 1ı E-4 ' 
24 . 
25 RCL 82 wie das Newtonsche Verfahren funktioniert, 
ES rl möge der, der‘'s wissen will bitte nachlesen, 
23 CHS es steht in (fast) jedem Schulbuch! 
z RCL 88 
30 + 
z2ı STO 81 Beispiel 
32 VIEW % 
33 RCL 00 Wurzel aus 2 soll bestimmt werden. 
34 xrYT? LBL'TEST i 
35 GTO 9a «AD xXEC'NEWITON FUNKT .NAME? 
36 BEEP TEST R/S x? 
37 EHD 2 R/S aktuelles x 
BEEP 
Nullstelle 
car R 
LÖL"NEWICN Inc Neustart mit einem anderen xO möglich 
EkD 79 BYTES durch xEQ A (F+) 
‚EKD. 65 8715 


xU sollte möglichst nah An einer vermuteten 
Nullstelle liegen 
size=004 


Lineare Regression mit Fehlerrechnung 


Formeln: 


EIN DIT 


b Steigung 
Lxt - 1/n (£x,)° . 
GteLEL “LINF“ ı 1 
CLRG SF 21 TRER 84 p 2 
"GIVE DATES" AYIEN a=y- b.% Achsenabschritt 


reL 88 RCL 84 RCL 86 
ki 7 KL en IE INS TI 


RL Bo Kt2 RCLEI 7 Fehler ges fFkt.vertes: 
- 5tOde 7 ST0 83 

NERN XOY ROLBI * - ji -(bx, + a)) 
Si0. 62 "a2" ARCL X ee 
AVIERK "b=" ARCL 83 n-2 


AVIEM REL 87 RCL 83 


*t2 * RCL 95 RCL 89 , 
RoLOE aa a + + Fehler der Stei,ung: 


RCL 84 RCL 06 RCL 03 rn 

* - RCLB2 * RC AI s m 5 Per 

kiLe8 0 + ST+% b “4 ‚< y 
nEx; mx) 


RLLT XOY - REL 89 
2 - 7 SORT STO 8 


-5.Y=" ARCL X AYIEN n R ö 
REL BL RCLB7 RCL 08 Fehler des Achsenabscnnittes: 
RC. 09 = 7 SORT » 2 
„ "Suas" ARCL X AVTEN z. 2 m: 
RCL 81 RCL 08 17% a 2 - 2 ”y 
SORT # *S.b=" ARCL X nz; (Zx.) 
- AYIEN 5 
eIeiBL Hl 
-X=9° PROMPT PÜL BI * 
RCL BE + Y=r ARKLK Programmumfang: 151 Bytes 
Av 10 81 .END. 
en 2 SIZE D10 


Zum Gebrauch des Programms diene fly. 
Beispiel: 


R x x] 1]j2 33 j4 
Geg. sind die Werte ‚Ir tsfıö 


1) XEQ' LINF 
2) Nach der Aufforderung "GIVE DATES", Eingabe der Werte wie folgt: 


1jENTER)S: I + „ 25ENTERRB;T + „ etc. 

3) R/S: a=4,00 ; R/S: be1,bu ; R/S: 5,Y=0,77 ; R/S: $.a=2,95 
R/S: 5.b=0,35 

4) R/S: X=? Um die HReg.gerade zu zeichnen, kann man sicneinige 
Fkt,werte ausrechnen lassen, z.B.: 1 R/5 Y=5,6,; R/S: x=? 
4. R/S Y=10,4 

Eine Korrektur erfolgt win unter 2), ader stuttÜ+,2- orucken. 


Geralo Kranpe 


PRP.“PFZ* 


OlsLBL "PFZO—. 
-PRIN? ZAHL=?° PROMPT 


d4LBL al 

Fixa cr 08 SF II 

cr 21 $STO 9 STO 94 
INT LASTX "ZAHL WAR 0° 
4:0? ull 85 

"ZAHL MAR NEG.” XCH? 
CT0 05 “ Z. MAR BRUCH“ 
X? CI005 1 - 
"ZAHL WAR I" X=8? 

6To 85 RiL 64 SORT 
sT0 83 *F.=" 2 ST0 65 
xEO 83 3 STO 05 

KEQ 83 1 STO 85 


39eLBL 82 
4 Ste 05 XEO I 2 
Ste 85 XEO 83 CTO @2 


47+LBL 83 

RCL 83 KCL 85 MY? 

cT0 84 RCL 64 RCL 65 

muB X#8? RTH SF 08 

ARCL 65 “b," AVIEM 

RCL 04 KL 85 / 

STo 04 SORT STO 83 

6T0 8 

6B+L8L 84 

ARCL 84 "+. PS? 08 
- 670.05 CLA ARCL BI 

"r=PRIN” 


?6+LBL 65 
AVIEN TGHE 9 FS? 55 
xeO 85 STOP CTO 81 


G3eLBL 66 
SF 21 RCL®I AK 125 
ACCHR 32 RCCHR ACH 
PRBUF EKD 


LBL"PFZ 
END 213 BYTES 


RECHENZEIT: 
Tu 9,0830Tv'+8.04 [hin] 


Yegreßte in der Zahl ar 
kommende Primzahl 


Schnelle PRIUFAKTORZERLEGUNG mit dem HP 41C 


Säntliche mir bekannten Programse für Prinzahlen bzw. 

sur Primfaktorzerlegung sind eine grauenhaft furohtbare 
Zumutung, dus stundenlange Warten insbesondere bei großen 
Zahlen ist eine völlig eilnnlose Geduldsprobe und tötet 
einen die letzten Nervenili Daher habe ich so zwischen= 
durch ein unwahrscheinlich viel sohnelleres Programn, 
das zudem nooh einigen Komfort bietet, erarbeitet. Dieses 
neue Prograan zerlegt z.B. die Zahl 6 869 821 302 in 
nur 4 Winuten in seine Primfaktoren!!f Das ist nur 1,1% 
der Zeit, die das erst kürzlich im Sonderheft "Meihnachten 
80" von Herrn Christof Born erachienene Programa für die 
sleicohe Zahl brauchte, nämlich oa 6 Stunden! Vielleicht 
sind andere HP 41C-Besitzer auch an diesem schnellen 
Prograna interessiert 


Nach dem Einlesen der Karte verlangt der Rechner im 
Klartext nach der zu untersuchenden Zahl, die sogleich 

auf Lerlogbarkeit geprüft wird, widrigenfalls erscheint 
Fehleranzeige im Klartext. Werden Faktoren gefunden, 

so werden sie alle in einer Zeileübersichtlich 
dargestellt. Ist zusatzlich noch ein Drucker angeschlossen, 
so werden die AVIEW-Druckbefehle für den Drucker unwirk= 
san gemacht und dafür am Schluß die eingegebene Zuhl 

und daran anschließend die gesammelten Prinfaktoren 
einzeilig ausgedruckt. Anleitungs 


Tasten Anzeige 


Prograan einlesen PRIM? ZAHL=? 
lautostart) 


Zahl eingeben: ‚R3 
z.B. RS Re 2,3,3,5. 
ziB RS 41 = PRIM 
z.B. RS ZAHL WAR BRUCH 


z.B. 5 i RS ZAHL WAR 1 
z.B. RS ZAHL WAR NEG. 
usw., Usw., usw, 


sit DruckersDruokerbild| 740, 740% R= 2,2,5,37. 
(MAN) 
bei Beginn mitten im PGRU 
statt HSı "Zahl", XEQ, 01 


-A63- Hauke Tetens, 7218 ıvrossingen, Pr.-Ebert-3.16 


VergleWh zur Rechengeschnindigkeit Programm PFZ 


(0. Drucker) 
Version 
Herbert/Jürgen 


Arguaent | Faktoren 


Version 
Niele 


15987 | 3,73,73 
1924 | 219 7 
12989 Primzahl 7 
zpıe | 2, 1999 9 

ıppppı | 11, apsı 22 


Das letzte Beispiel ist wohl etwas extrem, aber vielleicht gerade 
deshalb interessant. 
PFZ in unserer Vereion wird nach Eingabe der zu untersuchenden 


Zehl mit XEQ PFZ oder Zuordnung gestartet, für Zerlegung einer 
neuen Zahl einfach R/S hach Eingabe der Zahl. 


Listing: 
24+LBL 01 49eLbL 82 
PRP "PFZ- 25 RCL 81 58 “PRIMZAHL“ 
BleLBL "PFZ» % Bi ba es 
82 FIX 0 28 X=8? S2eLBL 83 
83 CF 88 29 CTO 84 53 -UNZERLEGBAR* 
. a 38 F9? 91 54 CT0 08 
en \ 31 CT0 82 
32 FC?C 82 SSeLBL 84 
8? RCL 91 3000 05 56 SF 88 
08 INT 3 57 CF 01 
5 LASTH 35 STO 82 59 .RCL 82 
11 610 83 RUM re 
ine 68 ST, 0 
13 STO 82 zus 62 ENTER 
en 2 62 ENTER? 
? 39 Ste 92 63 SORT 
“Lı 5 u 48 RCL 0 64 STO 88 
17 010 82 ar a 
42. K=Y? 66 1 
18 Kor 43.010 61 67 x? 
Br 8 4F09 8 68 CTO 81 
, . 45 CT0 & 
? 46 RCL 81 69«LBL 88 
22 SF 61 47 ARCL X Tacr 00 . 
23 CLA 48. C10 TU Cr BI 
n T2cr 02 
73 AvIEN 
74 TONE 9 
75 Em 


Jürgen Moeck 
Dellplatz 7 / 117 
4100 Dulsburg 1 


Drucke 46.62 


Ausgaben Januar bis Mai 1981 


HEWLETT-PACKARD ANWENDER-CLUB 
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grafik erstellt von klaus böttner, hewlett-packard ambh, auf einem hp-85 mit plotter 
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CLUBBÖRSE 
Clubzitglieder können in der Clubbörse kostenlos Gelegenheitsanzeigen aufgeben, 


(09/79, Mr. 1940...), 2 DDM, Kartenleser (12/80), HP-Akku-/Retz- 
gerät, Buch“ "SYnthetic Prgr." von Dr. Wickes für 720 IM, u.U. auch einzeln. 


Johannes Schu, Indvesleratzr 181, 6620 Völklingen 7 (129) 

Vexkaufe HT-19, 5 Monate Garantie, komplett und 1a Zustand, Preis: VHB 450 M 
Karsten Peierlein, Breierspfad 83, 4600 Dortmund - Wambel (093) 

Suche zwei_Batteriehalter für HP-41 

Reiner Krause, Hellmundstr. 4, 6200 Wleabaden 1 (475) 


Verkaufe PET ?001, 8K, kleine Tastatur mit Datasette, einwandfreier Zustand, 900 IM 
sowie STSOR- Drucker MX-8o mit cbm-Interface für Groß- und Kleinschreibung und 

Umlaute, neu gekauft Januar 1981 (2069 DM) für 1200 DM 

Beide Geräte zusammen 2000 IM. 

Prof. Dipl. Ing. H.L. Jochen Kux, Pommernstr. 90, 6800 Mannheim 31 (452) 

Verkaufe _PPC-RÜM nagelneu at zwei Handbüchern und allem Zubehör 

Einmalige Gelegenheit, da nicht mehr produziert wird ! 

Festrreis 3%,--T!! plus 15,--DM Porto und Verpackung 

Cliver Rietschel, Postfach, 2420 Eutin 1 (001) 


Angebot: 1) Lieferung eines Zueatzgeräites zum Netzteil des 41-Printers, so daß 
Rechner über Netz mit Strom versorgt wird und 1 Satz Akkus Typ Varta 
151 D zußerhalb geladen wird. 
2) wie 1) jedoch mit Netzteil für Nicht-Drucker-Besitzer, wobei späterer 
Anschluß am Printerbetzteil möglich ist. 
5) Varta Akkus Typ 151 D für je 4,30 DM (zuzügl. Porto 3,--) 
zu 1) urd 2): Lieferumfang: Gerät (geprüft/getestet), Beschreibung mit Anbauanleitung 
sowie wichtigen Bedienungsanweisungen für den Betrieb 
Lieferzeit: ca. 1 Woche 
Garentie: Gerät getestet und geprüft. Keine weitere Garantie 
Preis: Gerät wie Pkt. 1: 30,--DM 
Gerät wie Pkt. 2: 45,--M 
Porto je Bestel.: 3,--M 
Zahlung: Scheck im vorab 
Gerhard Schänemann, Kirchfeld 11, 3584 Zwesten, Tel. 05626-1458 (472) 


Grundlagen ! 

Synthetische Programmierung ist nicht nur etwas für Byte-Dompteure sondern kann durch- 
aus helfen, Programme zu verkürzen, oder macht gewisse Routinen erst möglich. Für alle 
diejenigen, denen nur an der praktischen Anwendung der synthetischen Programmierung 
gelegen is“, und die vielleicht weder Muße noch Gelegenheit haben, sich durch den Wickes 
oder das Pi'CJ zu wühlen, sollte unter Federführung eines "Synthetic-Profi" eine Rubrik 
in "nrisma" errichtet werden, wo in Form einer Fortsetzungsserie die wichtigsten Be- 
fehle der synthetischen Programmierung nach der Devise abgehandelt werden: 

1. Was bewirkt der Befehl ? 

2. Für welche Zwecke kann man ihn anwenden ? 

3. Wie kann man den Befehl erzeugen ? 

Hinterzrundinformationen über Byte-Dressurakte sollten dem Leser von Wickes und natür- 
lich weiterhin speziellen Artikeln in prisma vorbehalten bleiben. 


Klaus Werner Hoenow (11) Harald Wienbeck (141) 
Fallo Clupritpelieder_! Wer forscht mit ? 


In unserem Hi-41 stecken noch viele Geheimnisse fill! Als Forschängssrundlage dient das 
Programm "LIAN BYTES"; zu beziehen durch den Kartencopyservice. Tas Prgr. wird wie 


folgt bedient: 1. Karten mit LB einlesen. GTO.. 
2. Eingebens 01 LBL"AB" 02 XEQ"LB" 03 STOP 04 ENTER 05 ENTER 2... 
Soviel ENTER eingeben, wie benötigt werden, besser zuviel als zuwenig 
3. XEQ"AB" Das Prgr. Load Bytes wird mın automatisch aufgerufen und fügt dde . 
Programmbefehle anstelle der ENTER ein. Es müssen nacheinander die Prer.Befeh- 
le in dezimalem Code eingegeben werden ( prisma 27/28 - 1980 ). 
Beispielt Du willst STOM RCLM X()INDDe GTO INDM erzeugen. 
Dazu ist dezimal folgendes einzugeben: 145,117/144,117/206,254/174,117/ 
Es wg auch Alphalabel und ENDmarken erzeugt werden. Dezimaler Code der Alphalabel ist 
192, 00 (=Tastenzuoränung), 242 (=TEXT2), 66 (=A), 67 (=B) 
Wenn zu wenig ENTER eingegeben wurden, erfolgt die Fehlermeldung NO MORE. Wenn alle Program- 
befehle in dezimalem Code eingegeben sind, R/S drücken, ohne einen Wert einzureben. Beim Um- 
schalten in den Programmodus siehst Du evtl. nach einigen ENTER die erzeugten ?rogrammbefehle. 
Nach Löschen der überflüssigen ENTER steht das Programm zurVerfügung. Mit diesem Prer. sind 
alle möglichen Befehle zu erzeugen, u.a. auch Befehle, die völlig neue Wirkungen zeigen. 2.B, 
belegt die ENDmarke ( 193, 00, 00) sämtlichen vorhandenen Speichervlatz und is: nur durch ME? 
LOST zu löschen. Bitte experimentiert doch einmal und versucht u.a. herauszufinden, was mit den 
versch. LBL und ENDmarken möglich ist, ! Euer Walter (205) 
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! Die Post greift Ihren Kunden in die Tasche, weil der Bund 'der Post in die Tasche 
greiit. So begründet die Post ihre für März 1952 geplanten Gebührenerhöhungen.. 
Denh der Bund als Eigentümer der Post will statt bisher 6*/s Prozent künftig 10 Pro» 
zent der Posteinnahmen in seine Kasse leiten. Dieser Aderlaß würde — so dis Post 
— daru führen, daß die Gewinpe rapide schrumpfen und schon 1983 in Verluste 
:  ußpschlagen. Um das zu verhindefo, sollen die Gebühren vor allem in jenen Berei- 
|" 'chen angehoben werden, in denen die Erträge nicht die Kosten deckem. Und das 
| ist nahezu überall def Füll, wenn män einmal vom gewinnträchtigen 
| Fernmeldedienst äbsieht. u 


EFROMs für HP 4.1 

zn ei Ei En En m En ARE U En u zu 

In der letzten prisma-Ausgabe wurde zum erstenmal ein Kassetteninterface für den 
HP-41 vorgestellt. Diese Ausgabe folgt nun mit der "Barcodeplottsensation", einem 
Superknüller. Beide Sachen wurden nirgendwo sonst in der Welt publiziert, auch 
nicht in den USA ! Dafür verlautete aber etwas anderes über den großen Teich. Eine 
private amerikanische Firma bietet ab etwa Ende August/Anfang September Eproms für 
den li?P-41 an. Ein EPROM ist in der Anwendung einem ROM gleichzusetzen, hat jedoch 
den Vorteil, mit einem entsprechendem Gerät (Programmer) vom Bemitzer beliebig oft 
selbst programmiert werden zu körmen,. Was bringt nun diese Neuerung für den 41 77? 


Vorteile: 
+ billiger als Kleinserien von ROMa: n ROMs kosten 20 000 + n + 22 US $ 
n EPROMs kosten 1 000 + n + 250 US $ 

Nie EPROM-Freige sind Schätzwerte, wie sie in den USA der Presse mitgeteilt wur- 
den, Dieses bedeutet: Ab BA Modulen sind die EPROMS teurer, darunter aber billi- 
ger als die RÜNs,. Dabei wurde für die EPROMS ein Programmer und Materialkosten 
excl. Frogrammierkosten veranschlagt, In der Praxis werden eich die EPROMa evtl. 
nech hei steigender Nachfrage verbilligen, hinzu komt aber noch der Arbeits- 
lohn etc, fürs Programmieren, wenn man dies nicht rein aus Hobby tut. 


+ EFFCM-Innalte können nachträglich geändert werden (Update-Versionen t) 


+ Extrem viel schnellere Programmausführung bei Programmierang in der HP-41 eigenen 
Vaschinensprache (nicht UPN !), die nur über EPROMs anzusprechen ist (derzeit), im 
vergleich rur UPN-Prorrammierung. 


+ Es besteht die Möglichkeit, völlig neuartige Aufgaben zu bewältigen und dabei noch 
Sreicherplatz einzusparen im Vergl zur UPN-Programmierung. Beispiele wären u,a. 
z.R,.: höhere Programmiersprachen, wie BASIC, FORTRAN, APL, ..., völlig neue Alpha- 
zeichencrganisation 


- Mit der über EFROMs zugänglichen Maschinensprache ist es möglich, Befehle zu de- 
firieren, die in Zusammenhang mit der von uns veröffentlichten "Stricheodeprinting- 
rathode" zuf dem 41-Standarddrucker sensationelle Anwendungen ermöglichen. Ich den- 
ke da z.B, an einen Pefehl, der z.B. FRB heißen könnte und ähnlich wie PRP wirkt, 
nur zit den Ilnterschied, daß das Programm nicht als gewöhnliches Listing, sondern 
als _fer;irer Strichcode auf dem Drucker ausgegeben wird. Eingabewert wäre dann - 
itrlich PR? - nur das label des zu druckenden Programms ! Das erscheint mir vor- 
erst zwar noch Zukunftsmsik, aber die Zukunft kommt ja schließlich ..... 
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Nachteile; 

— Sehr teuer: Vergleich mit ROMS siehe oben. Das erste EPROM kostet mit Programer 
1250 US # ( nicht unter 3500,—DM mit Fxportkosten), Jedes weitere EPROM kostet 
den änsender dann 250 US & (ca. 700,--D). Ein® größerer Absatz von EPROMS dürfte 
also noch eine Freissenkung voraussetzen, die aber möglich zu sein scheint, 
Vereieich mit RAMs: Einfacher und billiger ist das sogenannte Page-Switching, al- 
so der Finbau mehrerer QDMs in den Rechner, wie es Hans-Günther macht. Diese Me- 
thode hat natürlich auch ihre Vor- und Nachteile. 


- Eliminierung jeglichen Kopierscmhutzes,. Selbst PRIVATE-geschützte ROMs können mit 
EFROMs - wenn man die Maschinenaprache kennt - problemlos entprivatisiert und/oder 
kopiert werden. 


- Der eigentliche Vorteil - extreme Vervielfachung der Rechengeschwindigkeit - ist 
derzeit unreaiistiseh, Die Programmierung in Maschinensprache wird von HP aus ver- 
ständlichen Tründen ebenso wie die synthetischen Programnierungen nicht unterstützt; 
es ist sogar mehr als verständlich, wenn man sich vor Augen hält, daß zur effekti- 
ven Programmierung nur hochqualifizierte Fachleute in der Lage sein werden, deren 
Arbeitslohn die FPR'’Ms dann wohl dermaßen verteuern wird, daß gute EPROMs wahrlich 

unbez>ehlbar werden. Nie "bezahlbaren” Eproms werden sich daher wohl vorerst auf "nor- 
male"Programne beschränken, die dann aber auch nicht wesentlich schneller als im RAM 
oder Ri laufen...c. 


Rie renannten 25" 05 F3 beinhalten ein EPRAM und ein EPROM-Inter[ace, Werden mehrere 
Fit Ws wınlweise an einem Rechner benötigt, so ist nur ein Interface nötig. 


Reue Trojektleiter ! Oliver (1) 


wie immor, wenn es etwae zu tun gibt, ist die Resonanz auch bei den Projekt- 
leitsrgssuchen sehr mäßig gewesen, Darum ein paar Klärende Worte: 

Ein Projektleiter ist für das von ihm selbst gewählte Themengebiet als Koor- 
dinntor tätig. Bei Softwarethemen sieht dae in etwa so aus: 

Beispiel Mathemztik: Alles, was bisher an mich gesandt wurde und zum Thena 
Mathematik paßt, geht jetzt an den zuständigen Projektleiter. In diesem 
Fall (Mathematik) ist das z.B. vom Plottprogram für mehrere Funktionen 
die zu Integralrechnungsprogramen alles was so anfällt. Auch einfache 
und einfachste Sachen sind erwünscht, beispielsweise die Sortierroutinen 
in dieser Ausgabe oder auch die (hoffentlich sehr vielen !!!) BUBBLE- 
SORTe, die zu schreiben in dieser Ausgabe aufgerufen wird, Eben alles, was 
mit Mothematik zu tun hat, 

Der Projektleiter ordnet dann die erhaltenen Programme ähnlich, wie ich 
es mit den SORT3-Programen getan habe und schickt seinen Aufsatz an mich 
zum Druck, Bei größeren Programmen hat er darauf zu achten, daß nichts 
doppelt oder in eehr ähnlicher Form zweimal veröffentlicht wird. Hierbei 
hat er zwischen doppelten und sich erzänzenden Programmen zu unterschei- 
den, Werden Programme deutlich verbessert, so sind diese auch gerne für 
prioma erwünscht; selbst dann, wenn sie in der Funktion mit vorgehend ver- 
öffentlichten identisch sind. 

Für die Mitglieder bedeutet ein neuer Projektleiter nur eine neue Adresse, 
an die sie Ihre Prgr. schicken möchten - und für den Projektleiter oft 
einen erheblichen Nutzen für den eigenen Wissensstand oder die eigene 
Ausbildung I 

Für alle - ob Projektleiter oder nicht - gilt natürlich nach wie vor: 
Platz in prisma bestmöglich ausmitzen ! Darums Schreibmaschine einzeilig 
und keinen übermäßig großen Rand (insbesondere nicht in der Mitte zwi- 
schen den beiden Textspalten !!f) Vergleicht doch mal die von mir geschrie 
denen Seiten mit denen von Niels oder den vielen anderen, die immer noch 
eineinhalb- bis zweizeilig schreiben. Übersichtlichkeit: JA aber: PREIS: © 
GNSTIGER DRUCK: UNBEDINGT !! 3 
Damit wünsche ich uns allen einen schönen Spätsommer, der auch hoffent- 


lich ein pagr_neue Überaschungen für den Club _bringt_! __ Fuer Oliver ___ 
PROJEKTLEITER MATHEMATIK 

ANDREAS WOLPERS - KRAMERSTR,. 1 - 3200 HILDESHEIM - NR. 349 
NR. 349 

PROSOJSKTLEITER ELEKTROTECHNIK 

MARIUS HEYN - GROSSHAUSBERG 02 - 10 - 03 - 7743 FURTWANGEN - 
NR. 164 


Günter Odebrecht, Am Stadtpfad 11, 6236 Eschborn, Tel, 06196-462538 würde 

evtl. eine Sammelbestellung Batterien für den 41 zum sehr günstigen Rreis 
durchführen. Schreibt ihm bitte kurz auf einer Postkarte, wie groß Euer 
Interesse an einer solchen Sammelbestellung ( Preis ca. 1,60DM / Batterie) ist. 


Zahlen bis zu über 9.999.999.999, enthält keine synthetischen Befehle und 
benötigt keinen Datenspeicher. Johannes Schu (129) 

LBL"DET CI LBL99 STOY 16 MOD ASTOT ASHE AST Z 

XEQ INDDX ARCGT ARCLLZ X)Y mste / INT xko? cTo 99 
PROMPT 

LBL 00 "on RTN LBL 01 "U RTN oeosenenen. LBL 15 pn RTN 
END 102 Bytes 


SORT3 und die fünfzig Briefe Oliver (1) & fünfzig andere 


In der letzten prisma-Ausgabe erschien das SORT3 Programm won Culdo Studer. Da es 
zu verkürzen war, nicht immer richtig funktionierte und schließlich einen Großteil 
der Clubmitrlieder interessierte, erhielt dieses Programm die größte Resonanz, die 
je eines seit Bestehen des Clubs erreicht hat ! Ca. 50 versch. verbesserte SORT3 s 
gingen bei mir ein, von denen einige hier vorgestellt werden sollen. 

Nebenstehende Version ist weder kurz (36 Bytes), nooh sonderlioh schnell, dafür 
aber recht originell, Außerdem hat Michael noch ein Bubble Sort Prgr. geschrieben, 
wer schickt ein verbessertes Bubble Sort (oder sollte das schon optimal sein ?) ? 


Kürzer ist da schon die Version von Ulli(3), der es auf OL+LBL "SORTI- 
30 Bytes brachte. Doch in wenigen Sekunden war auch ne- REL 82 RCL MI NY? 
benstehende Routine von Michael (421) auf 30 Bytes ver- x» 682 STO O1 RCL 83 


kürzt; doch dann kam noch ein Michaels Michael (325) Kr? X0.81 X 82 
sandte mir eine 28-Byte-Version, die die beiden anderen STO 83 RCL 92 0? 
unterbot. Er sortierte mır im STAK und sparte dadurch x0 83 $TO 02 END 
Speicherbefehle eins B1LAL "SORTI- ar 

RCL 03 RCL 82 RCL 6 LBL'SORTI 

x? XOY RIN 0Y? EnD 30 BYTes 
Andreas (69) und Ger- yor Rt ©? xor ULI -J- 
hart (197) unterbo- STo 61 RDN STO 82 RDN 
ten aber selbst diesen $70 03 END BleLBL "SORTZ* 
Rekord. car ı RCL 82 RCL 83 XV? 
Ihre beiden Versionen LBL'SORTI xOY RL BI XV? KOY 
benötigen mır 26 EN 28 BYTES S10 03 RDIN X? KOY 
Bytes ! Diese beiden MICHREL -325- ste xor STo 9 
Versionen sind demn EN 
auch die kürzesten caTi 
aller mir zugesandten ! Bi>LBL "SORTI” LEL"SORTI 

vr? XV Kin 9? EKD 26 BYTES 
XKOY. Rt 9? ROY % 

Doch halt: 2 Schumnler wa- m i BEN? 
ren auch noch darunter ! cat ı 
Gerhard (472) und Albert LEL"SORTZ BLSLBL -SORTI- 
(278) schrieben unabhänzig rm 28 BYTES RCL BI RCLE2 X? 
voneinander das nebenste- CERHARD -472- XOY RELBI:HY? XOY 
hende Programm, das nur 20 SIO OL RIN X? KOY 
Bytes Speicherplatz benötigt. ALBERT -278- sTO 82 RN ST 83 END 
Aber warum Schumier !?? Nun, 
diese Routine sortiert nur im Stack und achtet damit ar 
nicht die Vorraussetzungen, die die Aufgabe stellte I LEL’SORTE 
Aber selbst, wenn man drei RCLs vor die Routine hängt, END 26 BYiEs 


und die Ergebnisse auch noch abspeichert, braucht man 
nur 28 Bytes, Und beim Vergleich mit dem Prgr. von 
Michabk (325) sient man ja auch, daß ...... 


GEORG -197- 


Man merkt: Diese Aufgabe machte vielen Mitgliedern Spaß, darum auf in die nächste 
Runde: Wer schreibt das kürzeste RUBBLE-SORT-Prer. 77? WICHTIG: Die Programme kei- 
nesfalls an Oliver (1) schicken, söndern an den neuen Projektleiter Mathematik !111 
Und so sieht es aus, wenn ein ROM im HP-41 fehlerhaft ist (von Georg (197)): 


.| 
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SORTIEREN 
&) 

Zuerst möchte ioh auf die beiden Programme von Guido Studer (184-81) 
eingehen ; Meiner Meinung nach enthalten beide mehrere Fehler. Abge - 
sehen von der Tatsache, daß in meiner Kopie beim Basio Program die 
logischen Vergleiohssymbole fehlen, ist es überhaupt nicht möczlich, 

mit zwei Vergleiohsbefehlen drei Zahlen zu sortieren. So liefert die 
4iler Version bei fast allen Eingaben falsohe Ergebnisse. Es wird z.B. 
3(RO1) 1(R02) 2(R03) zu 1(R01) 3(R02) 2(R03) "sortlert? 

Hier mein eigenes Programm, das nur deshalb mit zwei Vergleichsbefehlen 
auskommt, weil in Zeile 014 ein Rücksprung vorgesehen ist : 


001 LBL "SORTZ" 008 LBL 01 VERKUERZT: 
BCL 01 “  BCL 03 R B 
RCL 02 X>T? ie san 
x)? 6TO 02 ; 
100 en m on 10% 
x<>01 STO 03 $ 
” n 
ae 015 LaL 7 B9eLBL Bl 
016 END RCL 63 XY? RTH 
x0 82 STO 83 CTO 82 
END 
car 
LBL"SORTI 
3) 39 &YTES 


b) BUBBLE SORT 


Hier nun ein Programm, mit dem beliebig viele Zahlen, die in beliebigen 
hintereinanderliegenden Registern stehen, der Größe nach sortiert 
werden können. 

Nach Eingabe von REG a (Anfangsregister) und REG e (Endregister) werden 
die zwischen diesen beiden Sohranken liegenden Inhalte der Register 
sortiert. (REG a>04) 

Die verwendete Methode nennt sich Bubble Sort (vergl. CHIP 7/31 S.46ff) 


001 LBL "BSORT" 014 LBL 02 RCL 01 
"REG a 7" RCL IND 02 RCL 04 
PROMPT RCL IND 01 x>n 
STO 03 %£ T? GTo 02 
"REG e 7" GTO 03 FS?C 00 
PROMPT x>Y cTo 01 
STO 04 SF 00 034 END 

008 LBL 01 021 LBL 03 
RCL 03 STO IND 01 
sSTo 01 RDN 
1 STO IND 02 
+ 1 
STO 02 ST + 01 

ST + 02 


Viel Spaß beim Ausprobieren und Happy Programming 
wünscht Euoh 
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SIFFERENTILLLEICH: S 2% 53 PROMPT 
See S1eLBL "DIE 8gfr garerenne 
RUFLOESING vn "= FGL" B&%% 55 x<c>rY 
02 Fc? 19 3 
Er ORDNUNG 83 FS? 28 göe® De 1 ERBEN 
RAN 84 CTO 15 E5cE S7eLEL 19 
2. ORDNUNG: 85 xea 17  LEHSF 0 58 Fs? 19 - 
eh rn 86 "PLOT:SF 59 RTN Di 
VerPCK.Y,Y") OBER 20 ws 68 FC? 28 ss 
Yf0,Y,2 87 PROMPT S 61 GTO 86 ©n 
Tacck,Y.z? 08 ne 5 62 RCL ı2 gs 
5 : 2 63 FS? 
Ay ORDNUNG 83 PROMPT $ 64 RTN m Ür 
ER ODER 18 "TYP=1,2 9 65 RCL 28 23 
TeRnYY 2) ‚a? 5, 66 XEQ "PLO F 
Earth 11 PROMPT T2- 
ABLAUF: ı2 sF IND X 67? RTN 
FUER FLOTTEN. PRINTER: ı3 FSS? 28 __ 
PRINTERSCHALTER. CH ID) 14 GTO 08 R 68+LBL 96 
PLOTTEN: XEO PRP 15 7XMAX?- 58 x. 
OTTEN: LT BE 2 69 "x 
WaE?. DIFFE ... 16 PROMPT zo N re 8 
NIT PLOTZ- USER-RORE 12 310.99 $3.2 71 xEa ı6 
PRINTEN U/O MEILEN: 13 "XINC?“ BEST 72 "Y- 
x&d DIFFEL 19 PROMPT ESE4H 73 12 
FÜ) PESP. GC) GLS EIGENE za STO 18 + 74 XER 16 
PROGRPNNE SCHREIBEN 21 ”e?” FE 75 FS? ei 
X SIEHT IR Y-REG, #0 22 PROMPT „PERL 76 GTO 15 
RESP. GC) SUEESEN MICH 23 STO 18 SEES 77 "2- 
In 1-FEG STEHEN, 24 CLX 78 20 
STATUS: 25 STO 19 79 XEQ 16 
ERB-Rie,R12-519 EEE 89 FS? 92 
DISAETZLICH BEL TIP 2: 26+LBL 08 ei GTO 15 
P2O-R24 27 RON 8,2 "Y'- 
NISRETZLICH BEI TYP 4 28 "NAME:FC 83 25 
R25-P79 >?” 84 XEQ 16 
Fa1,F82.F98-FiR, FIO-F2I 29 PROMPT 85 "2° 
INHALT: 3a ASTO 13 86 26 
DIBTRTRLTAN MN 31 FS? 01 87 XEQ 16 
RI2-YO,RIF:FO".RIe V 32 GTO 85 — 
RIS:k-BIS:EL.KIT:T/RIN © 33 NAME:GC 88°LBL 15 
B1I:n.B20: 20.921: °50° >?” 89 RCL 98 
P22:2.R23-1.924:11 34 PROMPT 99 RCL 69 & 
R25:1°0,826 29.027: 7° 35 ASTO 21 91 %<=Y? z 
28:2" ,R29. 1° ,R30:1° 92 CTo 17? = 
FAL-FOZ-FAS.TYP,FIB:BEL. 36+LBL 85 93 CLxX = 
FIS AK, FZU:PLOT,FZI-BEL 4 a —— 94 sın 1 8 
= 95 FC? @1 
2 ass 96 STO 23 = 
2 = ? 2 94 
VERFAHREN: PUNCE-KYTTA 41 "Hr?" Fr ss E10 535 £. 
RUSCABE: 1. ANZEISEN 42 PROMPT 5 99 Fs? 84 S. 
2. PRIM’N 43 FC? 01 198 STO 38 
3. PLATTEN 44 STO 28 & 161 2 
VER PROGEUM HER IDER 45 FC? 01 3 182 ST- ı9 
EXTERM. MINTLTOSY 46 RDN F3 183 xt2 
LITERRTI9_ LIEFNG VOM 47 STOo 12 F} 184 STo 17? 
DIFFEPERTIALGLEICHUMGEN 43 %<>Y 
MIT PRICRANKLEPSRREN 43 STO 98 19S5*LBL 18 
TESscrEndeiisced sn FC? ag 196 XENn IND 
AUGE 6. VERZ Ssı GTro 19 17 
ver So .y.Q- R 
re ig RN nn TORE EL 


mar aetr (1%; \ 


x 


188 xEQ IND 164 ST+ 25 217 - 


13 165 RCL 38 218 RCL 108 
1989 STO 16 166 RCL 26 ' 219 = 
118 ST+ 15 167 + 228 ST» 14 
11ı FS? 18 168 RCL 108 221 RcL 26 
112 ST+ 15 169 =“ 222 RCL 24 
113 FS? 91 179 ST+ 208 223 + 
114 GTo 97 171 RCL 23 224 STO 28 
115 FS? 94 172 ST+ 26 225 LASTX 
116 ST+ 29 173 GTO 19 226 2 
117 RCL 88 _— 227 7 
118 XEQ IND 174*LBL 16 228 - 
21 175 FIX 8 229 RCL 108 
119 STO 24 176 ARCL 19 ; 230 » 
128 ST+ 23 177 "t= * - a 231 ST+ 22 
121 FS? 10 178 RCL 18 3 232 RTN 
122 ST+ 23 179 LOG = 
123 FS? 084 180 1 & 233+LEL 04 
124 ST+ 38 181 + E 234 RCL 12 
182 FIX IND FE: 235 STO 14 
125+-LBL 97 3 236 RCL 18 
126 DSE 17 183 ARCL IND & 237 ST= 16 
127 GTO 18 Y 238 FS? 81 
1283 FC? 04 184 AVIEN 239 RTN 
129 GTO 98 185 RTN 249 ST« 24 
138 ST- 30 —- 241 RLL 20 
131 RCL 16 186*+LBL 81 242 STO 22 
132 ST- 29 187 CF ı8 243 FS? 82 
133 RCL 18 188 RCL 10 244 RTN 
134 6 189 2 245 RCL 25 
135 7 198 ST*« 18 246 STn 27 
136 ST+* 29 191 X<>Y je 247 RÜL 26 
137 ST« 30 192 GTO 89 Fe 248 STO 28 
E} 249 RTN 
133+LBL 98 193+L8L 93 pi 
139 RCL 10 194 SF 18 £ 250®.L8L ı7? 
iss 6 195 RCL 18 3 251 CF 81 
5% z 252 CF 02 
142 ST« 15 196+LBL 99 s 253 CF 84 
1433 FC? 91 197 ST+ 08 5 254 CF 10 
144 STr 23 255 CF 19 
145 ISC 19 199*LBL 02 256 CF 28 
146 CLX 199 xEQ 84 257 BEEP 
147 FS? 94 288 RCL 16 258 -FIN- 
148 GTO 11 291 FS? 04 259 CF 21 
149 RCL 15 292 GTO 10 268 AYIEH 
159 ST+ 12 203 ST+ 14 261 SF 21 
15ı FS? 91 204 FS? 01 262 END 
152 GTO 19 : 285 RTN 
153 RCL 23 = 286 RCL 24 
154 ST+ 20 3 297 ST+ 22 
155 GTO 19 = 2088 RTN 
156*LBL 11 8 289+LBL 19 
157 RCL 29 2 218 RCL 25 
158 RCL 25 zıı x<>Y LBL'DIeFGL 
168 PCL 18 213 STO 27? 52€ AvTEs 
161 * 214 LASTX 
162 ST+ ı2 215 2 


163 RcıL 15 216 7 


Prosrarmioerung von PerInhericfunktionen ohne Anschluß 
der Perinrherie-Einheiten, 


Gbwohl jch snwohl den YPartenleser als auch den Drrk=- 
ker besitrr, schljefe ich die Geräte mur an den NRoch- 
ner ar, wenn ich sie tatsächlich benötire, 


Inzwischen besitze ich zwar das Quad-Modul und könnte 
daher zleichzeitir beide Geräte angeschlossen lassen, 
aber vorher, bei der Verwendung dreier Single-Module, 
hatte ich nr die Möglichkeit, beide Geräte abwechselnd 
anzuschlicofen, 


Ich emnfan’? es schon immer als sehr lästir, die Goe- 
räte anschliefen zu miissen, wenn"deren Funktionen 
in ein Troszramm übernehmen wollte, 


Nchr durch Zufall,als daD ich danach gesucht habe, 
fand ich heraıs, wie es möglich ist, die Funktionen 
zu nrosrammieren,ohne die entsprechenden Geräte 
anschliofen zt missen, 


“ach meinem “Wissensstand gibt es 2 Hilfsmittel, 
1.) Den Byte-Jumper 

?.) Das Dyte-Loading-Prozramm 
Tn diesem Fall verwende ich lieber den Byte-Jumper, 
weil er nach meiner Meinunr weniger Anfwand erfor- 
dert. 
Tn PPC Calcnlator Journnl V8X1P91 wird der 

Prosranr “ode "Dyte-Jumper" 
beschrieben. Dieser "F9-Byte-Jumper" hat scegenüber 
dem Standard Fi-Dyte-Jumper den Vorteil, dan er 
sowohl im ?un-Modus als auch im Pgerm-Modus wirkt. 
Für die Milfe Aes T3-Byte-Jumpers beim Programmieren 
von XR0!'-Punktionen möchte ich folgendes Beispiel 
bringen. 
Nchmen wir eirmal an, wir möchten die Funktion 


TRREG programmieren, Wir bleiben im Perm-Modus 
und geben folgende Tunktionen ein, 


ıE (EEX-Taste) 
STO IND 39 
LN 


Jetzt gehen wir zurück zur Zeile 1 und löschen den 
Befehl mit der "Backarrow"-Taste, Wir bleiben weiter 
im Pgrm-Modus, verändern weiter nichts und setzen 
Jetzt lediglich den F3-Byte-Jumper ein, 


wir sehen jetzt das hochgestellte "T" für Text, 

den Querstrich am oberen Display-Rand als Display- 
Ausdruck für das "Null"-Byte und zweimal den "Doxed 
Star", 


Diese Zeile können wir jetzt wieder mit "Dackarrow" 
löschen und betätigen einmal SST, In der Zeile, lie 
wir sehen, steht XROM 29,16. Wenn wir den Drucker 
anschließen, wird die Funktion ganz richtig als 
PRREG interpretiert. 


In dieser Weise kann man jede Funktion des Druckers 
und des Kartenlesers programmieren. Nur die Funktionen 
des Dar-Code-Lesers kann man so nicht schaffen, 

das geht tatsächlich nur mit dem Byte-Loading-Pro- 
gramm, 


Warum verwenden wir bei der "synthetischen" Pro- 
grammierung von XROM-Funktionen gerade die Befeh:!c, 
wie sie im Beispiel oben verwendet wurden? 


In Zeile 1 steht ein "2-Dyte"-Befehl (1 E), Jeder 
2-Pyte-Befehl kann verwendet werden, "1 FR ist nır 
deshalb so praktisch, weil nur einmal die EEX-Taste 
gedrückt” werden braucht. 


Diesen 2-Byte-Defehl tauschen wir durch den 3-Byrte- 
Befehl "F3-Byte-Jumper" aus. In der nächsten Zeile 
steht wieder ein 2-Byte-Befehl ((sSTO) (IND 39)). 


Durch den Tiyte-Jumper wird Byte 1 (STO)"geschluckt", 
Byte 2 (InD 39) wird nun vom Rechner auf einzig 
mögliche andere Weise interpretiert. Nämlich als 
XROM. Der 1-Pyte-Boefehl "LN" wird damit automatisch 
als "PRREG" verstanden. 


Bei der Programmierung von Funktionen des Karten- 
lesers und des Druckers muß in Zeile 2 immer der 
Befehl "STO IND 39" verwendet werden. Nur der Befehl 
in Zeile 3 wechselt, je nach dem, welche Funktion 
wir programmieren möchten, 


Tjer eine J3ste dor Befehle, die der sawtlinachten 
Punttion entsprechen, Die Zahlen in der Liste sind 
die Finsabezahlen bei Verwendung des "Byte-Loadinc- 
Prorramms", 


IMG RAD 167,129 
RTYTA GRAD 167,130 
ROTAX ENTER 167,191 
RSIm sTop 167,132 
vor RIM 167,133 
YALL REE 167,13 
YDTA CLA 167,135 
UDTAX ASHF 167,136 
YPRV PS 167,137 
VSTS CLRG 167,138 
ACA - 167,065 
ATCHR x 167,066 
ACCOL yl 167,067 
ACSPEC x(v? 167,068 
ACK x)Y? 167,069: 
PLDSPEC X{=Y? 167,070 
LIST &+ 167,071 
PrA L- 167,072 
PRAXTS IN1S+ 167,079 
PRITT INIS- 167,074 
PRPTACS MOD 167,075 
PUTYS x 167,076 
PRP ACH 167,077 
PRPLOT P-R 167,078 
PRPLOTP n-P 167,079 
PAREG LN 167,080 
PNNEGH X hoch 2 167,081 
PRE SANT 167,082 
PRSTK Yhoch Y 167,083 
PRX cııs 167,084 
REGPLOT EZ hoch X 167,085 
SKPCHR LOG 167,086 
SFPCOL 1% hoch X 167,087 
STKPLOT Ehoch X-1 167,088 


was sind der Syte-Jumper und das Byte-Loadine-Pro- 
eramm? Tnzwischen dürfte verständlich geworden sein, 
daß beines Filfsmittel bei der "synthetischen" 
Programmierung sind. Das LP-Programm gibt uns die 
NAäglichkrit, jodes rewünschte Byte In fast jeder 
gewünschten Anzahl pro Zeile in Programmzeilen 
hincinzuladen, 


Der Ryte-Jumper ist eine synthetische Funktion, 
geschaffen mit Rem KA (Key Assignment) - Programm 
oder dem MK (Multiple Key Assignment) - Programm 
und einer von uns gewlinschten Taste zugeordnet, 


Im USER-Modus verwendet, veranlaßt er den Rechner, 
jedes von uns gewünschte Byte auf die einzig andere 
mögliche Art zu interpretieren, 


Wie kommt man an den: Byte-Jumper? Durch eine Status- 
Karte, das KA- oder das MK-Programm, 


Die Status-Karte bekommt man vielleicht, das KA- 
Programm ganz sicher beim Karten-Copy-Service un- 
seres Clubs oder übernimmt es aus dem Prisma Seite 
151,152 Juni '81, 


Für den Karten-Copy-Service verweise ich aufs Prisma 
Seito 145,146 Juni '81. 


Inzwischen gibt es mehrere verschiedene Ausführungen 
das KA-Programms, Mir selber gefällt eines am besten, 
das auf 2 Magnetkarten gespeichert 1st, 


Für das Mk-Programm sind 3 Karten nötig. Ich finde 
es zwar noch besser, es ist leider aber auch länger. 
Es ist die RAM-Version des Programms aus dem PPC- 
Custom-ROMN, 


Als Tingabevorschlag möchte ich die Zahlen 243 und 
Er weitergeben, 


Happy Programming 


Niels Nöhren (81) 
Kielort 16 

2000 Norderstedt 
Telefon (040) 524 28 88 
17.06,1981 


Tine ren Variation der Clear-Nontine, 


In seinem Artirel tiber die Techrerorranlsation 

in der Prisma-Tunti-Ausrabe auf den Selten 147 »is 
151 'P1 beschreibt Andreas Marktscheffel, wie man 
den Adress-Pointer des Sima-Nerister-Blocks im 
Rrrister e auf "Ad" setzen "ann, 


Anschliceferd kann man mit dem Nofehl. "Clear-Sigma" 
den gesamten Stack einschließlich des lI-Repisters 
und dem Alpha=-Register M löschen. 


Andreaa’! Paschreiburr hat mich zum Nachden!en an- 
Gersrt vr? jeh bin auf die Tdee pokormen, den Sime- 
Rerister-PlocH ganz erundsitzlich mal im Stack zu 
positinnieren, 


wenn ich also den Rlock im Resister T beeinnen lasse, 
und wern ich rAann "Clear-Sipma" ausfihre, erreiche 
ich rerau das, was Andreas beschreibt, 


Natürlich ist es nicht auf normalem !Tege möglich, 
Me Sirma-”erister In den Stack zu bekommen, aber 
rit der "ilfe des Dyte-Jumpers ist es einfach. 


Tn der Clear-Noutine habe ich die Sigma-Position 
in das ?erister L gebracht, Jetzt kann nit Clear- 
Sirma "lie PTerister L, M, Y, C, P und Q löschen, 


Meine rru> ”Toutine sieht jetzt so aus: 


di ITL "cın" 
g?2 2751 


*4t dom Tofchl in Zeile Il brinrze ich den Mloct wieder 
ans dem Stact heraus, damit bei snäterer Verwendung 
des Blocks tTetin Fehler geschehen kann. 


na durch "L2LST" der Stack auf Mıll gesetzt wird, kann 
ich diese -3It Jem nlichsten Ncefehl auch rleilch Ins 
Register a®ssneichern um alle Flags zu löschen, 


Mt der CiAr-Routine schalte ich auch gern gleich 
meinen Rechner aus, daher der Defehl "OFF", 


Da es ja jetzt 2 'Byte-Jumper gibt, werde ich boide 
Verfahrensweisen schildern, nach der man Sigma nach 
L bringen kann, 


Zunächst die Arbeitsweise für den Fi-Byte-Jumper. 


gı x()r 

42 STO IND 22 
43 STO IND, 25 
AhrRup 


Die vorstehenden Befehle werden in den Programmspeicher 
eingegeben, Wir gehen zur Zeile 2, verlassen den 
Perm-Modus und setzen den Byte4Jumper ein, 


In den Pgrm-Modus zurlickgeschaltet, sehen wir: 
g2 ISG IND 17 


Dicse Zeile löschen wir mit der "Däckarrow"-Taste. 
Jetzt sehen wirs 


Jdı x()r 


Wenn wir nun "DEL @Y2" ausführen und anschließend ein- 
mal "SST", sehen wir die Zeile, die wir haben wollen: 


yı EREG L 


Die Arbeitsweise mit dem F3-Byte-Jumper ist 4Ahnlich, 
aber kürzer. Zunächst geben wir in den Programm- 
speicher 


gııe 
42 sto IND 25 
PRUup 


ein. Beim Arbeiten mit dem F9-Byte-Jumper können 

wir ja im Pgrm-Modus bleiben, Darum gehen wir jetzt 
zurück zur Zeile 1, löschen sie mit der "Nackarrow"- 
Taste und setzen den Byte-Jumper ein, 

Wir tauschen also nur "1 E£ gegen den Byte-Jumper ars. 


wir sehen jetzt: 
gan 


Diese Zeile ist Jetzt überfliissir und kann gelöscht 
werden, "Tach 3ST schen wir 


METZ. 
wie ir I, Fall. 
nie Zeile 

ste d 


"ann in rleicrer "else geschaffen werden. Nur müssen 
wir hier im Fall 1 


93 5m In 17 
N AvımI 
und im 2. Fall die gleichen Fefehle in den Zeilen 


2 und 9% eirscetzen, 


Hanpy Prozramning 


Niels Yöhren (81) 
Fielort 196 

2coC Narrerstedt 
Telefoar (oc) 524 28 88 
19.06.1981 


Noch »eeiswerter !! 


Ciubmitglieder konnten bisher unter Angabe ihrer Mitgliedsmummer 
bei Firma Aansen in Bonn alles original HP-Zubehör und alle HP- 
Geräte zu 20 % unter Neupreis (unverbindl. empf. Listenpreis) 
erhalten. Seit kurzem besteht ein neues Angebot eines HP-Fach- 
hiindlers aus Hübingen. Er bietet 23% Rabatt bei voller Garantie 
und unter 500,—IM Bestellwert 5,--IM Portozuschlag. 

Zahlung bei beiden Händlern per Vorkasse oder Nachnahme (NN). 


Firma Annemarie Nansen Dipl.Ing. Erwin Deutsch 
z.Ed. Herrn Milles Computertechnik Hübingen 
Bachstr. 1-3 Hauptstr. 8 

5300 Bonn 1 5401 Hübingen 

HP-41 mit bis zu 16898 es Pro, Datenspeicher 


Auf gleichlautende Anzeige in CHIP 8-81 schrieben mir sogar zwei 
Clubmitglieder und erbaten ein Sonderinfo hierzu. Es handelt sich 
hierbei um den Einbau nahezu beliebig vieler QIMs in den HP-41c 
(beim cv nicht möglich) und deren Ansprechen über das sog. Page- 
Switching. Rähere Informationen hierzu von Hans Günther, der die 
Umbauten ausflihrt: siehe auch prisma 65-81 


Primfaktorzerlegung 


Ein weiter® Programm ?! 


Durch die Beiträge von Hauke Tetens (Prisma 208/B1) 
und Jürgen Moeck (Prisma 209/81) wurde ich anrerect, 
auch mal ein Programm mit der in der !!berschrift 
benannten Aufgabe zu schreiben, das zudem auch schnell 
sein sollte. 


Die von Hauke genannte Zahl (6.869.821.302) wird 
von meinem Programm auf meinem Rechner in folgenden 
(gemessenen) Zeiten zerlegt. 


Ohne angeschlossenen Nrucker:;: 
4 min. '1B sec. 


Mit anfreschlossenem, aber nicht eingeschaltetem 
Drucker: 


4, min. 33 sec, 


Mit angeschlossenem und eingeschaltetem Drucker: 
7 min. ‘1 sec, 


Ist Jemand unter uns, der dieses Programm bei gleicher 
oder besserer Qualität noch schneller machen kann? 


Bei der Erstellung des Programms habe ich Ideen 
nachstehend genannter Programmierer verwendet; 


Friedrich Hillebrandt (IIPACOR 10) 
Richard Nelson (PPC 1 
John Kennedy (PPC 918 
Roger Hill (PPc 4940) 
Phi Trinh (PPC 6171) 


Nach der Tingabe des Programms in den Rechner wird cs 
mit "n", XEQ "FF" gestartet. "n" steht hier für die 
zahl, die zerlegt werden soll, 


Ist cine Zahl zerlogt worden, oder als Primzahl 
ausgewiesen worden, kann das Programm mit "n", "n/s" 
neu gestartet werden. 


auf jenen 7abl, Aie nicht zerlozt worden kann, sol es, 
dar sie "leirer als 2 ist; sei. cs, dan sic ncrativ ist, 
ein Pruch nArr eine scnischte 7ahl ist, reagiert 

ter Nochror mit der Anzeige "DATA ERROR", 


Auch in “insen Fall Fann rlas Programm mit "n", n/s" 
wioder nu sestartet werden, 


Nas Prarramn benstist "einer Interreristor. Ts werden 
IsH#trlich der Stach ıma das Alnha-Nezister verwendet, 


Nr Ho mteticrhbe PTervtzunsm dos Dructkers vwerder dir 
Yes 21 urr 25 maninuliert, Sonst werden keine 

T’nes brrvtrt 
Ba yotrt, 


Gleich nneh Jam IT. "Mt, roch vor der Tinranssrontine 
wirt las "DATA UIID" orzouert, damit das Prorramm im 
antsrrechenden Fall] Bequem neu gestartet werden kann. 


Tan den Zriter 11 pBi5s 33 wird serrlift, ob ein Druch 
aıter cine erischte 7ahl cinrerchben wurde, 


Er 


Statt r!or Pofrhklsfolre "FNTER", "INT" hätte ich auch 
“TIT", "TLASTN"T nehmen können. Daß ich es nicht tat, 
hat e35ron tErstimmten Grund, 


Tm den Nnafehl YTLISTY" abzuarbeiten, Tenötigt der 
Nrchrer otra 935 rsoec,, für den Nefchl "TNTER" aber 
nır etwa 32 msec. Das ist eine ca. ige Zeiter- 
srarnis, 


Yun Tann man ja sasen, 9 msec,, was 35t rlas schon, 
nas 3ist Anch Jächerlich. - ir sollten aber immer 
‚laranf achten, mit Ansfühminzszeiten oder mit Dytes 
anersarn umzurchen, das Tann uns bei rroßen und langen 
Prorrammen ınter IinstäÄnden sehr zugute kommen, 


Naulidneen vira vielleicht die Zeile 31 auffallen, 

rin alleirstehondes "7", was bherleutet das? Das allein- 
stehenrle "7" entspricht der 7ahl "1", Nas "MT" ist 

ein Treehnis sozerannter "synthetischer" Programmierung. 


uns roll! rlas >ber? !'AÄtte man die Zahl "1" nicht 
rausnmk verwenden !örnen? Doch, das hätte man, 
r srirtt vieder die 7Zeitersnyarnis eine Tolle, 


© 
Pr 
o 


Venn wir nach "ler Zeile 930 einmal auf dAie "TTX"- 
Taste erücten, kommt in Zeile 31 ein "1 TE" zu stehen, 
Dieses "1 7" Tann vom Rechner in einer um etwa 

33,39 ); Mürzeren Zeitspanne abgearbeitet werden, 

als die Zahl "1", 


wir «önnten natürlich das "1 E" stehen lassen, aber 
das kostet uns 2 Bytes, also doppelt so viel wie 
umbedingt nötig. Also nehmen wir die "1" vor dem "i" 
woG. 


Dj.esc Prozedur geht folgendermaßen vor sich, Zunächst 
gehen wir davon aus, daß die "synthetische" Funktion 
"FI-Ryte-Jumper" einer Taste zugeordnet ist. 


Jetzt geben wir folgendes ein, Zur besseren Orien- 
tjerung nenne ich die Zeile 930 mit, 


30 XxEqQ 93 
31 STO 99 
321E 


Wir gehen zurück zur Zelle 31, löschen den Defehl 
"STO 99" mit der "Dackarrow"-Taste und ersctzen 
den ßelöschten Befehl "STO 99" durch den Dyte-Jumper! 


Der Rechner muß dazu natlirlich im USER-!odus sein. 
Wir schen jetzt die Zeile: 
3ı "AB 


Der Fytc-Jumper hat jetzt schon scine Pflicht getan 
und wir können diese Zeile auch wiceder löschen, 
Einmal "SST" und wir sehen die gewilnschte Zeile: 


3 E 


was ist hier geschehen? Sowohl der Refehl "STO 99", 
als auch der Befehl "1 E" sind 2-Bytc-Defehle, Venn 
wir den ersten 2-Dyte-Befehl "STO 99" löschen und den 
Dyte-Jumper an seine Stelle setzen, schluckt er das 
1. Byte des nachfolgenden 2-RByte-Bofchls "1 E", 


Der T3-Byte-Jumper ist auch ein 2-Bytc-Defehl, 

und zwar der Zusammenschluß des Text-3-Tefchls mit 
irgendeinem anderen 1-Byte-Bofehl, Zum Beispiel, 
mit dem 1-Byte-Defehl "PROMPT", 


Yenn wir eine Alnrha-Zcile schreiben, ist die Dyte- 
Anzahl immer Anzahl der Alpha-Zeichen plus 1, 


At = 2 Dytes (Fi, 51) 
"AD" = 3 Bytes (T2, hi, 42) 
"ABC" = 4 Bytes (F3, 41, 42, 43) 


Der Text-Tefehl gibt also die Anzahl der Alpha-Zeichen 
an, Aia in einer Zeilo stchen, 


Wenn wir einmal den Tyte-Jumper allein eingeben, 
schen wir Alec 7eile: 


cı 3 


Der Text-93-Pefchl sart dem Rechner: Ts folfen 3 
Alrha-?Zeichen, Tatsächlich folrt aber nur cin cin- 
zelnes Tyrte, 


Die Striche »m oberen Nisplay-Rand ist der NDisplay- 
Ausdruck für das sozanannte "Null"-Pyte, Sozusaren 
der Auscdruc’” eines Yalatıms, Tn das 2, Vakınım hinein 
wirt nun also (die "1" gerissen, das 1, Dyte des 
2-Pyrte-Tofehls "1 E", Dadurch blejbt nun das "MT" 
als alleinirzer Zeilenausdruck stehen, 


ler len Brte-SJimner noch richt besitzt, aber an ihm 
Tnteressr hat, den verveise ich an unseren Karten- 
Cony-Service (siche Prisma 145-16/81) oder an 
einen unserer "Smnthetic"-Txperten, wie da sind 

rum Reispiels 


“nttFins Frabiak 
Poalf Yach 
\mirnas Nar!tschefftel 


Alle sirhe “"“trlicrerliste, Natürlich stche auch 
ich rerne >ur Yerfimineg. 


Im Prorramntejl "ILL 3" wird der Stack zefüllt 
"it rler zu zerlezenden Zahl, deren Wuadratwırzel 
unrl einen Tivisor. 


Ir den 7ei)en "2 bis 55 werden die notwendirzen 
Divisionen durchrefiihrt und der Routinendurchlauf 
endet entiwcder, wenn der Divisor zröfter ist als 
le Muadrotwirzel, oder wenn cin Divisor gefunden 
ınırda, enrch Aen ohne Rest geteilt werden konnte, 


nie Zeilen 56 bis 61 beenden den Maunttcil des Pro- 
srammns mit einen Divisor "A" jm X- und im I-Recgister 
und der 7ahl "n" jm Y-Register, 


Hanny Prorramminsz 


“irls *"“rren (51) 
I3elort 1% 

arneo NYorlersternt 
Telafar (echo) 521 22 88 
14.07.1991 


Programmlisting: Faktor Finder (von Niels Nöhren) 


37+LBL 83 


38 RCL Y 
39 SQRT 
48 LASTX 
PRP FF” 41 X<> 2 
B1l*+LBL "FF“ 42+LBL 84 
82 GTO 61 43 xX>Y? 
. 44 Rt 
83+LBL 88 45 Rt 
84 CL% 46 R<>Y 
85 / 47 MOD 
86 LASTX 48 X=0? 
49 GTO 05 
87+LBL ®1 58 X<> L 
88 CF 28 51 2 
89 CF 29 52 %=Y? 
18 FIX 8 53 SIGN 
11 ENTERT 54 + 
12 INT 55 GTO 94 
13 xXeY? 
14 GTO 08 56*+LBL 85 
15 2 57’ Rt 
16 x>Y? 58 LASTX 
17 GTO 88 59 x>Y? 
18 cLA 68 ENTERT 
19 ARCL Y 61 RTN 
28 "H=" 
21 xEQa 987 62+LBL 86 
22 x=Y? 63 "PRIM” 
23 GTO 86 
24 XEQ 083 64+LBL 987 
25 x%=Y? 65 SF 25 
26 GTO 86 66 PRR 
67 SF 25 
27+LBL 82 68 FS?c 21 
28 ARCL % 69 CF 25 
29 ST Y 78 AYIEN 
38 XEa 83 zı FC?C 25 
31 E 72 sFr 21 
32 X=Y? ?3 CLA 
33 GTO 87 74 END 
34 RDN caT ı 
35 ba“ LBL’FF 
36 GTO 82 END 


128 BYTES 


FBJ - Status 


Ich habe eine rEJ-statuskarte(programmierbarer Byte-Jumper) 


entworfen: 


Erklärung des Status: 

®E SF 25 : Normale ötandardfunktion 
GTO« 

XEU« : Zur Erzeugung des rBJ 
SPARE 


Bytes 1...15 : RCL IND Z 


RCL IND e 
Zur Verschlüsselung der 
Daten ‚ a 
TEXT : RCL IND 2 zur Verschlüsselung 
von Texten 
wOLF 1...9 : Der #OLF "frißt" 
1-9 Bytes auf. Der so 


erzeugte String wird 


nit gelöscht. 


Der vBJ sten: ia rrogranm. Das SF 25 verhindert ein NONEXISTENT. 
Dann komm: der trBJ für ein Byte (PBJ 81) und ein Text-byte, das 
die foatgenden 1...15 Bytes zu Text macht. DiesesTextbyte 
wird in der -rogrannausführung vom rBJ übersprungen, so daß 
der Kechner trotz lextbyte die Bytes als Programmschritte li1eßt. 
im Listing sprinzt der Rechner nicht, so daß die Bytes als Text 
dargestellt “serien. Das Programm ist somit verschlüsselt. 


Eingabe des :BJ: 


Beispiel: 


: das STO d in Zeile 55 soll verschlüsselt 
sg werden. Das Prosramm ist vorher in den 
55 TO Ad 91 75 


56 ENTEKk? 87 


Programmspeicher geladen worden. 


54 0 
55 STU 4 
| 56 ENTERT 


KTOl .954 B.B209 

[ERGM] on sa“ ß 

(L+) 55 SF 25 
(GT0« ] (1/x) |56 772 

BB 570 BL gg 
Bytes 2] (7) 58 RCL IND Y |9@ F2 
ER] 57 LBL p 
56 7”£ 

(BST 55 SF 25 
(7) |56 Ta r 
—] 55 SF 25 
(ssT] 56 GTO’a 
(cos) |56 GTo’g 
(®-) |57 wog 
[=] 56 GTOr” 

PAC (cos) [56 Grora 
---FERTIG--- 


PRGM: 


54 
55 
56 
57 


58 


E 


Fehlerflag setzen 
3.Byte=1.Byte FPBJ 
=2.Byte PBJ 
2,Byte=-Textbyte 


2 Byte (F2 fQ) auffressen 


1 Byte (98) aufiressen 


u 

SF 25 
GTO .... 
“Ze 
ENTERT 


ntschlüsselung der PBJ-zgeschützten Programme: 


Die Programme, die bereite mit dem PBJ geschützt sind, lassen 
sich auf synthetischen Wege entschlüsseln, 


Beispiel: 


54 
55 
56 
57 
58 


Beim Entschlüsseln werden einfach die 
5 Bytes AB 19 29 J1 F2 entfernt. 


[7] 

sr 25 
GTu 
og“ 
ENTERTt 


bingabe: 
Mit dieser Befehlafolge werden die 


Gr . (vor 3 5 & : 
stol #54 (vo ? 25) nächsten 5) Byte beginnend mit Zeile 5 


Eackl us=laste) vom sOLP 5 "aufgefressen". Diese 

WoLe 5! (m +-Taste) 5 Bytes stehen dann als ALPHA-Zeichen 

=] im wOLPF-String, Dieser wird dann mit 

SSERMMLIHSER [>=] gelöscht. Das Programm steht dann 
2 en E in der Ursprunssversion zur Verfü;ung, 
S6 EMIEFr kann geändert werden, und bei Bedarf 


kann man es später wieder verschlüsseln. 
Der zBJ mit AÄEy (und SPARE ???) funktioniert ähnlich. 


anringe sit dem rBJ: 

Mit den :BJ kann aan relative Sprünge um 1...15 Bytes pro- 
grannieren. Die Methode ist dieselbe wie bei der Verschlüsselung 
mit dem Unterachied, daß das 2. Byte im Byte-Jumper (bei der 
Verschlüsselung fl, erzeugt durch LBL ff) verändert wird 


(1BL ...LBuL 14), 


zingabe: Programm: 

ur 25] (Er) : 

TO (1/x) sFr 25 

Erilgß...1a Abhängig von der PBJ X 

BST Sprungweite: . Sprung 
ET LBL £P & 1 Byte : über. 
(m T)|LBL 91 2 2 Byte : KUyneR 
>] . 


15 Byte 


FacK) (605) LBL 14 


Erzeugung des :5J-Status über dag Key-assignment-rrogramnm: 


Aachtung!!! venrügend freie negister schaffen. Wenn KA im PRGM- 
speicher ist, missen nach GTO .. noch mindestens 


15 freie kegister sein. 


Eingaben ...’s a 15 PAIRS 


Happy ?rogrammjumping 


Kuna 4931137-33M0d4 


ary'H 1a CHINA) @ 


Ich habe ein Programm geschrieben, mit dem man Großscnrift 
schreiben kann. Das rrogramm heißt PO»sER-LETTER und ist bein 
Magnetkartenservice zu erhalten. Es füllt 18 Kartenseiten. 

Es ist der komplette Zeichensatz und zusätzlich Grafic mögiich. 
Tastenzuordnungen sind möglich (synthetisch). wer Interesse 

an Statuskarten und Programm hat, schicke bitte 11 Macrnetkarten 
an den Magnetkartenservice. Bedinzt durch die Länge des irosranms 
ist ein HP-41CV oder ein HP-41C mit 4 Memory-Modulen notwerdig. 


Hagen kKlemp (73) 


HEWLETT-FACKARD ANWUCLNPER—-CLU 
OLIVER RIETSCHEL 


Ralf Ffeifer Walter Pieperhoff 

Rubensstr. 5 Wald. Osth. Wallstr. 10 

5000 Koeln 50 4770 Soest 

Tel. 0221/3952034 Tel. 02921/2895 

SZSTL2SSSTSZESSSsgeSssZseESsSsässsseySzusEBsusBläu3B83hRRIZIZIESS22ES 5m 

vorhandene Programme Liste Nr. 2 !Anzahl d. Karten 
1 


46. ALL von Christof Born 


47, LIN 

49. DIN ” " 

47. CEZ 5 . 

v°. CL ® > 

St. fN “ “ 

52. FFZ optiniert " von N. Noehren 
53. Kölendger Ausdruck von e 


54, Bastel Prog. (Wallkarten) Rechner Nr.< 1950 ! 
55. Gastel Prg. fuer alle Rechner 
56. LO von Matthias Grabiak 


57. KDD (Drucker) 
3. CHT “ 
59. VSZE & 
69. *i > 
I. vr 2 
42. Amateurfunk - Kenner B 


I 

‘ 

v 

L 

‘ 

\ 

) 

' 

‘ 

% 

1 

t 

I 

% 

v 

\ 

t 

63. Formstierter Ausdruck ! 
4b, Stsngartsbweichung R ! 
AL. Natizenrechnung Frogrammpaket } 
45. EI Loeschen von Flag 55 ! 
67. et2 + bt2 = Primzahl ! 
$d. Filmiaengen - Bestimmung ! 
7. Fluttprogrann ! 
?9. Gatterietest ! 
1. ACHR optimiert v. W. Kropf \ 
?2. üreiecksberechnung ! 
?3. Monstslohnsteuer ! 
74. Tnterpülation : 
5. bar Cunt,ol $ 
7%. Stern - Dreieck Umrechnung ! 
77. Addıert Sinusschwingungen N 
78. Fisgs Anzeige : 
79. Ringmatrix s 
89. Nagisches Qusdrat ' 
°2:. Hex - Dezw. Wandler ! 
ı 

ı 

ı 

ı 

' 

[1 

% 

ı 

' 

L 


92. Raten 

83. Nultiplotter verbessert 

84. xKOM von Ralf Pfeifer 
85. 5TAr . 

3%. GET . 

97. GETA ” 


83. GAMAA 
89. Lshuverteilung 
90. Black - Jack 


NIDDA a de 


Gei Bestellungen : erforderliche Kartenanzahl u. frankierten 
sdressierten Briefunschlag zuschicken. 


HEWL win; TSER DAFEWEN BER-CLUO 


ZSZSEESEEZ=2S5S5 SZSLSSZSEZSSESIESZESEIERZEEIESSREISZEZISSZESSEZESSSS 


ABTEILUNG : KARTENCOPYSCRVICE 


Ralf Pfeifer j Walter Pieperhoff 

Rubensstr. 5 Walb. Osth. Wallstr. 10 

5000 Koeln 50 4779 Soest 

Tel. 0221/352034 Tel. 02921/2895 
BSZESZZEZ2ESSS2S22SSESESSSZESSEISSISEEZESSSSEHBZFZEZIZSZTUSSZEISSZEZIE SEI In 
vorhandene Progranne Liste Nr. 3 !Anzahl d. Karten 


[ 
91. Mantisse m der Zahl in X ' 
92. Dez. - lex. Wandler v. Juergen Holm ! 
93. Hex. - Dez. Wandler " ! 
94. Size Routine (Schnellstmoeglich) ! 
95. Ohm’sche Daempfungsglieder ! 
95. Auswertung aussagenlögischer Ausdruecke ' 
97. Key Assingnent v. Andreas Märktscheffel s 
98. Algem. Prg. zu CHIP Preisausschreiben ! 
99. Flugnavigation ! 
100. Primfaktorzerlegung R. Pfeifer/U. Davertsh! 
101. Zeitschleife ! 
102. Hornerschena ! 
103. Lohnsteuer (Oesterreich) ! 
104. Euklid e 
105. Fermatsche Methode N 
106. Primfaktorzerlegung Friedrich Hillebrandt ! 
107. Sortieren von 3 Werten ! 
108. Kegel Programm N 2 
Ich(Walter Fieperhoff) habe beobachtet ; dass besonders 
Synthetische Programme beim Copyservice bevorzugt werden 
und tiete deshalb aus dem Buch *Synthetic Programming von 
W. C. Wickes folgenses an! 

109.LGL’AD’zeigt nach RCL b die Acresse in Hex an 
110.LBL’Al’tauscht 6 Alphaz. v. Reg. in Y nach Reg. in X 
111.L0L’BY’zeigt nach RÜL b die Adresse Dezimal an 
112.LLU’CA’loescht alle Tastenzuordnungen 
113.LBL’CD’wandelt 1 Alphazeichen in Hexcode um 
114.LGL’CODE’wandelt 14 Hexcodes in Alphazeichen un 
115.LBL’CU’wandelt von Reg. 00 an in Frogramnregister um 
1l6.L.0L ’DC’uandelt IHexcode in Alphazeichen um 
117.LGL’DECODE’wsndelt 7 Alphazeichen in Hexadezimal um 
118.L0L’DI’zeigt alle Segmente im Display(Displaykontr.) 
119.LEL’EF’ernittelt noch freien Programmspeicher 
120.LGL’EN’ermittelt das Ende des letzten Programns im Sp 
121.L0L’FL’setzt Flag Nr. in X 

122.LBL’HM’ Wortraten synthetisch 

123.L8L’150’isoliert ber.GBuchst. in X aus 24 in Alphareg. 
124.LBL’KA’ Key - Assingment 

125.LLL’KP’packt die Key - Assingnment Register 
125.LBL’$’ zeigt SIZE an 

127.L8L’TONE’erzeugt 129 Synthetische Toene 
128.L8L’SAVE’speichert Flags in Reg. 00 + Reg.0i ab 
129.LEL’RE’ holt Flags aus Reg. 00 + Reg. O1 
130.LBL’MANT’ zeigt die Mantisse an 

131.LBL’REV’dreht sAlphazeichen im Alphareg. um ! 
132.L0L’REG’speichert mit CODE erzeugte Z. in Reg.Nr.in X! 
Bei Bestellungen : erforderliche Kartenanzahl u. frankierten 
adressierten Briefunschlag zuschicken. 


) Ha > re me [J de me da > ma ba ba De be m De pe 


ba dt da den eb dt eb da de de PD) de de de bi be ne ne a ee 


Annmerkungen zum Copy-Service 


1. Immer wäeder landen bei mir Sendungen, die einen unterfrankierten 
Rückumschlag beinhalten. Wer also Karten bestellt, sollte diese in 
seinen Rückumschlag legen und wiegen. Da Walter und ich noch ein Blatt 
mit Hinweisen und Bestätigung der Bestellung beilegen, bitten wir darum, 
auch dieses Gewicht beim wiegen zu berücksichtigen. Ich überprüfe erst 
Jeden Umschlag auf sein richtiges Gewicht, und nur falls es stinnt 
komnt mein Absenderstemel dar auf. Somit muß jeder Besteller sein Straf- 
porto selbst vezahlen !!! 

2. Nach einigen unsicheren Anfragen zu schließen, scheint nicht jedem 
xlar geworden zu sein, daß der Besteller auch eine entsprechende Menge 
an Magnetkarten Deilegen muß ! Sie werden nich tt von irgend jemanden 
gestiftet |! 

3. Vielen Dank allen denen, die Briefmarken oder Magnetkarten oder gar 
seldbeträsze stiften wollen oder gestiftet naben (Geld kam immer zurück). 
Aber es ist natürlich nur ein kostenloser Service |! 

4. im evl. Gerüchten vorzubeugen: Wir erhalten vom Club leihweise 
Nagnetkärten, auf die wir die Programme abspeichern ! Alles andere 
erledizen wir ehrenamtlich und zratis (Kartenleserabnutzung, Zeit, Stron). 

5. Einen Kartencopy-Service, der den Abonennten zu jeder prisma die 
Karten liefert, wird es wohl nicht geben. Grund: Nur 1 Interessent | 

©. Bitte, beachtet die Schulferien in Nordrhein-Westfalen | Während 
jieser Zeit bin ich nicht gerade oft auf deutschem Staatsgebiet anzu- 
treffen! Lure Kartenbestellungen liegen dann nur kiIe bei mir zu Hause 


aerun ! Ralf Pfeifer 


Hinweis zu Search and Destroy 


Dieses Prozramm wird wonl nicht in der Liste des Copy-Srevice auftauchen, 
da es ja nur für WAND-Besitzer zu gebrauchen ist, und die es schnell 
seiost laden können. 

wer sich dagesen wundert, daß er mit diesem Programm auf keinen 
zrüner Zweig kommt, der sollte sich mal den Barcode über der Zahl 70 
auf dem Spielfeld ansehen: Er ist fälschlicherweise der gleiche wie 


vei 80 !! Ralf Pfeifer 


Verbesserung des "Character Builder" 


Wie mancher WAND-Besitzer sicher mit Verärgerung festgestellt hat, 
ist dieses Programm für die Druckeranwendung nahezu wertlos; Denn 
der Drucker hat eine 7x7-Matrix, das Programm aber nur eine 6x6. Und 
das, weil das Programm eine vollkommen überflüssige -gleichwohl 
ästhetische- Sroßanfertigung des Zeichens ausdruckt. 

Line Besserung dieses Mißstandes verspricht das beigefügte Programm: 
Auf dem ebenfalls beiliegenden Blatt kann man ganz einfach sein 
Sonderzeichen mit dem WAND nachzeichnen und ausdrucken lassen. 

Dem Komfort dienlich ist auch die Eigenschaft des Programms, zu über- 
prüfen, ob ein Zeizksem Punkt schon einmal eingegeben wurde. Falls 

ja, löscht das Programm den Punkt und piepst dazu, Dieses Spiel 

von Löschen und Setzten (also Punkt drucken oder nicht drucken—wie 
bei einem Fiag) kann man beliebig oft wiederholen. Ralf Pfeifer 


CHAnzcp BUILDER -- KEY-PAD 


INMINIINNNNN MM III 


(Seis USER mode.) 


MN 


CRBLD 


Il MI MN MM MU MM MN 
0 1 2 3 4 6 6 
il ll MI MM MN MN IM 
10 11 12 13 14 15 16 
II A MIN MM MM MM MM 
20 21 22 23 24 25 26 
in IM MN MM MI MIN MN 
30 31 32 33 34 35 36 
il MM MM MM A ll MN 
40 41 42 43 44 45 46 
il MN MM MIN MM MN MN 
50 61 52 63 54 55 66 
im MI MM MM MM MIN MM 
60 61 62 63 64 65 66 


l 


LA IM 


INN 


esrrg 


INN 


CHARACTER-BUILDER 


Start 


eT NE Character Builder 


Trre da prugmme 
Tino del programm 


Km Ralf Pfeiter 


Rubenssir. 5 
Address 


Sooo Köln-S 
rw Adna Inden © ‚oIN=-D0oO_ 

Tol. 35 20 34 
City Postal Code 
BR Panskenau 
Liwabe Code purmal 
ER cÄarR 


No. of program lines No. of dasa registers 


Anal Prugammuchen [6] 21 l INES Anzahl are benungıen Deienspescher 01 [e) 


Nasrbse de Igney de priygrammee Normtbuc de weguurer de deancen 


N schnee de pryzramuma BYTES Ne dr ergiani walwaan ! 
j 

HP Applications ROM Program Name: j ! 

MP open Kin WAND_BOISAA ____ on _ 

BUN d’applmateen HP Thernodruc. ker _82 TEBA Nom vu prime: 

RO I spplmnaumr HP Proarsmms 


Program Abstracı Das Programm ist eine Verbesserung des gleichnamigen Handbuch- 
ee a _diesem Programm steht eine 7x7-Matrix zur Er- 
u 


Ft ng der Sonderzeichen zu zur Verfügung. Zur Anwendung benutzt 
man Zweckmäßigerweise das beiliegende " Character Builder-Key-Pad". 


| Operating limins and Warnings Hat der gelesene Barcode mehr als 1 Byte, startet sich 

ET ramm neut, Bar es, deren dezjm W 

| eine 7,8 oder 9 enthält oder größer als 66 ist, führen dazu, daß die ; 
Eingaben zu einem Sonderzeichen zusammengestellt werden. Während die 

| y_NNDSCN-Funktion arbeitet, können Befehle nur nach einem R/S über die 

| 


Tastatur eingegeben werden. . 


var Prergramm wur eduluch antund der m der Praogrommianchre bung IT enchalsenen Zahlenberspech, br sprun. Bellasnı erlak und berması der Prugrunamte: ms auf cayamen 0 
Anrıu han, ce bauen deahalb - giechaulun. oben brrens nıkrwenug prawemmeen ınlar beschrwben wurde - selbe ze unter . 2 

WEDLAHPNOWADER |). NDER D1.3 PROGRAMMS ÜBERNEHMEN-FÜR DAS PROGRANMATHATAI. HINF. IRGENDWIE GEARTETF en Ein 
HAFTUNG, INSBESONDEAT NICHT FÜR . i SEINE VERWENDHAAKEIT FÜR EINEN BESTIMMTEN ZWECK Ar 

SENDER HAFTEN AUCIE NICHT IR INDIE ATI ODER FOIKENM NHADIEN. 


SET STATUS 


FLAGS TRIG DISP 


MI CBO Com 5 
? MAN TRAE naM 


PR" 


oO D “. D 
r 
en D D Q 5 r D 5» MD 2 
D m D 5 dh iD ko In D 


- b D 
KU 
DB 6 b> fo [ 
= ED ro 
> Dh 
- Dh 
n m fp D 
R ” 
oJ: D 
WW 
= p 
CD D 
Mm 
= = 
(D b 
“ . 


Inatructiions 


AND und PRINTER schließen. 


Zurück u 00000 | 


w 
® 
pn 


Varlables 


u 
Hl) 
2 


Funciion( D} 
Tomctagı) a 


XEQ"CRBLD" 
XEQ A 
RTN RA 


Resuk 
Besolmı 
Birke 
Ruutsm 
W: READY 


BEISPIEL: 
EINSCHALTEN EIWES 
GLELCHSTROR-MOTORS Mi? 
ARKESAUECKAIPRUNG 
win 

1 
EI 15} 
7 L 

er 

dia 0 
v2 mL 22 40 7 Kr 
Irma mız 
ee ,05 / RT 
Kr Te 
25 m LE - - 
MS KL. - 
‚187 m 


PLOT OF ZEFFEL 
t.XKMITS=E DD 4 
Nr iMITe 1) > 
p7) 
‘ 


Bem— 1 


5E8 


EISFEBALJSTEHLFEERENS 


way wc 


„ns neu 


14 


_ 


Wie» 
11,9 53,6 
0 


Pt 


PRINTER BIRCH DIFFGL: 


x8= 0,098 
19= 0,808 
20: 0,008 
Xt= 0,856 
Yiz 16,944 
Z1= 377,183 
x2= 9,199 
Y2= 48,6% 
22= 48.519 
X3= 6,58 
Y3= 64,865 
= 91,179 
842 9.504 
142 97.338 
242 58.239 
X5= 8,258 
YSe 118,638 
Tr 47,738 
USW. 


PRINTER EXTERN: 


AleLBL “AUX- 

HEO "DIFFEL> + 8 
XEO 16 "+ sec” AYIEN 
w 12 KEi6 
"Frad/s“ AVIEH I 
28 XEQI6 °F A- AYIEN 
STO -aux* 


1MLBL 16 

FIX O ARUL 19 he - 
RA 1 LO6C I + 
FIX IND X ARCL IND Y 
13,)) 


102 0,889 sec 
was 0,698 rad/s 
19: 8,008 A 

sie 0,858 sec 
wis 16,944 rady/s 
Ite 37,123 9 
v2e 0,189 :0c 
we= 40,AS6 rad’s 
127 49,619 A 
132 8,150 sec 
w33 64,665 rad/s 
132 51,179 A 
14= 9.206 sec 
4: 87,396 rad/s 
14: 59,290 A 
153 0,258 sec 
w5= 116,868 rad’s 
15: 47,733 9 


DIESES BEISPIEL BESITZT 
ORDNUNG 2. FOP BEISPIELE 
RIT ORDNUNG 1 ODER $ 

EMPFERLE Sch SIh 3HD (05 


FUNKTIONEN. 


AMSONSTEN VERWEISE ICH 
AUF DIE LITERATUR, 


HAPPY PRIGKRFM IH: 


PLOTTEN VOR 2 FUNKTIONEN Bl-LEBL -PLo ERSTES FLOT- 


IERERSES as: MIEN T2- PROGRAMM FOR 
j 82 FC?C 27 , 2 FUNKTIONEN 
en DATEN e3 cto oa 8 MIT VERSCH. 
2 PUMK- = „ Sa I 
TEN BEREIT. Am 84 "YMIN2? Y-ACHSEN! 
«AM ENDE DES 23 Tape x- 
: E 85 PROMPT 8m PLNT2 VERWENDET DIE X 
PLOTS WIRD DIE ACHSE VOH Fre vr; 
86 STO 83 a ACHSE ZUM PLO"’EN 3ER 2. 
Y2 BESCHRIFTET. 5 4 DEREN 
ELTERN D 87 RDN 2 FUNKTION. IN "ER ERSTER 
PROCRRARSEQUENZ: 88 "YmAax2?- sE Y-ACHSE KANN EIN NARKIE- 
EL 20, CUNTERPROCRAM 89 PROMPT 5 BUNESSTRICH FRE: GEWÄHLT 
"" CEUER -PRPLOT- 18 STO 94 24 WERDEN (2.8. MÜLACED, 
u 11 RDN = IN BER ZWEITEN *-ACHSE 
Kun WIRD DIE MALASE OPER 
yEQ PLorz 12+LBL 08 BER WERT NAHER BEI NULL 
END GER TeEcndr 13 RCL 93 AUTOMATISCH MARI LERT. 
14 - PLOTZ BEMOTIGT rEINE ZU- 
ar 15 RCL 94 SÄTZLICHEN SPEICAERPEG. 
Er 16 RCL 83 IN R@2 IST BIE .nGE DES 
VORBEDINGUNG 17 - PLOTPUMKTES UIHITN BER 
PLOT2 MUSS IM USER-NOBE 18 7 X-ACHSE FESTGELSST. 
GESTARTET WERDEN. WIRT 19 RCL 92 883 BESTIMMT SEM PLST- 
GELOESCHT VOR EINGABE, 28 INT Fr CHARACTER WENN SICHT SuM 
STATUS: 21 STO 82 3 MB RB4 ZEIGT. ass DIE 
GLEICHE REG WIE FPPLOT: 22 * pn ACHSE GEFLCTTET sERDEN 
Ra2 ma. aY2,R83-YniN2 23 FIX “ SOLL, MEN NUREFISCH. 
Ra4: rax2,F27 EINGABE? 24 RND üs "DRS PLOTZ-PRNGA.MM ERT- 
25 ı EZ Sg 
26 a 
27 ST+ 82 Es 
PLOT OF Dem 23 x<>Y y2 
x AWITSE D 6 Bande 
Yun 38 RCL 18 Happy Pr aramainı 
UNIIS= U > 31 RCL 86 May hubor 1, 
[KR 21,8 32 + 
een 33 x>Y? 
r ” 34 GTO 91 
24 se 35 Rt 
. de 36 RTN 
= Be 37+LBL 01 LBL'PLOT2 
De 38 Rt END 
rer 39 REGPLIT 87 BYTES 
a 6 48 RCı 93 a 
eh “1 sto ee 3% 
Are 42 X<=8? -ö 
2 = 43 CLX EEE 
Pre 44 <> 94 w® 
Mn 45 STOo 91 äz BI+LBL "BERG" 
12. i 46 x<N? wg e0S LASTX ZgRT SS 
1%» "a 47 STO 94 SS 20 + XOY KEN "PLOTE- 
%: n 48 XROM "PR © En 
vu i " AXIS“ 
YAUNITS= Ti + 
AT en: 
0. 
ESS RRDEOR, 51 PROMPT 


52 END 


Berlin @e 22.5.81 


BALKENDIAGRAMM-PLOTTER 


Dieses Programm ist in der Lage,Balkendiagramme der Inhalte 

einer Reihe von vom Anwender angegebenen Datenrgister auszu- 
drucken,.Dabeil besteht auch die Möglichkeit,positive und nega- 
tive Werte im selben Diagramm darzustellen, 


Anwendung: 


1. XEQ'COL!" 


2.Ml 
ei 


3.Maximaler Wert für y;R/S 
4.Kleinste Registeradresse 
für Ausdruck eingeben()5) 


5.En 


6.4ler muß eine Zahl einge- 


nimalen Wert für y 
ngeben;R/S 


dadresse eingeben 


Anzeige:'"'Y MIN?" 


SPY MAX?" 
"REG MIN?" 


:"REG MAX?N 
ı"LABELS +/-=? 


geben werden,die später zu 
jeder Registeradresse addiert 
wird,um die einzelnen Balken 


zu kennzeichnen. 


R/S 


"SMTEXT? 


7.Hier kann ein Text eingegeben 
werden,der dann vor den Diagramm 
ausgedruckt wird.wird nichts ein- 
gegeben,so wird eine Leerzeile 
ausgedruckt, 


2 Beispiele: 


Die folgenden Daten eingeben: 


96: 1 
m’: 2 
pop: 4 
009: 8 
Rie= 16 
Rliz 8 
Pi2= 4 
RlI= 2 
_ fe 
riss 1 
Rl6= -2 
Rir= 3 
Fid= -4 
R19= 5 
R2O= -6 
Piz 7 
we2= -8 
1. Beispiel 
KEQ'COL" 
BE B/S 
16 R/S 
6 R/S 
14 R/S 
-5 R/S 


"ERSTES BEISPIEL" R/S 


Y9:8.88 T0 16.80 
Hana 


ERSTES BEISPIEL 


"yHIN?" 
"y MAX?" 

"REG MIN?" 
"REG MAX?! 
"LABELS +/-?" 
"TEXT?" 


- sun sveoromn 


(Ausdruck fängt an) 


2. Beispiel 
XEQ''COL" 
-8 B/B 
8 R/S 


/S 
"ZWEITES BEISPIEL" R/S 


ZWEITES BEISPIEL 
Y>:-8.08 T0 8 


"X MIN?" 

vy Max?" 

"REG MIN?” 
"REG MAX?" 
LABELS +/=2" 
NPEXTF 


ee le e 
2 65 LASTX 131 SKPCOL 
02 ba 66 ABS 132 RCL 88 

83°LBL 02 67 K<>r 133 %<>YV 
84 "Y MIN?“ ser 1.34: 7 

85 PROMPT 9 74 135 x8E@Q@ 98 
86 xX>8? 7a * 136 GTO 9” 
87 CToO e2 71 STO 80 137*LBL 88 . 
38 STo 81 ?”2 FIX ® 138 INT i 
89 -Y MAX?- 73 CF 29 139 RCL X 
18 PROMPT 74+LBL 85 149 2 

11 STO e2 75 RCL 94 141 7 

12 X=r? 76 RCL 83 142 INT 

13 GTo 2 7? + 143 SF 12 
14 "REG MIN 78 CLA 144 xEQ Bi 
Er 79 18 145 RDN 

15 PROMPT 30 x>Y? 146 2 

16 STO 84 sl " ” 147 MOD 

17 "REG MAX 82 ST X 148 CF 12 
5 ‚ 83 x>Y? 149 XEQ 91 
18 PROMPT 84 "bh" 158 RTN 

19 STO 95 “ 85 ARCL Y isi*LBL ®i1 
28*+LBL 83 : 86 rACA 152 x=8? 
21 "LABELS | 87’ 1 153 RTN 
Be 88 SKPCHR 154 127 

22 PROMPT 89 RCL IND 155 ACCOL 
>53 STO 983 84 156 RDN 

24 RCL 05 99a x<e? 157 DSE x 
>5 + 91 GTO 86 158 GTO 81 
56 1 E3 92 RCL 82 159 END 

27 X<=Y? 93 + 

28 GTO 83 24 1 

29 “TEXT?” 235 8%1=Y? 

38 CF 21 er 96 SF 08 61... 
31 AVIEN 97 X>Y? POCKTNG 

33 CLA 29 74 LEL'COL 

34 STOP 188 RCL 88 EKD 287 BYiks 
36 SF 2ı 1982 SKPCOL 

37 PRA | 183 - 

38 FIX 2 184 * 

39.0 Yarı | 195 XEQ 88 

48 ARCL 61 IBS$LEE 07 

Ber Pe 1a7 FC?C 88 

42 ARCL ®2 LOSUERBUR 

43 acA 109 RCL 94 

44 PRBUF ‚1a 1 

45 4 i11 ST+ 94 

46 SKPCHR FIZ.EDN 

47 127 113 RCL 85 

48 ACCOL IIND Er 

49 1 115 GTO 85 

58 SKPCOL 116 RTN 

si 18 117+LBL 86 

2... 118 RCL 91 

53+LBL 94 119 ABS 

sa ach 128 xX<>Y 

55 DSE x. 121 ABS 

56 GTO 84 122 - 

=> 1ı 123 RCL 82 

58 SKPCOL 124 RCL 01 

59 Rt 125 - 

68 ACCOL 126 7 

61 PRBUF 127 74 

62 RCL 92 1298 * 

€e3 RCL 81 129 x<97? 


sr - 138 @ 


Bar-Codes & Grarhik mit dem HP-41C 


Welcher Druckerbesitzer hat sich nicht schon darüber geärgert,daß 
er keinen Einfluß auf den Vorschub geines Druckers hat.Die schön- 
sten Graphiken und "Hish Resolution Plottings" werden durch den 
ZWeilenzwischenraum verschandelt.Unter größten Anstrengungen be- 
kommt man gerade 2 Bytes als Barcode waagerecht auf den Papier- 
streifen und bei Versuchen mit senkrechtem Druck sagt der Griffel 
entweder garnichts,oder "CHECKSIUM ERR" oder eine Programmcodezei- 
le erreicht die beachtliche Länge von ca. 50cm!Sollte man sich 
vielleicht doch einen "richtigen" Computer kaufen? 


Die Iösung des Problems liegt in einem mechanischen Umbau des ” 
Druckers,der diesen dazu bringt,nur noch den halben Zeilenvor- 
schub auszufihren.Die Druckzeilen überlappen eich dann um eine 
Linie.Der Umbau wird so ausgeführt,daß der Drucker zwischen dem 
normalen und dem halben Vorschub umschaltbar ist,die normalen Ei» 
genschaften bleiben also erhalten.Zu beachten ist,daß bei halbem 
Vorschub nur noch 133 statt 168 Druckspalten in eine Zeile gehen. 
Dies beruht darauf,daß die gesamte Druckzeile um ca. 12mm auf dem 
Parpierstreifen nach linke verscoben wird. 


Benötigt werden fiir den Umbau: 
- ein zweiter Mikroschalter vom gleichen Typ,wie er schon 
im Drucker vorhanden ist, 
- ein einfacher IxrKin Schalter zum Umschalten des Vorschubes 
- Draht,Lötkolben, Lötzinn,Schlüsselfeile,usw., 
- ein wenig Fingerspitzengefihl,technisches Verständnis und 
mindestens 2 Stunden Zeit. 


Belohnt wird man dafür mit fast perfekter Graphik und gut lesbaren 
Bar-Codes,die dem Standardformat von HP sehr nahe kommen.Die Ga- 
rantie ist allerdin?s verlohren;fir Schäden,die durch den Umbau 
entstehen kann ich keinerlei Haftung Übernehmen. 

Der norrale Lruckervoarschub 


Der Lrucker HP P?143A hat einen mechanischen Vorschub, der eine 
stufenlose Regelung unmöglich macht.Gesteuert wird er von einer 
auf der Vorschuiwalze befindlichen Schiene und einem Mikroschal- 
ter,der die Rurestellung festlegt.Während sich der Druckkopf nach 
links bewert,wird die Zeile auseedruckt,die Vorschubwalze dreht 
sich nach oben und Überspringt 2 Zähne in der Verzahnung.Die bei- 
den durch die Vorschubwelle miteinander verbundenen Reibräder 
stehen währenddessen still und sorgen dafür,daß sich der Papier- 
streifen nicht bewegt.Nach Ausdruck der Zeile bewegt sich der 
Druckkopf wieder rach rechts und dreht die Vorschubwalze über die 
Schiene wieder nach unten bis er den Kontakt im Mikroschalter 
schließt und der CPU damit mitteilt,daß er sich in Ruhestellung 
befindet.Der Motor wird abgeschaltet,der Druckvorgang für diese 
Zeile ist beendet.Die Drehung der Vorschubwalze wurde über die 
Verzahnurg auf die Vorschubwelle und damit auf die Reibräder über- 
traren,die wiederum den Papierstreifen um ca, 4mm nach oben be- 
wegten,. 


linkes Reibrad echtes Reibrad 


Fedcer—_ ___-I z KR ruckkopf 
| Mikroschalter 


Verschiebt man den Mikroschalter nach links,so verschiebt sich auch 
die Ruhestellung und damit die Ganze Druckzeile nach links.Wenn man 
die Ruhestellung weit genug nach links verschiebt kann nur noch ein 
Zahn in der Verzahnung übersprungen werden,der Vorschub wird hal- . 
biert.Nun schlägt jedoch der Druckkopf nach 133 Druckspalten am Ge- 
häuse an und eine eingebaute Überlastungssicherung schaltet den 
Motor aus.Nach Aus- und Einschalten des Druckers wird die Sperre 
aufgehoben.Um nun alle Möglichkeiten des Druckers zu erhalten bau- 
en wir zwei Mikroschalter ein,einen in der alten Ruhestellung für 
normalen Vorschub und einen in der neuen Ruhestellung für halben 
Vorechub.Ein weiterer,von außen zugänglicher Schalter erlaubt die 
Umschaltung des Vorschubes. 


Der ee | Druckervorschubz 


Druckkopf 

Schiene 

alte Ruhestellung 
eue Ruhestellung 


Umbaubeschreibung: 


Wenn der Druckkopf festhängt Drucker aus- und einschalten. 
Sollte dies nicht helfen,schaltet entweder einer der Mi- 
kroschalter nicht durch oder eine Verbindungsleitung wurde 
vergessen. 


1.) 5 Gehäuseschrauben auf der Druckerunterseite lösen (eine in 
der Mitte,4 unter den Gummifüßen) und das Gehäuse vorsichtig 
öffnen. 

2.) Anschlüsse der zum Druckwerk fiihrenden Drähte notieren und 
diese von der Platine abziehen. 

3.) 3 Befestigungsschrauben des Druckwerks lösen und es vorsich- 
tig herausheben.Druckwerk so drehen,daß Mikroschalter und Mo- 
tor nach oben weisen.Befestigungsschrauben des Mikroschalters 
lösen. 

4.) Alten und neuen Mikroschalter nach Abbildung in den Löchern 
des alten Mikroschalters festschrauben.Elektrische Verbin- 
dungen herstellen.Kanten des Druckkopfes an den Stellen,wo 
er von den Fahnen der Mikroschalter berührt wird ein wenig 
abschrägen (Schlüsselfeile). 


nn gr ä 


dem Umbuu 


Br Br: zn 


5.) Verbindungskabel des Druckwerks wieder mit der Platine ver- 
binden,Schalter auf Normal (=Aus),Papierrolle einlegen und 
einlaufen lassen. 

6.) Zunge des rechten Mikroschalters so verbiegen,daß er durch- 
schaltet bevor der Druckkopf an der rechten Seite anschlägt. 
Probelauf mit wiederholtem "ADV", 

7.) Schalter auf Graphik (=Ein),Zunge des linken Mikroschalters 
so verbiegen,daß Vorschub halbiert wird.Probelauf mit Drucker- 
modus "MAN" und dem Programm FIX 95 @, IBL@E „ FRX „ GTOgE. 
Stellen sich Unregelmäßigkeiten in den Zeilenabstärden ein, 
muß die Zunge des Mikroschaltere nachgebogen werden.Nicht die 
Nerven verlieren,es dauert etwas,bis man die richtire Ein- 


ste]lunp aefunden hat. 

A.) Vorschubschalter an geeigneter Stelle am Gehäuse anbringen 
und hDeschriften. 

a.) Druckwerk wieder einbauen, Gehäuse schließen,Probelauf wieder- 
"olen,fertir?-Hoffentlich! 


n run 1%% Spalten Schmalschrift = 19 Zeichen zur Verfiü- 
irhe Kefehle in der Stellung Grarhik sind: "ACCOL,BLDSPEC, 
,SKPCGE)SVPCHR,ACA,ACX" und zum Ausdruck der Zeile "ADV" 

art "PRBUF"TI).Hs ist darauf zu achten,daß die oben angegebene 

myimale Üpaltenzahl nicht überschritten wird.Alle anderen Drucker- 

forktinner snl!ten nıır in Ner Stellune Normal ausgeführt werden. 


rarraree zum Rar=-Üone drucken: 


"ineer „rarramn druckt das Ryte,das in dezimaler Form im X-Rerister 

rerrster wird,Forner werden in Sreicher f3 alle Bytes addiert. 
"aim ersten Ayte einer Zeile ist Flag BB zu setzen und Speicher 93 
7: #Seken,heim letzten Rvte einer Aeile ist nur Flag ß1 zu setzen, 
nieres Kyte enthält die Prüfsumme, die vom Programm automatisch ge- 
hilse+ wirä, 


Baruıtztn ‚ireirter: GM + 9% Benutzte Flags: 99,81 

„rer Wr n 174 Hvtes 

al+L_BL "BP" 

02.097 27 ADV 52 Ytx 77 ADY 

83 STO 88 28 ADV 53 ST+ 82 78 .8095 

84 RDN 29 ADV 54 RDN 9a STO 81 

e5 FS?C 99 38 ADV 55 ISG 81 88 RDN 

8& xXE@ 15 31 RTN 56 RTN 81 RDN 

a7? ST+ 03 32+LBL 28 57+LBL 17 82 RTN 

ee FC?C 81 33 xEQ 18 58 Rt 83+LBL 18 

89 GTO 96 34 XEQ 16 >90 84 ISG 91 

18 ST- 03 35 2 6B x<> 82 85 GTO ei 

11 RCL 83 36 7 61 BLDSPEC 86 XEQ 17 

12 256 37 INT 62 LASTX 87+LBL Pi 

13 7 38 LAST® 63 BLDSPEC 88 RCL Bil 

14 INT 39 FRC 64 LASTX 89 2 

15 LASTX 490 xxzB8? 65 BLDSPEC 98a x%>Y? 

1&E FRC 41 <EQ 16 66 LASTX 91 ISG 61 

17 256 42 X=0? 67 BLDSPEC 92 RDN 

18 * 43 XEQ 16 68 LASTX 93 RDN 

19 + 44 RDN 6939 BLDSPEC 94 RTN 

za XEQ 08 45 ISG 86 a LASTX 95+LBL 15 

21 XEQ@ 18 46 GTO 88 ?1 BLDSPEC 96 ADY 

22 xEQa 16 47 RTN ?2 LASTX 97 sF 12 

23 XEQ 18 48+LBL 16 73 BLDSPEC 98 58 

24 xXEQ 16 49 2 74 ACSPEC 99 STO 82 

25 XEQ 17 58 RCL 91 ?5 ACSPEC 188 RDN 

26 ADV 51 INT ?& ACSPEC 181 XEQ 17 
182 END 


Dieses Programm druckt Alpha-Data-Bar-Codes.Zeichenkette ins Alpha- 
kegister eingeben, Bara ausführen, fertig.Als Unterprogramm wird "BP" 
benutzt.Die maximale Länge der Alpha-Kette beträgt 12 Zeichen.wWird 
vor dem Start Flag 92 gesetzt,wird ein "Append-Code" erzeugt,d.h. 
er wird beim Binlesen an das Alnha-Repister angehängt. 

Serutzte Speicher: dB - 96 Benutzte Flags: 98 - P2 

Size: 907 : 119 Bytes 


Programm iM „BL'BARA 117 Bytes Size 9@7 


ANNIKA 
IMNINNLNNUININNNANINLNUNAUKINIMNINMUNANN 
DIN INNUNNINNNUNNNNNNNNIANLINNI AN 
UNI UNNA IN NUMANUUNULLNN 
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INIIMNINNUNUNNNNNLUNINUNANNIILINLINGKA UNI 
INIIUNIININNU MN UNIULTNNNMILNANNHNNLINN 
ININNNIAINMLNUUNUAINNNNNUN UNNA IN 


DIRINITINININININNIINNNUNMNNNUNMNNNNNN. 
ANIMAL 


8e1*+LBL "BAR SF 86 39 xXEQ "BP” 
RA“ 2, FS?C 89 48 GTO 82 
a2 SF 88 22 SF 97 41+LBL 83 
e3 CF 81 23 FS?C 1@ 42 x<> 05 
84 ASTO 85 24 SF 89 43 SF 25 

85 ASHF 25 FS?C 11 44 + 

86 ASTO 86 26 SF 18 45, FC? 25 
er 0 27 FS?C 12 46 STO 86 
e8 STO 93 28 SF 11 47 FC?C 25 
89 STO 94 29 X<> d 48 GTO 082 
18+LBL 82 38 DEC 49 112 = 
11 CLA 31 X=8? se FS? 82 
12 ARCL 96 32 GTO 82 51 128 

13 ASTO CL 33 16 52 RCL 94 
14 ASTO 86 34 8<>Y 53 + 

15 ASHF 35 X=Y? 54 XE@R "BP" 
16 "be+++eX" 36 GTO B3 55 SF 81 

17 %<> [ 37 ISG 94 56 GTO "BP" 
18 X<> d 38 "" 57 .END. 

19 FS?C 88 


Diese Seite bietet eine Kostprobe der selbstgedruckten : r-Codes 
und der Graphik. Wer den Umbau nicht selbst durchführer ''chte, 
der kann ihn*mir zusammen mit einem Scheck über 69,-DV "senden. 
Ich kann jedoch keinerlei Garantie auf den Umbau oder draus ent- 
stehende Folgen übernehmen.Mein Drucker arbeitet nach der !!rbau 
schon 3 Monate einwandfrei. 


Winfried Maschke (413) Tschüss & 


Eichhardtstr. 3 5 
a. 1111111111111) 
% Den Drucker 
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Tips und Tricks 


Hallo Clubsitglieder ! 
Wie findet Ihr die Idee „ dass regelmaessig im Prissa eine 
Seite sit Tips und Tricks erscheint ? ! 


Jedes Mitglied kann kurz und knapp Arbeitsanweisungen bzw. 
Erklaerungern zu speziellen Problemen in Form von Tips und 
Tricks geben „ die nach geeigneter Durchsicht abgedruckt 
werden und in einer Ausgabe des Prismas erscheinen. 
Fehlerhafte und unvollstaendige Tips und Tricks werden 
nicht veroeffentlicht. 


Ich habe sit Oliver ueber meine Idee gesprochen „ Er fand 
das Ganze einen Versuch wert und bat mich „ die Idee zu 
realisieren. Mit seinem Einverstaendniss bin ich also der 
Herausgeber der Tip- und Trickseite. 


P.S. Ich wuensche mir viele Tips und Tricks. 


Meine Adresse: 
Walter Pieperhoff 
Walb. Osth. Wallstr. 10 
4779 Soest 


Hier der erste Tip von Oliver ! 


Bei Ausfuehrung eines Programms in single step (Druck auf 
Taste SST) und angeschaltetem Drucker im Trace - Mode zeigt 
der Ausdruck immer eine Zeilennunmer groesser an. 
Erklserung: Sei Druck auf Taste SST wird der Zeilenzaehler 
in Register e hochgezaehlt und beim Zugriff des Druckers 
ausgdruckt. 


Nun ein Tip von air: 


Unterprogranan zur Eingabe von Zahlen . 

Wenn grosse Mengen von Zahlen eingegeben werden Ruessen 
bietet sich folgendes Untarprogramm an . 

LBL’U’ CLST LASTX XD Z LELOIRE 15T T Ry STOP 
STo 1IKO T D5SE Z CTO 01 RTN 0. END 

Das Prograna wird wie folgt aufgerufen : 
2.6. 6 1/X XEQ ’U’ 

In diesem Beispiel fordert das Programm 6& Ziffern an 

die von Register 01 bis Reg. 07 abgespeichert werden. 
Vorteilhaft wird die ganze Sache erst wenn das Unterprograna 
von mehren Hauptprogrammen aufgerufen wird. 


HEW F-PACKARD ANWCNDER-CLUB 
OLIVER RIETSCHEL 


Tips und Tricks 


Noch ein Tip von wir ! 


Erklaerung des Prograsazeigers in b -Register 

Nach RCL b steht folgendes in der Anzeige 0.0000 -&1 . 
Nach Ausfuehrung des Programms "DECODE" aus den Buch von 
Wickes steht der Progrannzeiger in Hexadezinal in der 
Anzeige ( 12.B. 00:00:00:00:00:31:4F ). 


Die letzten 3 Halbbytes (hier 14F ) zeigen auf das Register 
1 = 2565 + 4f = 79 = 334 „ Der Programazeiger steht also 

in Register 334 auf den 3.Dyt. 

Liste des 4. Halbbytes (nach Ausf. von DECODE) 

1. Byt 

2, Byt 

3. Byt t Achtung das Progranm ’DECODE’ 

Byt ist von air im Zuge des Magnetkarten- 
5. Byt copyservice auf einer Karte zu erhalten.) 
6. Byt 

7. Byt 


u >uUun-o 
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Der letzte Tip von mir ! 


Die Statuskarte als Prograsnanfangskarte ! 

Als erste Karte eines Programas kann man inner eine Status- 
karte erstellen. 

Die Vorteile ! 

Schaltet zum Beispiel den USER - Modus ein. 

Dadurch koennen alle Tastenfeldzuordnungen wit eingelesen 
werden. (Vergessen ist menschlich) 

Man braucht kein SIZE mehr auszufuehren.In der Anzeige 
kann sofort die erste Programminformation stehen. 

In Alpharegister steht die erste Druckzeile. 

In den Registern Y; Z ; T ; L koennen Werte oder Alpha- 
zeichen stehen ; die man sofort verwenden kann. 


Als Nachteile sind anzufuehren : 

Es muss inner eine Karte mehr eingelesen werden. 

Beim zweiten Programnstart auss erst immer wieder die 
Statuskarte eingelesen werden um gleiche Anfangsbedingungen 
zu haben. 


PROERAMMIERHILFEN. F 


Programmieren -undg da bildet 
hat eine gewisse Ähnlichkeit 
erbeiten des Hendbuchs kennt 


ÜR ANFÄNGER 


euch der HP-L1 C keine kusnahme- 
mit dem Schachspiel: nach Durch- 
aen zwar die "Spielregeln", sber 


Taktik und Strategie (Tricks im Kleinen und Progremmsblauf im 
Großen) bereiten oft noch Schwierigkeiten. 


Hier soll nun die neue Rubrik "Progremmierhilfen für Anfänger" 
Erfahrungen aus der Praxis für die Prexis vermitteln, die die 
Benutzung des HP-41 C wirklich zum "Happy Programming" machen. 
Daß hierbei evtl. such der genobene Anfänger oder gar der Fort- 
geschrittene profitiert, hofft der Verfasser, der sich ellerdings 
nicht als Alleinunterhalter versteht: jedes Clubmitglieo ist 
aufgerufen, Kritik, Anregungen und eigene Beiträge zu liefern. 
Sie wersen Gankend entgegengenommen von 


Klaus Werner Hoenow 
Alaskaweg 16 
2000 Hamburg 73 


Nun zun Inhaltlichen dieser neuen Rubrik: 


Hier solien keine längeren Progremme für spezielle Problem- 
stellungen gebracht werden, defür ist anderswo im "prisma" aus- 
reichendg Platz. Kurze Progremmstücke, ähnlich den "25 l:ords" der 
HP Key Notes, die besondere Programmiertricks enthalten, aber 
euch allgemeine Verfahrensbeschreibungen zur Speicherplatzein- 
sparung, zum sinnvollen Schleifenaufbeu, zur Lsufzeitverkürzung 
u. 8. sind gefragt. Hinweise zur Fehlersuche und -vermeidung, 
zur Prooremmkorrektur und -optimierung sollen gepracht werden; 
ferner ist an eine Einführung in den Umgang mit Flußdiagrammen 
eouvie in die Strukturierte Programmierung gedacht. 


Kurz und gut: zlies was geeignet ist, den Weg von den Spielregeln 
zu Taktik und Strategie zu ebnen, soll in dieser Rubrik Platz 
finden; zur Mitarbeit sei hiermit jeder aufgerufen! 


An den Anfang sei ein Upti- 


ee "AV ae "DIS mierungsbeispiel gestellt: 
az CLST e2 FCL ı0 Zu dem von mjr in "prisme" 
az FS7 23973 03 ENTERt 7-81 veröffentlichten Programm 
a4 1 e4 FFC FORMAT gingen Verbesserungs- 
05 FS? 38 65 ı& vorschläöge von Andreas Meyer- 
E66 zZ 06 * Lindenberg (258) und Holger 
a7 FS? 77 87? GTO IND Pochert (157) ein, von denen 
oz 4 x der letztere hier diskutiert 
a3 FS?7 36 BE+LEL 66 werden soll, da er zwei für 
19 2% 89 SCI INI diese Rubrik geeignete Ver- 
11 + Y fahren enthält. 
= . I ei wie vielleicht erinnerlich, 
nn De 49 an FIX ınp  Sellte anhand des Status der 
15 1 Y nn Re 
FS- ür das Anzeigeformset und an- 
= > = ae e2 hend des Status der Flags 36 
125 + 15 ENG IND bis 39 die Anzahl der Nachkom- 
19 STOo 168 x mastellen in der Anzeige (Be- 
2e END 16 END gienungshendbuch: Seite 231) 
bestimmt werden. Letzteres 


PROGRAMMIERHILFEN FÜR _ANFÄNSER (Fortsetzung) ! 


wurde im Programm FORMAT mit einer DSE-Schleife bewerkstelligt, 
wobei die zum Bilden der Nschkommastellenzaehl benötigten Summen- 
den jeweils durch Verdopplung des Summanden Bus dem vorherge- 
henden Schieifendurchlauf erzeugt wurde. Dieses Verfahren jet 
ebeneo kompliziert wie dieser Text, der es beschreibt, was na- 
türlich die Kritiker auf den Plen rufen mußte. 


Wie man an den Zeilen D2 bis 13 des Progremms SAVE von Holger 
Fochert sieht, 1#8t sich das Problem wesentlich eleganter ohne 
Schleife lösen, indem die Flegs 39 bie 36 nacheinander direkt 
ebgefragt werden und ggf. 1, 2, & und/oder B im X-Register auf- 
summiert wird. Andreas Meyer-Lindenberg schlägt des gleiche Ver- 
fahren vor. 


Man sollte sich ellerdings durch die bei diesem Beispiel ins Au- 
ge fallende Eleganz nicht dezu verleiten lassen, dieser direk- 
ten Methode irn jedem Fell den Vorzug vor einer DSE- oder 15G- 
Schleife zu gehen: Sobald nömlich die Anzanl der Flag- (oder 
sonstigen) Abfragen größer als 4 wird, kommt man evtl. bei ei- 
ner Schleife mit weniger Prograemmspeicherpletz aus, auch wenn 
man dans gezwungen sein sollte -wie im Beispiel FORMAT- die auf- 
zuaddierenden Summanden in jedem Schleifendurchlauf nach einer 
bestimmten Rechenvorschrift (hier: Verdopplung) neu zu bilden. 


Der zweite Trick im Programm SAVE ist häufig enzutreffen, när- 
lich die Speicherung zweier ganzer Zehlen, getrennt durch Dezi- 
mslpunkt, in nur einem Register. Hier wurde die Anzehl der Nach- 
kommsstellen vor den Dezimalpunkt, die Kennziffer für das Format 
dehinter gesetzt und beides zusammen nach R1D angespeichert (Zei- 
len 14 bis 19). Voreussetzung für diese Methode ist, daß man die 
maximal mögliche Stellenzehl der zweiten ganzen Zahl kennt, da 
diese sich sonst in die vor dem Dezimalpunkt stehende erste Zahi 
hinein ausbreiten könnte, und dann sind beide nicht mehr zu ge- 
brauchen. « 


Eine mögliche Form der Auswertung eines solcherart gespeicherten 
Zahlenpaares zeigen die Zeilen 02 bis 06 des Programm DISP von 
Holger Pochert, des die Regenerierung des durch SAVE gespeicher- 
ten und im weiteren Gang eines anderen Programmes möglicherweise 
zerstörten Anzeigeformates bewirkt. 


Allgemein 18Bt sich das Verfahren folgendermaßen beschreiben: be- 


geben seien 2 ganze Zehlen K und L mit L < 10". Dabei sell n die 
kleinste genze Zehl sein, die diese Ungleichung noch erfüllt 
(also z.B. n=2 für L maximal 99). Die Speicherung erfolgt, indem 


die Größe K+L/ 10" gebildet und nach R.. abgespeichert wird. Um 

K und L wieder getrennt zu .erhelten, werden die Schritte RLL..; 
INT; LAST x; FRC; 1 En; m durchgeführt. Dann steht 4 im Y- uno 
L im X-Register. Wird im Folgenden (z. B. durch indirekte Opere- 
tionen wie bei Zeilen 09, 12 und 15 von DISP) ohnehin nur der 
ganzzahlige Anteil der im Y-Register stehenden Zahl benutzt, so 
kann INT; LAST X durch ENTER# ersetzt werden. 


Im Einzelfall ist allerdings zu Überprüfen, ob die Einsparung an 
Detenspeichern nicht durch den Mehraufwend an Progremmspeicher- 
pletz zunichte gemacht wird. 


Klaus Werner Hoenow 


. Ordo Ant. eyer-Lindenberg 
zu... Elliger a 


5300 Bonn 2 - Bad Godesberg 
Spielprogramm für HP-41C ohne Erweiterungen 
Andreas Meyer-Lindenberg (258), den 01.05.81 Telefon 0228/9323255 


Size 913 
Assignnents (User): "ORDO" 


Lieber Oliver, liebe Clubmitglieder, 


im Gegensatz etwa zu den USA ist das Spiel "Ordo" bei uns noch immer 
ziemlich unbekannt. Damit das nicht so bleibt, stelle ich euch hier ei- 
ne "computer"isierte (HPisierte?) Version des Spiels vor und hoffe, daß 
das Spiel euch gefällt. Wie auch immer, hier sind die Spielregeln: 


Ordo wird auf einem 8Bx8-Spielfeld wie dem unten gezeigten gespielt. Auf 
diesem Spielfeld versteckt der Rechner nun zu Beginn des Spiels eine be- 
stimmt Anzahl von "Atomen", kleinen Kugeln. Die Positionen dieser Ku- 
geln zu bestimmen, das "Molekül" zu analysieren, ist das Ziel des Spie- 
ls. 


Sie erhalten Jedoch vom Rechner keinerlei direkte Information über die 
Positionen der Atome (etwa: "A4"? "Versenkt"!). Sie können lediglich 
versuchen, aus dem Verhalten gewisser (imaginärer) Strahlen, die Sie 
von jedem Feld des Randes aus in das Spielfeld hineinschicken können, 
Ihre Schlüsse zu ziehen. Diese Strahlen werden nach gewissen einfachen 
logischen Regeln von den Atomen, abhängig von der Stellung, abgelenkt. 
Sie erhalten Jeweils nur das Austrittsfeld des Strahls genannt. Ihre 
Aufgabe ist es nun, eine Molekülstellung zu finden, die zu dem Verhal- 
ten der Srahlen passt. 


eür die Strahlenwege gelten die folgenden Regeln: 


1. Strahlen bewegen sich immer gradiinig, nie diagonal! Befände sich 
kein Atom auf dem Spielfeld, so würden die Strahlen einfach auf der 
gegenüberliegenden Seite wieder austreten. Interessant wird es erst, 
wenn der Strahl von einem Atom beeinflußt wird: 


<. Trifft ein Strahl genau frontal auf ein Atom, so wird er einfach ver- 
schluckt (absorbiert), Der Rechner gibt die Meldung zABSz aus. Auf 
dem Beispielbrett geschieht solches dem Strahl von Feld 16. 


3. Nähert sich ein Srahl einem Atom bis auf ein Feld (diagonal), so 
wird er rechtwinklig vom Atom weg abgelenkt (z.B. der Strahl von 17 
auf dem Beispielbrett). 


4. Kommt ein Strahl. auf ein Feld genau zwischen zwei Atomen (wie der 
Strahl von Feld 87 im Beispiel), so wird er reflektiert (d.h er 
tritt an seinem Eintrittsfeld wieder aus). Der Rechner meldet zRFLz. 


5. und letztens: tritt ein Strahl direkt ne- 


a Wir Ir % 
den einem Atom ins Spielfeld ein (wie der Be 1 IB 
trahl von Feld 21 im Beispiel), so wird EEE= 
er ebenfalls reflektiert. -H is ag 
Natürlich. kann ein Strahl auf Beinen Weg a BER | 
mehrmals abgelenkt werden. Der Strahl von -el IL I] lol C .n 
Feld 82 z.B. wird dreimal nach Regel 3 ab- x HE Ez ut 
gelenkt, bevor er schließlich direkt auf ni Rn 
ein Atom trifft und absorbiert wird. Wenn E — 
Sie nun glauben, die Stellung aufgeklärt Ar Sera 
zu haben, können Sie das Spiel stoppen und 244 nn 


dem Rechner die Stellung eingeben. Stimmt 
‚sie, so haben Sie das Spiel gewonnen. An- 


dernfalls geht das Spiel wieder weiter.- bis Sie die Stellung enträt- 
selt haben. 
Je weniger Strahlen Sie sur Bestimmung eines Moleküls benötigen, des- 
to besser sind natürlich Ihre analytischen Fähigkeiten. Um Ihre Spiel- 
stärke zu bewerten, verwendet der Rechner ein System von Minuspunkten 
wie folgt: 


1 Minuspunkt ..cseeoc... wenn der Strahl absorbiert wird 
2 Minuspunkte „..seeve... wenn der Strahl wieder austritt (also auch 


bei reflektierten Strahlen) 


5 Minuspunkte ..oeoc.... wenn Sie eine Atomposition (am Ende) falsch 


geraten haben. 


Je weniger Minuspunkte man am Ende gesammelt hat, desto besser natür- 
lich. Man kann so auch gegen einen Freund im Wettkampf antreten - ge- 
wonnen hat der, der eine Stellung mit weniger Minuspunkten enträtselt 
hat. 


Li 
Am Anfang ist ein Spiel mit vier Atomen zu empfehlen, danach kann man 
sich auf bis zu sieben Atome steigern. Soweit die Spielregeln - es 
folgt die Bedienungsanleitung: 


1. 


2, 


7. 


Wenn Sie kein Erweiterungsmodul besitzen: Master-Clear SIZE 913, 
Da sämtliche Register belegt sind, können keine Assignnents mehr 
gespeichert werden. 


XEQ "ORDO". Der Rechner fragt nach einer Zufallszahl (RND?). Tippen 
Sie eine Zufallszahl zwischen $ und 1 ein und drücken Sie R/S. Nun 
will der Rechner die Anzahl der Kugeln in der Stellung wissen (KG?). 
Geben Sie die Anzahl ein und drücken Sie R/S. Der Rechner erzeugt 
nun die zu ratende Stellung. 


Jetzt beginnt das eigentliche Spiel: Der Rechner fragt nach dem Ein- 
trittsfeld für einen Strahl (RAY?). Geben Sie die entsprechende Zahl 
ein (die Numerierung ersehen Sie aus dem Beispielbrett) und drücken 
Sie R/S. Nach etwas Rechenzeit erscheint nun entweder das Austritts- 
feld a der Bezeichnung EXT:),oder die Meldungen s#APSx (= absor- 
biert) oder =RFL= (= reflektiert). 


Nachdem Sie sich diese Meldungen auf dem Spielbrett notiert haben, 
drücken Sie R/S. Es erscheinen Ihre Minuspunkte (MIN:). Drücken Sie 
nochmals R/S, und es geht mit Schritt 3 weiter, 


Wiederholen Sie die Schritte 3 und 4, bis Sie die Stellung komplett 
bestimmt zu haben glauben. Dann drücken Sie (mit USER-on) "B". Der 
Rechner fragt nach der Anzahl der Kugeln, die Sie raten wollen. Ge-ı 
ben Sie sie ein und drücken Sie R/S. 


Der Rechner fragt nach der n-ten zu ratenden Position (POS n?). Ge- 
ben Sie die Position im Format Zeile,Spalte ein (die Atome auf dem 
Beispielbrett müßten etwa wie folgt eingegeben werden: 1,3 6,2 6,5 
8,5) und drücken Sie R/S. War die Position richtig, so geht es nit 
der nächsten Position mit Schritt 6 weiter, bis die gesamte Stellung 
richtig eingegeben worden ist, Dann erscheint Ihr entgültiges Er- 


gebnis (SCORE:), und Sie haben gewonnen. Wenn Sie aber ein Atom 
falsch raten ... 


Erscheint die Meldung #ERR=, und es geht mit Schritt 4 weiter. Be- 
denken Sie aber, daß bereits richtig geratene Atome nicht mehr auf 
dem Brett sind! 


So, das wär's. In der Hoffnung, daß euch das Spiel Spaß macht, und nit 


HAPPY PLAYING 
bin ich 


Ordo 


Spielprogramm für HP-41C ohne Erweiterungen 
Andreas Meyer-Lindenberg (258), den 01.05.81 


1 LBL "ORDO" 51 X(=f? Umformung in 

#2 "RND?" 52 GTO 91 Richtungsangaben 
63 PROMPT Zufallszahl 53 CF #9 

$4 CLRG 54 XS? 

85 sTo 99 55 cr 1 

6 "Ka?" Anzahl 56 X() 89 

d7 PROMPT Kugeln 57 x0) 18 

da STO 18 58 xl) 89 

#9 LBL 19 Zufallsposi- 59 LBL 91 

Tu tion erzeugen 6ß ABS 

118 61 19 

12 RCL 99 62 

13 ACOS 63 ENTER 

14 FRC 64 INT 

15 STO 99 65 STO 12 

16 x 66 - 

17 + 67 19 

188 68% 

19 LASTX 69 STO 119 

2 FRC 18 Fs? 89 

21 = 718 

22 INT 172 X=Y? 

2319 X 73 CF 19 

24 STO 11 74 LBL %6 Brett nach Atomen 
25 RCL IND Y Platz schon 75 CLST absuchen, die den 
26 = besetzt ? 16 XEQ 89 Strahl ablenken 
27 FRC 17 XAB? können 

28 19 78 GTOo $2 

29 ST 11 791 

30% 8d ST+ IND 19 

31 INT 81 XEQ 99 

32 x? Ja, neuer Ver- 82 2 

33 GT0. 1 such 83 ST- IND 1g 

34 RCL 11 84 XEQ 99 

35 1/X Nein, Atom 85 1 

36 3T+ IND 2 abspeichern 86 ST# IND 19 

37 DSE 19 87 RDN 

33 GTO 19 nächstes Atom 88 X=9? 

39 LBL 98 89 GTO 94 "freie Fahrt" 
48 5r 5 Strahlwegbe- 98 Fs? 95 

41 SF 19 rechnung 91 GTo 93 Reflektionam Rand 
42 SF 99 92 1 

43 11 93 FC? 18 

44 STO 89 94 CHS 

45 12 95 ST- IND 89 

46 STO 18 96 RDN 

47 89 97 18 

48 "RAY?" Eintritts- 98 x)Y 

49 BEEP feld 99 xX)Y? 

SA PROMPT 


128.GT0 93 Reflektion 


Ordo - Listin, 


FC? 19 

Ela IND 89 

119 RCL IND 99 
=? 


De ze ze ee Se See ee Sue Nu SE So NE Se NE Se 
oa HS S2JGSGOSSSUN 


DOINIPEUND-SRNO DIN EUND- 
_ g 
a 
En} 
Q 
Be 
Ss 


143 PROMPT 
144 GTO f8 
145 LBL 2 
146 1 

147 "zABSz" 
148 GTO A 
149 LBL 3 
159 2 

151 "aRFLz" 
152 GTO A 


a £ 


Ablenkung 


Nächstes zu 
passierendes 
Feld berech- 
nen --- 


Am Rand ange- 
langt ? 


Ja, zur Ausgabe 
Nein, nächstes 
Feld 


Austrittefeld 
konstruieren 


Meldung ausge- 
ben und Minus- 
punkte berech- 
nen 


neuer Strahl 
absorbiert 


ausgeben 
reflektiert 


ausgeben 


-"Positionstest und 
154 "EG?" R 
Anzahl Kugeln . 


n-te Position 
161 PROMPT (x.y) 


befindet sich dort 
ein Aton? 

Nein, Spielerirr- 
tum 


Atom entfernen 


177 ST- IND 12 
178 DSE 89 
179 GTO 15 
189 "SCORE:" 
181 ARCL 99 
182 BEEP 

183 PROMPT 
184 LBL 14 
185 5 

186 "zERR=" 
187 GTO A 
188 LBL 89 
189 RDN 

198 18 


z 
192 RCL 11 


nächstes Atom 


alle Positionen 
korrekt, Anzeige 
Minuspunkte 


Irrtunsroutine 


ausgeben 

Unterprogramn; be- 
rechnet Inhalt des 
Feldes x.y (R12,R''‘ 


ex 
196 RCL IND 12 
197 # 
198 FRC 
199 19 


Li 
281 INT 
282 + 
253 END 


© Andreas Meyer-Lindenberg 
Eliger Höhe 31 
5300 Bonn 2 - Bad Godesberg 
Telefon 0228/323255 


Bal+-LBL "CRE 
LDb“ 
92+-LBL A 
a3 CLRG 
84 CF 21 
AS+LEL 098 
UNDSCN 
a7 = 
sSsTo 808 
”<x=Y? 
GTOa.A 
11 FCL 81 
2 1a 
MOD 
ST+ 989 
& 
x<V? 
GTO el 
FEcL 91 
LASTX 
Bi 
21 INT 
x>Y? 
GTO 91 
ı1erTx 
RCL X 
RCL IND 


Nemmm mn m 
BOSONRNUAUN 


R<>YV 
28 7 

INT 

16 

MOD 
CHS 
x=20? 
TONE 9 
SIGN 
36 * 
ST+ IHD 
VIEW 81 
39 GTO 88 
48+-LBL 91 
41 2,868 
42 STO 61 
43 SF 21 
44+LBL 922 


Te ROCKET 


PROGRAMMALIFLISTUNG 


LISTAGE DU PROGRAMME 
LISTATO DI PROGRAMMA 


54 x<>Y 
55 LASTX 
56 RCL 98 
57 ST+ 96 
* 
ss ei XEQ -CRBLD“ 
6a X<>Y 0.08 
61 18 1,68 
ee 2,08 
63 x=0? 3.06 
64 GTO 02 m 
65 x<> 99 . 
86 KX<>Y ' 
Koreklur eines [en 
&7 BLDSPEC 
68 STO 89 falsch gelesene Duncan 5,88 
69 ISG 81 11,88 
78 GTo 82 22.06 
71 .END. Fir 
GTO .. , 
PACKING 33,08 
ı 42,8 
LBL’CRBLD 44,08 
END 51,00 
112 BYTES 35,68 
SIZE AIR 68.08 
Es 61,88 
SE 2 62,86 
XEQ "CRBLD" os 
Br ei 
20,06 66.08 
1 un 0 
a ACSPEC 
11,88 
22,08 cL% 
33,08 
44,08 
55,88 
66, BR 
56,88 
46,88 
36,08 
26,06 
16,88 
6,88 
15,08 
24,08 
42,58 
51.88 
“DAROF" ur. 
SF 12 
ACSPEC 


HINDERNIS- 


Ralf Wirowski Arthur-Hantzsch-Str.12 
S5ooo Köln 80 


Tel: (0221) 663477 2) j 
os 


Idebe Clubfreunde | 


Seit längerer Zeit beschäftige ich mich mit einer Verwirklichung 
bekannter Telespiele auf dem 4ler-System. Da hier kein Bild- 
schirm vorhanden ist (wie lange noch?), muB zwangsweise der 
Drucker mit seiner hochauflösenden Graphik (sogar besser als 
Bauklotzgrapbik bei TRS 80) zu Aufgaben herangezogen werden, 
Diese Tage konnte ich ein „Hindernis-Fahrt"-Spiel fertigstellen. 
Hier nun das Resultat : 


r rn un 
g =i 58 5 BPHER.  —_£ 
fd eu = s [67 [60 6 FLN 
TO : GH Zee 
EN H: : er Mi > ee 
z.mg“ rie 6: yH @& 0 $ oc£ 
TOVYEENSO LK: © i 5 “. 
BeYERog- none" 06________/_e___s” 
Durch konsequente Programnspeicherplatzeinsparung gelang es mir 
äleses Programm auf 3 Magnetkarten zu pressen. Leider führte 
dies zu einer Anwendung der synthetischen Programmierung. 


Zusätzlich habe ich in diesem Programm den vollen ASCII-Zeichen- 
satz des Rechners angewendet, was mit einigen synthetischen 
Programmierkenntnissen aber ein Kinderspiel ist. 

++++++ Dieses Programm möchte ich einem Copyright unterziehen, - 
Verbreitung also nur unter uns Clubmitgliedern! ++++++ 


mit freundlichen Grüßen " 


HINDERNIS. %, 25 STO 95 79 KE@ 97 
FAHRT 27 A“ se2 
eur Ze LER 94 81 SKPCOL 
DIESES PRUSPANM STELLT 23 "ECD 82 cF ı2 
DIE HOCHAJFLOSENNE GRA- 39 xEQ 94 83. "nat 
PHIL. BES 4EC-TRUCKERS 31 "E 84 ACA 
DURCH EIN SPIEL VOR, 32 xEQ 94 85 SF 12 
SER SPIELER FAHRT NIT 3I "see - e6 1 
ETKER AUTO EINEN KEG AB, > 330 87 SKPCOL 
AUF DEN SICH IMM STÄKBIG 34 XEQ 94 892 RCL 92 
HINDERNISSE <BAYME) IN 35 ADY 89 ACSPET 
DEN WEG STELLENALT 36 CF ı2 sei 
DIE PZAFTIONSTZETT VER- 37 "Reaktio 91 SKPCOL 
KRZT SICH RITOATISCH n=zzeit:"“ 32 CF 12 
JE GEFGHRENER SuM, 33 PRA 93 ACA 
Be en de 39 *- 2.5 94 ACA 
ERFORDERLICHE EINGRBER: bis 8,5” o 95 ACA 
FUFSANLERUNG DURCH TAS- 48 "b Sekun DI 96 ACA 
TENDRICK BEI BER LASE- den" 9? SF 12 
ANZEIGE von AUTe ce; 41 FRA 923 SKPCOL 
IND HINDERKIS XUS IK- 42 SKPCHR 3 23 XEQ 07 
NEPMDLB DER BEAK-InNS- 43 SF 12 2 182 CTo 86 
ZEIT. OHNE TASTERNEIICK 44 0" > 101*LBL 04 
WEUT ES CERANERNE S xEn na # 182 aca 
WEITER, 46 "1" = 183 CF ı2 
--------- 47 XED 84 4 184 SKPCHR 
48 "2 f 195 SF 12 
49 XEQ 094 A 186 RTN 
El*+LBL "H-F 38 "3" > 187+LBL 5 
- 51 XER 94 2 188 ARCL XxX- 
a2 F7gaasaa 2 v4” 4 1809 "r-r 
3eagena1 53 Ara wo 112 6 
G3 REL L 54 CF ı= rH 111 + 
4 270 0 5 " CFlases & 112 ARCL % 
v5 F?10E374 3“ & 113 RTN 
GEF1LT7TZB 56 RC# o 114+LBL 96 
96 RCL CL z 57 "Srielfe 115 RCL 94 
a7 STOo 01 ldbreite" 116 "R:*- 
= F711DD17? 58 "HF: 117 xEa 95 
FFFFD177? 593 FPRR 118 "FH:" 
“3 FCL I 68 SKPCHR 113 RCL 96 
15 STD 62 ei SF 12 129 9821 
11 Frie12si 62 "1-38 121 = 
1E2465R4 62 aca 122 „211327 
12 BEL L 64 CF 12 123 + 
13 STO 83 s5 "Einheit 124 FRC 
14 17 en" 125 STO 96 
15 STO 94 66 ACTA 126 >72 
16 "HINDERN 67 PRBUF 127 x 
13-7 83 SF ı2 128 INT 
17 PRA 69 ADV 129 ı 
18 "FAHRT" 78 XEO 97? 139 + 
19 ACA 71 3 131 STOo 85 
28 RDV 72 SKPCOL 132 xXEQ 85 
21 CF 12 73 "START" 123 4 
22 “Tasstenb 7-4 ACA 134 8 
elesung:" 75 44 135 ADV 
23 PFRA 76 SKPLOL 136 SF 88 
24 SF 12 77 XEO 97? 137 CF 21 
251 78 ADV 138+LBL 88 


139 rs? 


148 AVIEN 
ı41 FS? IND 


142 GTO IND 
Y 


143 TONE IND 
Y 

144 DSE Y 
145 GTO 98 
146 AVIEN 
147 PSE 
148+LBL 01 
149 PSE 
159+LBL 02 
ı51 PSE 
152+LBL 03 
153 PSE 
154+LBL 84 
155 PSE 
156 CLD 
157 GTO C 
158+LBL A 
159 -2 
168+LBL 
161 3 
162 - 
163 GTO 
164+LBL 
165 2 
166*+LBL. 
167 3 
168 + 
169+LBL C 
1708 SF 21 
171 RCL 94 
172 + 

173 STO 94 
174 x%<=0? 
175 GTO 089 
176 75 

177 8<=Y? 
178 GTO 18 
179 RCL 65 
1898 7? 

181 + 

182 RCL 84 
183 X>Y? 
184 SF 085 
185 RCL 85 
186 — 

187 ABS 
188 8 

189 - 

198 x%<0? 
191 GTO 08 
192 XERQR 87 
1923 RCL 04 
194 RCL 085 
195 FS? 05 


mn 
copyright by ralf wirowski | 


| 
| 


1981 


196 R<>YV 
197? STO 85 
198 X<>YT 


.,199 STO 04 


2088 SKPCOL 
281 RCL ®82 
282 FS? 85 
283 RCL 83 
284 ARCSPEC 
285 RCL 084 
206 7 

207 + 

283 CHS , 
289 RCL 85 
219 + 

211 SKPCOL 
212 RCL 82 
213 FC? 85 
214 RCL 93 
215 ACSPEC 
216 75 

217 RCL 85 
218 - 

219 SKPCOL 
220 XEQ 97 
221 RCL 85 
222 FS?C 85 
223 STO 94 
224 4 

225 RCL 68 
226 5 

22? 7 

228 INT 
229 8%<=Y? 
238 SF IND X 
231 1 

232 ST+ 088 
233 GTO 06 
234+LBL 07 
235 127 
236 ACCOL 
237 RTN 
238+LBL 088 
239 XEQ 097 
248 RCL 84 
241 SKPCOL 
242 RCL 81 
243 ACSPEC 
244 75 

245 RCL Z 
246 - 

247? SKPCOL 
248 XEQ 87 
249 GTO 11 
258*LBL 89 
251 RCL 01 
252 RCSPEC 
252 76 

254 SKPCOL 
255 XxEQ@ 87 


HINDERNIS- 


256 GTO 11 
257*+LBL 19 
258 XEG 987? 
259 76 

268 SKPCOL 
261 RCL 281 
262 ACSPEC 
263+LBL 11 
264 ADY 
265 TONE 7 
266 TONE 7? 
267 TOHE ? 
268 "A Unfall 
ııı a” 

269 PRA 
270 "<nach 
271 ARCL 920 
272 "tkm?" 
273 aca 
274 SF 29 
275 FIX 4 
276 8 
277+LBL 12 
278 ADV 
279 DSE % 
288 GTO 12 
281 END 


SIZE 097 v 656 BYTES 


FAHRT 
Tastenbelesuns 
ncBbcCcrıreE 
«+ «e - > > 
Reaktionszeit 
&35 bis 8,5 Sekunden 
81234 (Flas) 
Spielteldbreite: 
1-80 Einheiten 


ISTART ı 
| ESS - Pre ı 
u =; 


a Unfall!!! & 
(nach 6km) 


Frank Al@fAisen 


Towers of Hanoi HP-41 C 


Dieses Programm bearbeitet eine leicht eingeschränkte - wohl aber die 
populärste Art - dea Spiels TÜRME VON HANOI; nämlich die Version mit 
drei Türmen. Die Anzahl der Scheiben ist nur durch die Kapazität des 
Rechners begrenzt. 

Der bier verwendete Algorithmus gibt als Ergebnis nur die beiden 
Türme an, die am nächten Umlegevorgang beteiligt sind, nicht aber 

die Umlegerichtung! Diese ergibt sich aus den Spielregeln. 


Progranmnetart: XEQ'HANOI SCHEIBEN ? 
Eingabe der Anzabl 
aer Scheiben: n R/S SCHEIBEN:N 
ZUGZAHL: M 
" Zug a " 
" Zug b " 
+++4READI +++ 


- SPIELREGELN. : Es gilt, alle Scheiben dee ersten Turmes, unter zuhilfe- 
nahme des zweiten, in der gleichen Reihenfolge auf dem dritten RBurm 
aufzustapeln. 

Es darf inmer nur eine kleinere Scheibe auf eine größere zu liegen 
kommen! Wird also angezeigt: A CHANGE B, so heißt das, daß die kleinere 
der obersten Scheiben der Türme A und B umgelegt werden muß, und zwar 


auf den anderen der beiden Türme. 


TOWERS OF ig 


001 LBL'HANOI 


002 FIX O0 


003 ‘SCHEIBEN ? 


004 PROMPT 
005 STO 00 


006 'SCHEIbEN: 
007 ARCL 00 


008 AVIEW 
009 2 

000 RCL 00 
o11 yrtı 
012 RND 
013 1 

014 - 

‚015 ST0 01 


016 !'ZUGZAHL: 
017 ARCL 01 


018 AVIEV 
019 PSBE 
020 CLAX 


Datenspeicher: 


Numerische Labels: 


Alpha-Labels 
SIZE: 004 


021 STO 03 
022 'ZUEGE: a 
023 AVIENW 

024 PSE 

025 LBL 00 

026 1 

027 ST+ 03 

028 RCL 03 

029 ENTER 

030 ENTER 


Anzahl Scheiben 
Anzahl Züge 
Belegt 

zäbler 


00, 01, 02, 04 


'Hanoi' 


Keine Erweiterungen nötig. 


HP=41 


041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 


c 


2 

RCL 02 

XaY ? 

GTO 02 
'_2-CHANGE-3 
LBL 04 
PRCM?T 

LSE O1 

6TOo 00 
!4+++READY +++ 
PROMPT 

GTO 04 

LBL 01 


_1-CHANGE-3 


GTO 04 
LBL 02 
'_1-CHANGE-2 
GTO 04 
=, END,» 


Die Anzeige der Programmbeschreibung erhält man ohne "R/S", 
wenn man den Programmschritt 047 durch AVIEW ersetzt. 


Clubprojekte Nr.i (Magnetkarten,-Taschen,-Hüllen) MB: (Pepier) 
z. Hd.: Ulli Davertzhofen, Ostenbergstr. 97/8, 4600 Dortmund 50 
Postschackkonto-Nr, 2080 27-432, PschA Essen 


Liebe Clubmitglieder, 


wir haben uns entschlossen, das Clubprojekt Nr.3 (Thermopapler) zu 
bsanden, Der Preisvorteil beim Einkauf größerer Mengen Papier ist 
mittlerweile sehr gering geworden, so daß Sammelbestellungen, die 
zudem noch einigen Arbeitsaufwand erfordern, kaum noch lohnen. 
Damit Ihr euch künftig Druckerpspier zu vernünftigen Preisen be- 
kommt, möchte Ich Euch bitten, direkt mit 


Herrn Karl-Josef Meusch 
Friedrich-Ebert-Straße 46 
5020 Frechen-Königsdorf 
Tel. 02234 / 84127 


Kontekt aufzunehmen. Über Herrn Meusch habe ich auch slle bisheri- 
gen Sammelbestellungen abgewickelt und kann ihn deshslb nur ampfeh- 
lan. Derzeit (Stand: 23.7.81) gelten folgende Preise: 


HP=-Papier, 57 mm, 25 m, Druck schwarz : 


1 - 23 Rollen : DR 1.70 /Stück 
24 - 50 Rollen : DM 1.61 /Stück 
51 -101 Rollen : DM 1,56 /Stück (Preise inkl. Must. zzgl. Versand). 


Natürlich verden wir such künftig versuchen, beim Thermopapier "am 
Ball” zu bleiben, indem wir nach günstigen Angeboten Ausschau hal- 
ten und Euch darüber informieren, 


An: Ulli Davertzhofen, Ostenbergstr. 97/8, 46 Dortmund SO 
Nane: Mitgl.-Nr.: 


Anschrift: ı( ) 


Ich bestelle: 


mal 40 Magnetleerkarten „ je DM 18.00 . om 
Stück Kartentaschen(Spirelheftung), je DM 9.00 - pm 
_.__ Stück Einlegeblätter(Klarsichtfolie,DIN Ad, 
für je 15 Karten) , je DM 1.80 - pm 
+ pauschaler Unkostenbsitrag(Varpackung,Porto) - DM 4,00 
Gesamtbetrag = DM 


( ) Ich habs den Betrag auf Pschk 208027-432, Essen überwiesen, 
( ) Verrechnungsschack liegt bei. 


P.S. Der Absender der DM 168,- (s. "prisma”, 5. 194/95-81) hat 
sich {immer noch nicht gemeldet, Ich möchte ihn noch sinmal 
bitten, sich umgehend bei mir zu meldeni Bestellungen ohna 
Angabe des Auftraggebers und des Bestellumfangs kann Ich 
nicht bearbeiten, 


LösungsbuchW#P. 3 - Intelligente Spiele 


Das in "priema" (3.65-81) angekündigte Lösungsbuch mit intelligen- 
ten Spielen ist fertig. Es enthält auf 35 Seiten Fünf interessan- 
te Programmn u. 2.1 

1. Superhirn(verbesserte Fessung)- Finden Sie den geheimen Code „ 
den der Rechner "versteckt" hat, in möglichst wenigen Versuchen 
de Positionen und Farben frei uählbar; Farben einfach/dop- 
pelt). 

2. Invers-Superhirn(verbesserte F.)- Drehen Sis den Spieß um und 
lassen den Rechner Ihre Kombination entschlüsseln. Er schafft 
das überraschend gut (Anzahl Positionen, Farben frei wählbar). 

3, U=-Boot=-Jagd (verbesserte F.)- Ver findet und zerstört die fünf 
feindlichen U-Boote zuerst, Sie oder der HP-41 ? 

4. Reversi- Ein strategisches Brettspiel gegen den Rechner 

5. 4x4äxd=TicTacToe- Versuchen Sie, auf einem dreidimensionalen 
Spielbrett eine Reihe mit vier Steinen zu bilden, bevor ses dem 
Rechner gelingt, Das Programm iat dem im HP-Lösungsbuch "Games" 
veröffentlichten Pr. klar Überlegen. 


Lieferumfangi 

Die Programme sind sauber dokumentiert und mit allen nötigen Er- 
läuterungsen versehen. Das Ganze wird mit Plastikhefter in einer 
stabilen Verseandtasche verschickt. Auf Wunsch werden 16 beschris- 
bene Magnetkarten (+ Einlegsblatt) beigefügt. Lieferung erfolgt 
gegen Vorkasse unmittelbar nach Zahlungssingang, 


P.S. Eine Fortsetzung mit usiteren intelligenten Spielen ist ge- 
plant . 


An: Ulli Davertzhofen, Ostanbargstr. 97/8, 46 Dortmund 50 
Name: 


Anschrift: ee hl ee ua ae 


Ich bestelle: 


mal Läsungsbuch "Intell. Spiele" „ ohne 
“  Magnetkarten „ je DM 18.90 - Dn 


mal Lösungsbuch "Intell. Spiels" , mit 
16 beschriebenen Magnetkarten + Einlege- 
blatt „ je DM 28.90 - om 


Gesamtbetrag = DM 


(Preiee inkl. aller Nebenkosten) 


( ) Ich habe den Betrag auf Pschk 2080 27- 432, PschA Essen Ü- 
beruiesen. 
) V- Scheck liegt bei. 


Und hier das neueste aus CHIP 8-81: 

SEX-Versand tauscht Filme Super 8 und Video gegen Z-Bo Software. Riesenauswahl. 
Man muß die Marktlücke nur finden; oder die richtige Werbung betreiben. Wie hiet 
doch gleich ?_ Waschmaschine, Dolby-Rauschunterdrückung, 30 - 160:= Hz, Gleich] 
Schwankungen: gering, 1 Jahr Garantie, Tel...... 


STIHHZETTEL ZUR ManL Mn 


Eine Ronorierung von Beiträgen zu priema erfolgt bekanntlich nicht. Um dennoch 
einen gewissen Anreiz zu bieten, erfolgt jährlich eine Wahl des besten Beitrages . 
Bitte überlegt bei der Auswahl des besten Berichts genau und seht Euch alle bis- 
herigen Infos noch einmal an. Sie alle stehen zur Auswahl I 
Auch Austritt aus dem Club und Meinung über den Mitgliedsbeitrag können verbind- 
lich mitgeteilt werden. Der Austritt erlangt nur dann Geltung, wenn eine entepre- 
chende Bestätigung bis zum 15.Rovember erfolgte ! Andernfalls sicherheitshalber 
erneut kündigen. 
Einsendeschluß des Bogens 15. Oktober 1981 
Bitte einsenden an: Olaf Gursch (120) 

Grüntenstr. 29 d 

1000 Berlin 42 
Jedes Mitglied darf mır einen Stimmzettel abgeben; Selbatwahl eigener Beiträge 
ist ausgeschlossen. Wahl unter Ausschluß des Rechtaweges I 


Am besten hat mir in allen Clubinfos bisher gefallenı 


Artikel Bericht / Program etc, Autor Seite 
Weiterhin haben air sehr gut gefallen: 


111--222.enesnnascnan nennen nenne es nummer nn ————. 

volgende Theunen interessieren mich besonders starkı (bitte einkreisen) 

Hardware Synthetieches Spiele Programnierhilfen 

Eletrotechnik Steuer und Finanzen Statik Statistik 
Yathenatik SELBER rer 


Bemerkungen (Stichwort !) ı 


Zutreffendes bitte ankreuzen :; 


us Ich habe Interesse an Clubtreffen in der Umgebung meines Wohnortes, 
[] Ien din bereit diese Treffs zu organisieren 
Ich war schon bei einem Clubtreffen, außer auf der Hannorermesse | 


LI Ich bin für Rinschränkung der Clubleistungen bei Beibehaltung des Jahresbeitrags 
[_] Ten bin für Beibehalt der Clubleistungen bei Jahresbeitrag von 60,--DM für 1982 


D Ioh kündige hiermit meine Mitgliedschaft zum 1.1.82 Unterschrifti_ 
Ich kündige hiermit, falls der Beitrag auf 60,--IM 
für 1982 festgesetzt wird. Bitte Unterschiift: 
"II Bei 60,--IM Jahresbeitzag möchte ich diesen in zwei Raten zahlen können l 


Weitere Bemerkungen, Anregungen etc. zusammen mit Name, Anechrift und Mitg.Rr. 
auf die Rückseite diesen Blattes. Nicht vergessens Ab bie zum 15. Oktober I1l 


Frelse: 


trag, der die meisten Stimmen erhält, wird mit einen ROM eigener Wahl belohnt. Eben- 


L) 
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80 der Autar, der für alle seine Programme insgesamt die meisten Stimmen (prt.) erhält, 


Die monatlichen, allgemeinen Mitteilungen sind nicht wählbar ! 


8 Trostpreise !I 


Fragebogen zur @:tiedertiste, Blatt 1 (Beiblatt) 


Der neu herausgegebene Fragebogen zur Mitgliederliste dient 

der Neuordnung der inzwischen kaum noch überschaubaren Mitglie- 
derschaft unseres Clubs. Aus verständlichen Gründen ist es 
unmöglich, eine ständig aktuelle Liste der Clubmitglieder zu 
veröffentlichen. Darum wurde nun beschlossen, daß die Mitglieder 
des Clubs sowie wichtige Daten per Computer gespeichert und 
verwaltet werden. Genauer: Alle Daten, die bei mir zur Mitglie- 
derkartei eintreffen,werden auf Disketten mithilfe eines Anple-Il- 
plus gespeichert, 


Natürlich kosten die Disketten Geld, Damit nun der Club nicht 
ganz arm wird, soll mit dem Apple ein Info-Dienst eingerichtet 
werden, der folgende Fragen beantworten kann (oder ähnliche): 


2.B.: "Adresse von Herrn XY" 
"Name von Mitglied Nr, xyz" 
"Alle Mitglieder im Postleitzahlbereich 24xx" 
"Alle Mitglieder im Telefon-Vorwahlbereich .„...." 
"Alle nicht volljährigen Mitglieder" 
"Alle Drucker-Besitzer" 
"Alle PPC-Modul-Besitzer" 
"Alle Tennis-Spleler" 
"Alle, die mir Programme auflisten" 
etc., etc., etc. 


Preis für solche Auskünfte: US op: pro erhaltene Adresse, jedoch 
mindestens 3 DM. 
(Bitte einen frankierten Umschlag beil- 
Am —— te gen) ; 


Natürlich kann Ihnen niemand vorschreiben, die Fragebogen über- 
haupt einzuschicken. Falls Sie dies aber (hoffentlich) tun, blei- 
ben Ihnen noch verschiedene Möglichkeiten für Ihre Eintragung in 
die Kartei: 


Jeder normal eingehende Fragebogen wird gespeichert und dann in 
einem Ringordner abgeheftet. Die Daten stehen für Anfragen zur 
Verfügung. 


Wenn Sie z.B. Ihre Telefon-Nr. nicht veröffentlicht haben möchten, 
so kreuzen Sie die Ziffer 05. nit einem roten Stift an. Alles, 

was mit rotem Stift geschrieben, angekreuzt oder durchgestrichen 
wurde, wird nur abgeheftet, aber nicht gespeichert!!! 


Wenn Sie die Mitgliedsnummer rot schreiben, oder die Ziffer o]. 
rot ankreuzen, werden Sie im Computer überhaupt nicht registriert! 


Alle schon registrierten Mitglieder (also die, die schon eine Mit- 
gliedsnr. haben) schicken die Fragebogen gleich an die Kartei, 
Mitglieder, die noch keine Nummer haben, schicken den Bog:r. aus- 
gefüllt an Herrn Rietschel, der ihn dann mit Nummer an mich weiter 
leitet. 


Frageborrn zur Mitgliederliste, Blatt 2 


ol. 


o2, 


03. 


ob, 


c5. 
07. 


oB. 


2) 


b) 


Mitgliedsnummer 


ame 


Vorname 


Strafe 
Bausnunmer 
evtl. Postfach 


Postleitzahl 
evtl. Ortsteil 
Ort 


Telefon-Vorwahl 
Rufnummer 


Geburtsdatum 


Hsrdwzre 


software 
Module 


YP-5olutions 


AmMTRATRnTn 


gr ee N 
DW Zu Ze Ze Ze Te u u u u u u Ze Tu Tu Tu Tuy TupTup Sun 


HP-LIc 

Kartenleser 

Barcodeleser 
DDMs 

Eodule im HP-LiIc 

anderes: 


Nathe 

Statistik 

PPC 

Circuit Analysis 
Navigation 
Thermal Science 
Home "Management 
Clinical Lab 
Stress Analysis 
anderes: 


Test Statistik 
M2thenatik 
Business 


"Real Estate 


Sm=11l Business 
Antennas 


Civil Engineering 


Zlectrical Eng. 
Hesting, Vent. 
Solar ung. 
Cardiac/Pulnm, 
Games 
Optometry II 
Physics 
anderes: 


HP-4lcv 
Drucker 

einfache Memorys '{SDM) 
(9) 


Kassetten-Interface 


Finanz 

Spiele 

Surveying 

Real Estate 
Aviation 

Machine Design 
Civil Engineering 
Securities 


Maschinenbau 
Elektrotechnik 

Home Construction 
Lending, Saving, Leasing 
Geometry 

Chemical Engineering 
Control Systems 
Fluid Dynamics 
Mechanical Eng. 
Calendars 

Chemistry 

Ovtometry I ’ 
Surveying 


Fragebogen Agp Miteliederliste, Blatt 3 


09, Beruf: 


10. Hobbys: () Jogging ‘ () Leichtathlethik 
() Radfahren () Fußball 
() Handball () Basketball 
() Volleyball () andere Ballsviele 
() Judo () Karate 
() andere Budo () Tennis 
() Badminton () Schwimmen 
() Wasserball () andere Wassersport 
() Ski alpin () Ski nordisch 
() anderes: _ 
() Klassik () Rock 
() dt. Schlager () Disco 
() Volksmusik () exp. Musik 
() Jazz 
() anderes: 
() Instrument: 
{) Lesen: \ 
() andere Computer: j 
() Elektronik: 
() anderes: 


11. Erstelle gegen Umkosten erstattung Listings von Magnetkarten () 
12. Plotte Barcodes () 


13. Datum, Unterschrift: 


(Bitte lesen Sie auch das Beiblatt durch!!) 


Lösungsbuch Nr, 2 im Druck 

Das LöBu 2, für das inzwischen 19 Bestellungen vorliegen, geht in Kürze zun Druck. 

Der Preise beträgt wegen der relativ geringen Nachfrage 50,--IM. Die Auflage wird 

auf einmalig 100 Ex. limitiert. Ein Nachdruck erfolgt nicht. Werden 25 Ex. verkauft, 

so eind die Kosten gedeckt; der Erlös aus dem Verkauf weiterer Ausgaben wird dann - D 
eofern mehr als 25 Stck. verkauft werden - auf die Autoren verteilt, Die Prgr. sind I 
auf Magnetkarte erhältlich. Das LöBu 2 wurde um ein exklusives Biorhytmusplottprgr. u 
erweitert, das aus 4 vorliegenden Versionen auagewählt wurde und von Robert Klauo 


HEWILETT-FACKARD ANVWENDER—-CIOUC 
„ GLIVER KIEZTSCHIL 


=.— a acuon no = 4... 22 non no -2 can 


.m—— .2=-- ron. lauern. zo nz zz manaen nn n zo z eo an = - = - > zn 
wu oc zone cz en zz non uns n nano u. 
ne 
a a m m am a u 
u en a an an an mu mu GE HE GE fun Fin Rand A ME men ab HE Hp er and m dam m arm a Ar a a un a u au a 
a an re u ut mu a Fun GE rn din En mn u ls Ha vun Mi Gi GE ME Ma a Mk A MER HH a u MM m GE ME a a a na 
a u ED HER Ge en Ga ba m ba rn mn arm ie Gi Gin vun GE EU Da Hi au m mn me mai mus Ga m GE HER Gras Ha HE m el mn m a mn a 
rn a tn un an un ni br ber aD mie an ums Gab ar mt Ba Mu HE Hrn un GE HE me ame Hrn Gb dm m vun dan Gb dm mm rm u un ar arme a vr mn un um am 
rn nn nn m m nn a an rn an m an En En a nn a u rn nt a m en u 
nn be mr un a a mn Gas un hm mn en And un Gun HE m mu Gun mr br Gun m HE mus an GE mn a u mer HER a mn GER Hrn an mn m Fu mm dam hen a mn un ar Han au a mm a 
a 
un md Human an une en mn a u AD mu mu an an an un a AED Een m m En u a Hi im m dam um ar man a En mE man Aus hen fan Ab m GAR HER GER Hm HE men an vun GB GE em am m ab a A He Em u un m vum am 
in ne u m a at nn a m a us er En an m bu rue FE Gem ma HE u mn an arm rn rn a an vu rn rt a rn a m a a 
nn a tn a mn u u rn dan u m mn dm a mr ar rs Gun AED Ar mn mu ben Du Mn Ha ars Gun mn Gun Gun mu GE GER Ga mn Gen m rn be a a a a a an a em a a a m a a am un 
ne nn En a ta an br Gen Ar art ber m a mu ai A GE Gun m Gmu GE GE m Ma My Hr man Fe en Ge a En En Ga rn a m m rt a m a u 
in nn m nr m nn en a a rn a HE u a u a Fr GE m En mn m a mn na dr m m m m rn a m m m 
==. un an... nun zz unnumemann non u aan nassen zen,e| |. |. |. 
nn 
en nn mn mm cms nano aouen 


| | nummer mnnenenu ons enuuonsenenmeunzemonsennen nen. 


Gitte Formular mit Anzahl der Karten u. frankierten adressierten 
Rueckumschlag zu den beiden Kartencopy’s senden.Vielen Dank ! 


Beiliegend : Karten 


orisn2 - Publikation des HP-Anwender-Clubs - Oktober-NMfnber-Doppelmmner - Aus! 
Liebe Mitglieder ! 


Die heutige Oktoberausgabe werde ich bereits am 22. August fertigstellen, denn das 
derzeitize Versandverfahıen zwingt zu solch langen Vorplamıngen. Doch das wird ab 
Jem n’:chsten Jahr ganz anders werden; bitte lest alle den Bericht "Ausblick 82" 
eründlich durch ! Auch in der Clubbibliothek gibt es - ab sofort - eine Neuerung: 
Bei der Anforderung von Büchern braucht keine Versandtasche mehr mitgeschickt wer- 
den ! Näheres s.u. ! Doch die wirklich großen Änderungen werden sich erst zum Jah- 
reswechsel auftun. Siehe "Ausblick B2", Buer Oliver (1) 


- lch danke den vielen Zuschriften, die sich mit dem Thema "Büchersendung" und der 
Portoerhöhung beschäftigten. Die überwiegende Mehrheit stimnte meinem Bericht zu 
dieser Thema in letzten Info uneingeschränkt zu. Und so endeten auch fast alle 
Briefe mit dem zänneknirschenden Postulat: Wir missen es doch wohl hinnehmen, 
Aber, liebe Mitglieder, dann kam Rolf mit der verheißungsvollen Mitgliedsnummer 
5oc und sorgte dafür, daß der ganze "Organisationsapparat" unseres Clubs kräftig 
ins rotieren kan: prisma wird 1982 voraussichtlich gesetzt und trotz der höheren 
Seirkosten bei einem ca. Beitrag von 60,--DM (keinesfalls mehr) monatlich erschei- 
sen. Yehr unter "Ausblick 82” 


- Rei Einsendung von Programmen an einen Projektleiter oder mich bitte neben Magnet- 
zarten zuch ein Beispiel beifügen ! Häufig stellte sich in der Vergangenheit nänm- 
iich heraus, daß wir falsche Programme bekamen. Manchmal ist dann sogar ein Fehler 
chen mit ins prisma gekommen. Solltet Ihr aber Programme aus der Magnetkartenbibli 

k anfordern, so könnt Ihr gewiß sein, immer die neuesten Versionen zu wrhalten 

deren veröffentlichte Fehler bereits ausgemerzt sind. Solltet Ihr In einem ve 

öffentlichten Programm einen offensichtlichen Fehler gefunden haben, so teilt das 

Sitte dem jeweiligen Autor mit. Diesen möchte ich dann bitten, den Fehler so bald 

wijia aözlich zu eliminieren und die verbesserte Version an die Magnetkartenbibli- 

othek zu Walter oder Ralf zu schicken. 


- ileungsbuch Kr. 2 - Kalenderrechmungen - : Ich möchte auf diesem Wege den Autoren 
äen Dank der vielen Zuschriften weitervermitteln, die dieses ausgezeichnete Werk 
sehr lcbter. Um so bedauerlich ist, daß bis heute nur 18 Exemplare verkauft sind, 
was noch nicht einmal die Unkosten deckt. Eine Ergänzung zu dem LöBu 2 erscheint 
roch rit diesem Info, Wer das LöBu 2 haben möchte, erhält es sofort gegen 50,--IM 
bar uösr V-Scheck von Oliver (1). Sehr bedauerlich ist auch, daß bis heute über 
25 2estellungen eingegangen sird, 7 Leute allerdings einer Bezahlung völlisz ahge- 
neigt zegenüiberstehen. Da dieses nichts Besonderes in der Zahlungsmoral Ist - die 
Örfahrungen haben es zehrfach gezeigt - werden die LöBus mır gegen Vorkasse ver- 
sardt, Ich bitte um Verständnis ! *| 


Leserbriefe: 

=,..@a8 die INS-Funktion bein 41 nicht auf 8 oder 9 Stellen nach dem Komma genau am 
beiten, war nir bekannt, Daß sich der Rundungsfehler jedoch auch bei dem für Zeit=-. 
rechrungen eigentlich üblichen Anzeigeformat FIX 4 oder FIX 2 bemerkbar macht, hat 
nich dcch etwas überascht. 

Schalte den Rechner auf FIX 2 und führe folgende Operationen aus: 11,05 ENTER 7,05 
INS- „ Das Ergebnis 3,60 steht deswegen in der Anzeige, weil der Rechner den Wert 
3,595999999 auf 3,60 rundet. Das gleiche passiert 2.B. bei 12,20 ENTER 8,10 HMS- im 
FITk 4! 

Unzehen läßt sich das Problem auch dann nicht, wenn man im Umseg über HR die Zahlen 
vorher umwandelt und mit "normalen" Rechenoperationen arbeitet, Sobald das Ergebnis 
mit W4S zurücksewändelt wird, taucht die unerwünschte Anzeige wieder auf. 

Nchody is perfect ! Viktor Hinterleitner (448) 

Fichte „rtarrurne in Dortmund gründen: Macht alle mit ! Meldet Buch bei Mitgl. 093: 
Karsten Reierlein, Breierspfad 83, 4600 Dortmund-Wambel, Tel. 0231/513027 


e 7 - 1981 - Copyrigf”1981 - Fertigstellung: 22-08-1981 _- Versand: zweite 
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Fehlerbeschreib - HP-41ov_- Nr. 213351171 


Nach Memory-Lost und SIZE 015 begann ich, ein Programm mit etwa 1600 Bytes 
einzugeben. Ungefähr 1200 Byte waren belegt, als der Rechner PACKING und 
TRY AGAIN ausführte. Danach startete ich die bereits vollständigen Unter- 
programme. Der Rechner stoppte mit NONEXISTENT (Programmodus: XEQ 31). 
LBL 31 war verschwunden, an dessen Stelle und in den folgenden 53 Pro- 

grammzeilen stand nun LBL 07 ???!!! Diese Zeilen ließen sich nicht 1ö- 
schen. Ich schrieb das Programm auf Karten und führte wieder MEMORY-LOST 

und SIZE 000 aus. 

Seitdem steht danach im Programmodus nicht mehr 00 REG 319, sondern mır 

00 REG 198, Peter Kark (467) 


Anmerkung hierzu: Peter schrieb weiterhin, auch tagelanges Herausnehnen 
der Batterien führt zu keinem Erfolg. Wenn dem wirklich so ist, glaube 
ich fast, daß es eich hier um einen hardwaremäßigen Fehler handelt. Denn 
schließlich geht bei MEMORY-LOST, zumindest aber bei tagelangem Heraus- 
nehmen der Batterien, der gesamte RAM-Inhalt verloren. Selbst wenn Peter 
unbemerkt ein END mit o.g. Wirkung erzeugt haben sollte, es müßte dann 
doch auch verlorengehen, Oder ? Hat jemand ähnliche Erfahrungen 
Oliver (1 


... möchte ich noch ein Prgr. einreichen, das zuerst die CAT3-Übersicht 
und anschließend die HEXCODE-Tabelle auflistet bis .„.!?? 

LBL"AB" RCLe STOd END 

Beim ersten mal wird gestartet mit 753201 ASTO X STO e XEQ"AB" und, wenn 
der Cursor steht, immer R/S drücken, Ias Programm kann mit dem Einschal- 
ten des PRWM-Modus beim Stillstand des Cursors angehalten werden und die 
in der Anzeige stehenden Befehle mit dem Drucker im TRACE-Modus aufgelis- 


tet, Burghard Schatz (305) 
CLUBBÖRSE CLUBBÖRSE (dreimal in dieser Ausgabe !) 


Suche PPC-ROM ! Ulrich Schwaderlap (438) Tel. 02304/40943 

Suche PPC-ROM I Otfried Werner (314) Teil. 0611/728322 

Suche PPC-ROM ! Christian Paschek (385) Tel. 07121/37860 

Suche PPC-ROM ! Miloslav Folprecht (345) Tel. 0621/892494 

Suche defekten HP-41c I! Miloslav Folprecht (345) Tel. 0621/892494 

Suche Mitglieder, die bereit sind, versch. Graphicen auf dem HP-Drucker 
zu erstellen. Barvergütung. Andreas Roemer, Eckenheimer Landstr. 3, 
6000 Frankfurt / M. 

WER schreibt mir ein TI-59 Programn für den 41c um ?? Programmlisting und 
Genehmigung des Autors vorhanden. Siegfried Ludwig, 4690 Herne 1, Stam- 
straße 41, Tel. 02323/53662 

Gibt es HP=41/67/97 Anwender aus dem graphischen Gewerbe oder aue dem Ver- 
lagsgewerbe, die an Meimungs- und Informationsaustausch interessiert sind ? 
Bitte schreibt mir ! Siegfried Ludwig, Stammstr. 41, 4690 Herne 1 

Suche PPC-ROM ! Alberto Lenz (551), Nordstr. 23, CH-8006 Zürich 


Wir suchen nebenberuflichen Seminarleiter für den HP-41 im Raum Müin- 
chen I Corvallıs Team GmbH, Ortwin Rave, Postfach 1125, 6382 Friedrichs- 
dorf 1, Tel. 06172/79551 


Wir suchen zu sofort EEE Systemingenieur für HP-41 Produkt- 
und Softwarebetrewung hauptberuflich ! Corvallis Team GmbH, Ortwin Rave, 
Postfach 1125, 6382 Friedrichsdorf, Tel. 06172/79551 


Verkaufe HP-41c mit drei Memorye (SDM) & Handbuch für 580,--DM. 
Manfred Mickoteit (241), Am alten Rospital 9, 5400 Koblenz, Tel. 0261/30259 


BYCSHZERECKE 


d.c. wickes "Synthetic Programming on the HP-41c" 

PR. Schueny "Taschenrechner und Microcomputerjahrbuch 1981" 
Gloistehn "Programmieren von Taschenrechnern" 

27? "EDV für Schulen, Bd. 1+2" 

R, Eckert "Die Programmierbaren von HP" (mit 2, Auflage über 41) 
W, Gariner "Die Zahlenspiele des Dr. Matrix" 

“sardner " Das Verhexte Alphabet" 


"Rätsel und Nenksviele" 
" "Mathematik und Magie" 
j" "Mathematische Rätsel und Spiele" 
” "Noch mehr mathematische Rätsel und Spiele" 


Bild der Wissenschaft: Mathematisches Kabinett, Jahrgänge 1972-1980 


rirmirnsammlungen und Lösungsbücher: 

Statistik, Geometrie, Spiele, Kalender, Maschinenbau, Chemie, Games-Pac 1 für 
%+-57/37, Games Fac 1 für HP-41, Network-Analyse-Pac (nur zur Einsichtnahme), 
Irmes-"zc (nur zur Einsichtnahme} 


für TI:  Lab-Cherisrtry-Lösungsbuch für TI-58/59 


vor. „neeren Mitglied Karlheinz Kraus (516) : 


K. Fraus "ber Einsatz programmierbarer Taschenrechner in der Arbeitsvor- 
bereitung " 
n "Arstellen von Planzeiten über Regressicnsrechnungen mittels pro- 
sgrammierbarer Taschenrechner, Teil 1--bis 4" 
2 "Maschinelle Kenngrößenberechmung von Arbeitsstudien und deren 
Genanigkeitsbeurteilung, Teil 1 bis 4" 
” "Tprogrammpaket HP-67/97 für Arbeitsvorbereitung AV2" 


on ausleihhedingungen tritt eine wichtige Neuerung ab sofort in Kraft: 

; die gewünschten Bücher nicht persönlich abgeholt, sondern per Post ange- 
“, so brzuch in Zukunft keine Versandtasche mehr der Anforderung beigefügt 
.. Lie Yosten für 100 Versandtaschen wurden vom Club übernommen, Bei der 


‚r Adressaufkleber verwendet wird, so daß die Versandtasche durch iiberkleben eines 
isrun &öressaufklebers mehrmals benutzt werden kann. 


N.ch wie vor ist einer Anforderung auf dem Postwege unbedingt beizufügen ; 
i,%c WA in Eriefmarken, Name und Adresse, Mitgliedsnummer. Fehlt eine_dieser drei 
sachen, so kann ein ÄAusleihwunsch leider nicht berücksichtigt werden !!! 


Piterhin können in Zukunft keine Vorbestellungen berücksichtigt werden, da die 
cher in der Reihenfolge des Eintreffens der Anforderungen verschickt werden. 


ws 


Unzer zesenderer Dank gilt all jenen, die Bücher oder Photokopien gespendet und 
zit Prt und Tat zur Seite gestanden haben. Auch möchten wir uns hiermit bei all 
ioner bedanken und ihnen hiermit ein verschärftes Lob aussprechen, die bis jetzt 
Bicher ausgrlichen haben | Die Ausleiher sind überdurchachnittlich vorsichtig mit 
den Eickern ungegangen, so daß es bis jetzt keine Aurfälle gegeben hat. 


Wer spendet noch ein Buch ?? Alle guten Wünsche Frank (117) und Oliver (1) 


rn de= 12, “ztcber 1981 din ich bis auf weiteres telefonisch nicht mehr zu errei- 
eren. Sie Ülubanschrift bleibt aper nach sie vor Postfach 373, 2420 Butin. Ich 


bitte “aher, 2b 19.10.81 aile Korrespondenz mit mir schriftlich zu erledigen ! 
oliver (1) 


Ausblick 82 


Ale vor einen Jahr der Artikel "Ausblick 81" erschien, standen grundlegende Änderungen 
bevor. Ältere Mitglieder werden sich noch daran erinnern ... und feststellen, daß unse- 
re damaligen Erwartungen eher noch übertroffen wurden. Doch darum soll es in diesem de- 
richt nicht gehen, sondern vielmehr um das, was im nächsten Jahr kommt. Die nachfolgen- 
den Ankündigungen sind jedoch noch nicht endgültig entschieden, so daß ich auf die Un- 
verbindlichkeit der genannten Überlegungen verweisen muß, 


Durch ein freundliches Angebot von Rolf Hansmann (500) wird für 1982 folgendes vorgese- 
hen: Die Clubinformationen werden auch 1982 beibehalten; das Thema beschränkt sich wei- 
terhin auf den HP-41. Trotz aller Preiserhöhungen wird der Preis Je Ausgabe 5,--D4 be- 
tragen, wie 1981 auch schon, Nur erscheinen 1982 nicht acht Ausgaben, wie dieses Jahr, 
sondern ZWÖLF. Hierbei darf natürlich nicht übersehen werden, daß der Clubbeitrag kei- 
neswegs ausschließlich für die Infos entrichtet wird. Alle sonstigen Clublristungen 

sind darin bereits voll enthalten, Ob die Infos als geleimte Lose-Blatt-Sarılung oder 

als geheftete Zeitschrift erscheinen steht noch nicht fest, Wenn machbar, soll die erste 
Möglichkeit gewählt werden. 

Völlig sicher ist dagegen, daß die Infos nicht als "Mlig-Drucke" wie bisher erscheinen. 
Vielmehr werden sie gesetzt (d.h. ähnlich Tageszeitungen oder Bücher !), was zwar deut- 
lich höhere Kosten mit sich bringt, dafür aber auch zwei bis viermal soviel Informatio- 
nen auf gleichem Raum unterbringt. Das Format wird DIN A4 bleiben, Die mit der Fotosatz- 
maschine von Rolf (500) erstellten Infos werden dann Offsett gedruckt, was -u einer we- 
sentlich besseren Druckqualität (wie Bücher !) führt. 

Die so zwölfmal Jährlich erscheinenden Infos werden per Postvertriebsstäck der als Streif- 
bandzeitung verschickt. Damit brauch uns die Gebührenerhöhung für Drucksac!:en/Büchersendun- 
gen nicht mehr zu interessieren. 

Allein durch die Portoersparnis finanzieren wir dann mind. eine ganze Ausgi.c ! Die Frage, 
wieviel Seiten die Infos dann wohl umfassen werden, vermag ich aber nicht .ı: sagen. Das 
hängt nämlich weitgehend mit der Aktivität der Mitglieder zusammen. 

Die Beiträge sollen Anfang Januar erstattet werden, damit bereits zum Jahre::nfang große 
Papiermengen eingekauft werden können, um einen günstigeren Seitenpreis zu :rhalten, Au- 
Berdem ist die Zahlungsmoral der Mitglieder auch nicht sonderlich berauschen! .... 


Der Beitrag von 60,--DM p.a. gilt für alle inländischen Mitglieder, Der Zuschlag für Aus- 
länder hängt von den Portomehrkosten ab, die wir noch erfragen müssen, Der Fetrag sollte 
zwischen dem 1. und 16. Jamuar 1982 bezahlt werden, da unter allen in dieser Zeit einge- 
henden Überweisungen als besonderer Anreiz zum pünktlichen Bezahlen zwei Yocdıle für den 
41 noch eigener Wahl verlost werden. Ein Überweisungsvordruck für Postscheck- und Bank- 
konten, die auch zur Bareinzahlung verwendbar sind, kommt mit dem Dezemberin’c. Wer einen 
Gutschein besitzt, kann diesen mit dem Beitrag verrechnen und zusammen mit einem Scheck 
über den Differenzbetrag einsenden. Ein besonderer Service gilt für Studenten etc., die 
meinen, ihr Bankkonto hält solche Belastung zum Jahresanfang nicht aus: Der Beitrag kann 
auch per V-Scheck entrichtet werden an Oliver (1). Auf dem Scheck ist deutiich die Mit- 
gliedsnumer zu vermerken. Der Vorteil liegt darin, daß diese Schechs dann erst zum 1.1.32 
eingelöst werden, trotzdem aber an o.g. Verlosung teilnehmen ! Aber bitte: 's sende nur 
einen Scheck, wer das Geld nicht Anfang Jamuar auf dem Konto hat ! Bitte jexrt keines- 
falls im voraus bezahlen ! Unbedingt die Vordrucke im Dezemberinfo abwarter 


Alle anderen Clubleistungen, ob nun Clubbibliothek, Magnetkartenbibliothek 
oder Clubtreffen, bleiben bestehen und werden weiter ausgebaut. Neuen Unter 
fangen steht nichts im Wege. 

Auch soll der Club für kommerzielle HP-41 Nutzer interessanter werdens Die 
letzte Seite der Clubinfos soll Firmen für Werbezwecke zur Verfügung ste- 
hen. Aber wie gesagt: Nur die letzte Seite ! Für das Jamarinfo ist ferner 
die Vorstellung aller professionellen Software für den HP-41, die in der 
Bundesrepublik erhältlich ist, geplant: Marktübersicht Software ! Auch 
sollen Testberichte und Neuvorstellungen der kommenden Peripherieeinhei- 
ten größeren Raum als bisher einnehmen. Ab Januar 82 sollen ferner alle 
Programme, die in prisma erscheinen, auch in Strichcodes abgedruckt wer- 
den. Dies wird duech die freundlicherweise von HP Frankfurt zur Verfügung 
gestellte Anlage ermöglicht, die Strichcodes direkt aus den Yagnetkarten 
des HP-41 erstellt. Und „. Und ... und &&klk euer oliver (1) 


iiebe Clubmitgiieder! 

Wie Ihr vielleicht im letzten Info gelesen habt, WYrue ich 

mich sb jetzt ir unserem Club als "Projektleiter sNlathematik” 

betätigen. Um mir diese ärbeit etwas zu erleichtern, möchte 

ich Zach bitter, nach Möglichkeit folgenae Punkte zu beachten: 

1. Bitte legt aılen Programmen ein gedrucktes oder getipptes 
iisting bei. 

2. Wer seine Programme, falls sie nicht veröffentlicht werden, 
wiederbaben will, der lege titte Rückporto bei. 

%3, Wer air einen ganz großen Gefallen tun will, füge beschrie- 
bene Magnstkarten bei(In diesem Fall das Rückporto nicht 
vergessen'!). 


„usonsten freue Ich mich auf eure rost. Falls jemaud Imteresse 
an einem Mathe-Lösungsbuch hat, sollte er wir mal schreiben, 
welche Programme er gern darir vorfinden und was Jafür anzu- 
legen(grobe Preisvorstellung) er bereit wäre. 


ach diesem Gelabere möchte ich nun endlich in media res gehen 

“ad Euch die nachfolgenden Frogramme atwas näher bringen: 

:) VEKTUR werden wohl hauptsächlich die streesgeplagter Schü- 
ler benutzen, um sich folgende Berechnungen durchführen zu 
lassen: r) Einheitavektor '. vg 

2) Betrag eines Vextore /V/ 
3) a) Kreuzprodukt V1XV2 
b) Spatprodukt SPAT 
ce) Skalarprodukt V1xV2 
a Vektoraddition Y1+V2 
5) Vektorsubtraktion V1-V2 
6) Volumen eines Vierflachs 4FLACH 
7) Winkel zwischen zwei Vektoren vi Yo 
8) Koordinatentransformation 
a) rolar-Kartesisch ?-& 
b) aartesisch-tFolar C-P 

X} „aoch’n rFi-rrogramm 

Yur „eute, die es eilig haben, denen aber F, Hiliebrar.ü's rro- 

{Temt “u lang war. Schr zu begrüßen ist das bei.iegente rro- 

raum "T", das eine recht vernunftige Schätzung der !!öc:ı.stirechen- 

„1% liefert{Die Buhl in Zeile 160 kann je nach Moweli e\wes 

„"rıierenk 

. ‚„\sichungen 4. »rades 

Zanlı Ban Zwer such nit dem KHatne-kodul ırogranm "Full" berech- 

ren, aber dabei wirc eine Iteratior verwandt, deren Reczlenzei’er 

‚inen mitunter r.icht gerade vom Hocker hauen, wovhingexer das 

"visende ırogramm die Lösung direkt berechne. 


“an nuch eine Ikizze zu VEKTUK-rFrogrammifür weitere Fo:mein 
.E, fehlt mir ver tiatz): 


®: Mi RCL 21 
j IMPT: 112» 

DieLeL -vEK_ - Siem Ge. 113 - 

‚TOR? 80 net! 6 HER DI: : 114 REL 91 
82+1.BL "INP: 115 XI>Y 

UI. 0" ‚116 ST0 ei 
03+LB4. 87... 117 RDN 
94 “NTXTYTZ. 118 Rct 20 

- 3 119 ® 
85 PROMPT 1208 RCL 08 
86 %<> 7 ı21 RCL 21 
87 R<>YV 122 * 

88 x<> 2 123 -— 
89 K<>Y 124 CHS 
18+LBL a 1253 RCL 08 
11 SF 05 126 xX<>Y 
12 STO 23 127 STO 88 
13 RDHN 128 RDH 
14 %<> 23 129 RCL 19 
15 3 139 « 
16 * 131 RCL 02 
17 %<> 23 132 RCL 28 
18 STO IND 72 xEQ 01 133 
23 73 RCL 22 134 — 
19 xEO 81 74 STO 23 135 CHS 
28 RDN 75 RDN 136 STO 82 
21 STO IND 76 RCL IND 137 RCL 91 

23 23 138 RCL 8 
22 XEQ 81 77?’ RT 139 RTN 
23 RDN 78 * 148+LBL “Vi- 
24 STO IND 79 XEQ 81 v2- 

23 88 Rt 141 SF 68 
25 CF 65 gl * 142+LBl "Vir 
26 STOP 82 + w2- 

27 GTO 97? 83 KXEQ 91 143 SEQ 86 
28+-LBL "vB 84 Rt 144 STO 22 
29 N“ 85 * t45 RDN 

38 PROMPT 86 + 146 XE@ 89 
31 sTo 22 87 RTN 147 RCL IND 
32 XEQ@ 98 88+LBL "vixX 23 

33 1% v2“ 148 FS? 88 
34 STO 21 89 XEQ 86 149 CHS 

35 RCL 22 98°-LBL 04 158 STO 88 
36 xXER 89 91 STO 22 151 XxEQ 81 
37 2 92 RDN 1932 FS? 88 
38 + 93 XEQ 83 153 CHS 

39 STO 23 94 RCL IND 154 STO 81 
48 RCL IND 23 155 XEQ 01 

23 95 STO ı9 1356 FS?C 88 
41 RcL 21 96 xEQa 91 157 CHS 
42% 97 $STO 28 158 STO 82 
43 XEQ 82 98 XEO 601 139 RCL 22 
44 RCL IND 993 8TO 2ı 168 xE@ 89 

23 188 RCcL 22 161 RCL IND 
45 RCL 21 181 XEQ@ 89 23 
46 % 182 RCL IND 162 ST+ @8 
47 EG 82 23 163 XEQ 61 
48 RCL IND 183 S5T0 92 164 ST+ @1 

23 184 xEQ 01 165 xEO ©1 
49 RCL | 5 
5a + 
S1.RTN 
SLILBL: 


T- 228 STO ®ı : | 
172+LBL 85 229 STO 82 | 

173 -NItTNZ2TN 238 RDN ! 
3- 231 Cos 2 j 
174 PROMPT 232 ST« 08 & 

175 x<> 2 233 LASTX € 

176 STO 18 234 SIN S 
177 RDN 235 ST= 01 5 
178 XEQ 84 236 RDN 8 

179 RCL 18 237 RDN > 

188 @ 238 SIN 3 

181 GTO 983 239 ST« 88 

182-L8L "4FL 248 ST« 91 &| 
ACH“ 241 LASTX zj 

183 xEQ 05 242 COS FE 

ı84 6 243 ST= 82 3 

183 7 244 RCL 82 8] 

186 RTN 245 RCL 01 ra 
187+LBL "<< V 246 RCL 88 | 12; 

ı v2” 247 RTH 5 

1988 XEQ 86 248eLBL 01 

189 STO 18 249 1 

198 xX<>Y 258 ST+ 23 

i91 6TO 19 251 RDN 

192 xEQ 83 252 FS? 85 

193 STO 88 253 RTN 

194 RCL 18 254 RCL IND 

195 xEQ 08 23 

196 ST/ 08 255 RTN 

197 RCL 19 256+LBL 02 

198 XEQ 08 257 ı 

1939 ST/ 98 258 ST- 23 

2088 RCL 88 259 RDN 

281 ACOS 268 RTN 

282 RTN 261+LBL 986 

283+_LBL ”C-P 262 "NItTN2- 

- 263 PROMPT 

284 N” 264 X<>Y 

285 PROMPT 265 RTN 

286 STO 18 266*LBL 89 

287 xEn Be 267 3 

288 STO 88 268 * 

289 RCL 18 269 STO 23 

218 xXEQ 89 278 .END. 

211 RCL IND 

23 STATUS. 

21? xEo@ 81 SIZE= 824 

213 X<>Y 8 

214 7 [34 es 

215 ATAN FIX 2 


216 STO 281 
217 xEQ 01 
218 RCL 88 


219 7 5 w 
228 ACOS E 
221 RCL 01 = 
222 RCL 88 $ 
223 RTN 


224+LBL "P-C 


225 -PHITOTR 
wi Def; 2! 


Folgende MErielaufgaven sind zu lösen: 
1) Die Richtung .einer Ebene ist gegeben durch die Vektoren 
5 -7 
“=/ 3| una bef; ; 
-1 4 
Berechnen Sie den Lotvektor der Ebene und Überprüfen sie 
das Ergebnie indes Sie 
a) das Skalarprodukt von jedem der Ausgangsvektoren nit dem 
Lotvektor bilden (=0), 


db) die Winkel zwischen dem Lotvektor und den beiden Aus 
gangevektoren bestimmen. 


2) Wie lang ist der Lotvektor aus 1)? 
3) Wie lautet der Einheitsvektor des Lotvektors aus1)? 
4) Bestimmen Sie die Winkel fund? den Vektors 


7 1 Überprüfen Sie das Ergebnia mit der Funktion 4 V! V2 


5) Bin Vierflach ist gegeben durch die Punkte 
», (1/2/0), P, (2/3/1), P3 (1/5/3), pP, (1/2/% 


Berechnen Sie das VoluMen. 
6) Eine Auen ist gegeben durch 


ee 
» + -2 + 3 

3 ae -16 
eine Gerade ist gegeben durch 


ve) 


Bestimmen ‘ie den Schnittounkt. 


Das -rogramn: 

Das Programm ist so aufgebaut, daß jede Funktion einer -asıe 
zugeordnet ist, (vgl. USER KEYS) und durch Drücken dieser 

Taste aufgerufen wird. Der oder die Vektoren müssen vorher über 

die Funktion INPUT eingegeben werden, es können bis zu fünf 
Vektoren gleichzeitig im Rechner gespeichert werden. Die Zingabe 
erfolgt in der Form NfX/Y/Z, wobei N die Nurmer des Yektors ist 

und X,Y,Z die enteprechneden Koordinaten sind. 

Um Vektoren, die als Zwischenergebnisse abgespeichert werden sclien 
einzugegeh, gibt man die laufende Nummer des Vektora ein ;nd drückt 
Fünrt nar eine arithmetischen Funktion, (nicht INPUT: aus, “ragt 
der Pachner nach der oder den Nummer der Vektoren und führt sie 
aus. Anschließend enthalten die Stackregister die entsprechenden 
Koordinaten, X in X, in Y, und Z in 2, 


Lösungen der Beispielaufgaben: 


L “An. 
h 2.88 ’ San LH KER IV? 
ER Wi?” 12,3 KItN2 
Kirn? 2,00 ENTER 
2.0 EIER xEQ INPUT“ Le RUN 
u KrutitZ 2,00 NEO a 
Ba 0m 3,08 ENTER? 
& i Prajl io von „ | 3,88 ENTERE na YI-Vz- 
xEO cv“ PS | 1,88 ENTERt Mim2 
MAL y- Ebene ee KM 3,08 ENTER+ 
1.09 DNIER xEB "INPUT LOB RUN 
3.0 mainz 3,0 30a 
au m 4,08 ENTER? 
Bihse | 180 EMER? RED "VI-Y2" 
weg srl ve ai 0.08 EITERI- nit 
HN? 00 RM. 4,60 ENTER? 
2.00 ENTER? ER “VI Ve LED KON 
1.0 RM RirW2 4.09 WER 2 
RR m 3,00 ENTER? 
2) m Mm NER "4FLACH- 
N EB *W- 1.3 m AIKZHR 
0) 2,08 ENTER? 
20 MM 3.88 ENTER? 
kiRE u Bu 48 RUE 
(0) | PL 
xEO "va 


3,00 RUN 
opel 


ante 


Weung WE. Aufgabe; 
Duroh Gleichsetzen entsteht folgendes Gleichungssystem: 


/3\ ..[- 6 2) I! 
TI +As| 1 = Bleu! »n;| > 
\9 -5 ale aa EST 


Daraus folgt 
[3 6 
7 I. 3| - 
sr 
=)» A $ x 
XEO "IHPUT- 
j MiKeYtZ 
€.) 3,08 ENTERT 
-1:88 ENTER? 
xE0 -IMUT- a Durch Einefzn. vom 
nixtrtZ Yen iur: 
1,08 ENTER? Re J 0,08 In de 
= ENTER? 4,08 ENTER? jede uch 
‚00 DITER? 6.88 ENTER* 
9 mM -1,80 ENTER? 
xEQ "INPUT 0 Rn 2,51 
Mritytz 4: [2/8 
2:08 ENTER? 1ER "SPAT- 59 
3,08 ENTER? ae Do Scheu Haan bet 


RUN B 
: Zhlar- a ® 
ne et las] 


GLEICHUNGEN 4 GRABES 


Das Programm löst algebraisch die QOleichung 
nit 2,b,0,d,0 «Rn 
x eR und a»sC 


Das 


X HdR rc +drte=D 


Programn berechnet alle Lösungen (vier) incl. konplexe 


der Gleichung. Es sind weiterhin Gleichungen 2. und 3. Gra- 


des 


mit dem Programm zu berechnen, Die entsprechenden Glei- 


chungen nüssen dann mit x° bzw. x multipliziert werden. Die 
lösungen (050) bzw. (0) sind nicht zu berücksichtigen. 
Es werden neun Speicher benötigt (3IZE 009). 


Eingabe der Koeffizienten 


Schritt Instruktionen 
u) Start 
r 
2 n 
4 1 
5 n 
& n 
7? Anzeige der 1. 
& Anzeige ler 2. 
9 Anzeige der 3, 
0 Anzeige der 4, 
ug weiter bei 7? 

2 FIX 9 
"eispiele 


Krrx xt 0x1, 5:0 


x?-8x°419x-12=0 


nit 


mit 


Lösung 
Lösung 
Lösung 
Lösung 


a=1 

b=1 
c=-6,25 
d=-0,25 
e=1,5 


8=1 
b=2-8 
c=19 
d=-12 
e=0 


Eingabe 
XEQ " ROOT ” 
a R/8B 

b R/S 


omo 
Z 
[e7} 


Anzeige 
a=? 
b=? 
c=? 
d«? 
es? 


X1=... 
Xde..e 
X3=,... 
Xu=... 
Xle... 
Realtei. 
Inagin@rcsl. 


nicht zu :=- 


rückz,. 


v1 
02 


LBL'ROGT" 


"gar" 

PROMPT 
STO 03 
0 02 


RCL 06 


Las 


STO 9& 
X<>Y 

ST- 08 
ST- 07 


101 LAL X 
102 SGAT 
103 20+ 05 
104 ChS 


109 ENTER? 
110 SIGN 
911 X<>Y 
412 ABS 
113 3 

14 1/X 
115 1% 
116 x 

117 RCL 05 
118 SISN 
719 RCi. 05 
120 AB£ 
121 3 

122 1/X 
123 Yfi 
124 x 

125 + 

126 LBL 02 
127 RCL 06 
128 - 

129 Sit u? 
130 2 

131 / 

7132 STı ü& 
133 ENIuR/? 
134 KA 
135 RCI 3% 


201 
202 
203 
204 


GTO 63 
LBL 04 
STU 04 
RCL IND 0% 


2 

/ 

ı?2 
I8SG O4 
i«>X 
RCL IND 04 
DSE 04 
X<>X 
{6} 

X<>Y 
X>0? 
GTO 05 
ABS 
SQRT 
I<>Y 
LBL 05 
SQRT 
Fö? 05 
GTO 06 
CH& 
X<)Y 
CHS 
X<>Y 
LBL 06 
RCL IND 04 


in Prinzahiprograns--mal wieder I 


Zuera“ waren es die Size-Rautinen, 
aooch prisma retten konnte, Jetaß : 
In der Nethode eind sie überwie 
in der Teiler berechnet werden, 
oder 5 teilbar sind. Lediglich dei 
verwendet sine ere Methode, und 
:ängste der veröffentlichten Progkäuns. 

Der Grund für das große Interssäa.äf solchen Routinen dürfte der se: 
ebenso wie bei Biz6 1äßt sich sWaR. immer eine Information aus dem 
Programalauf heraussiehen, aber, sr. Zeitaufwand läßt sich nicht 

vom Anwender bestimsen, weil er nur Yon der eingegetarnen Zen! ab- 
hängt. ; 

Das folgende Programm ist nach Vorschlägen von F. Hilsebrandt 

und eigenen Ideen aus dem elslieı 1 6 ann von (U. Davertzanofer 
and mir hervorgegangen. Im Beispiel 1 003 benötigt dieses 
Programa mit ca. 40 sec. (vorm. 1 min. 10 sec.) etwa 42 3 weniger 
Zeit, und geht auch mit den Bytee sparsamer um. Wird eine O ein- 
gegeben, folgt keine Endälosachifife, sondern ein DATA ERROR, ebeasc 
bei negativen oder gebrochenen Zingaben. BIZE 006, 200 Bytes. 

Noch ein Hinweis: Die Schleife feizt zur Verwendung eines Inter- 
progranns, was aber für den Geschwindigkeitsvorteil absolut tüdlic« 
ist, und außerdem kaum mehr ale 2 oder 3 Register beschert, 

Die Eingabe einer Zahl erfolgt Über XEQ"PRF"” oder XEQ"A”, die Aus- 
gabe der Teiler mit R/B, bis die Meldung ENDE erscheint. 

Das Prograna T E einen ziemlich genauen Hinweis auf die Laufzei-: 
Für Zahlen um 107 10 weniger ald 1 Std. 5 min. 


vor denen sicn weder Key-Notes' 
pda oa die Primzahlprograauze. 
tleicht Eine große Schleife, 
kbrarpeite nicht durch 2,3 
Spramm von P.Hillebrandt 
B:ist das schnellste und auch 


ro 
[6 ) 
a‘ 
n 
| =) 
: E u & 
P i- _ 
z# 35. Le a: & | "g 
“: eg 84,8 Er i® Ralf Pfeifer 
© =.» ®= .%>% . > Ruibe 5 
se: Sgse sön-gg>8 Te 38 5000 K.in-5o 
“2,00 &, Pr as, . Tel, 35 20 3% uch 
g8: ?55. g: ES B_ : z’E ACHTUNG : Die Zateu die‘ T 
ge s_ E S5. zzuEss ne berechhef, wercieu inder glewh: 
Fon wie ums Ausgegeben ! 
= 5& 8” - „® 
bar! . _ £z E : Ss Be 56.237 
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STAR TREK 


Dieses Programm basiert auf dem Programm MONDLANDUNG 
von Oliver Rietschel, 


Das Programm simuliert die Landung des Raumschiffes 
ENTERPRISE auf einem beliebigen Planeten, Der Spieler 
wird aufgefordert, die Kontrolle Über das Raumschiff 
zu übernehmen. Seine Aufgabe ist es, das Schiff so 
weich wie möglich auf dem Planeten zu landen, sekundär 
dabei so wenig Treibstoff wie möglich zu verbrauchen. 
Er befindet sich in einer Höhe von 500 Metern, die 
Fallgeschwindigkeit beträgt -50 m/s, der Treibstoff- 
vorrat besteht aus 50 Einheiten. Durch die Eingabe 
von Treibstoff wird ein Bremsschub ausgelöst, der die 
Fallgeschwindigkeit senkt, bzw. die Steiggeschwindir- 
keit erhöht. Die Eingabe von Treibstoffeinheiten ist 
nur möglich, wenn der Count Down Null erreicht hat, 
Für die Eingabe bleibt eine Sekunde Zeit bis zur 
Zundung. Man ist allerdings nicht gezwungen eine 
Eingabeauszuführen. Sollte dabei aber die Geschwin- 
digkeit zu gross werden, verglüht das Raumschiff. Der 


Pilot wird rechtzeitig durch die Anzeige '"** DANGER **" 


darauf hingewiesen, Das gleiche gilt, wenn der Treib- 
stoffvorrat in einen kritischen Bereich sinkt. 


Das Spiel ist weiterhin so aufgebaut, dass der Rechner 
bei jeder erfolgreichen Landung den nach der Landung 
verbliebenen Treibstoffrest mit dem besten Wert aus 
den vorhergehenden Spielen vergleicht und gegebenen- 
falls die gerade erfolgte Landung als die bisher 

Beste ausweist. Der Rechner zeigt ebenfalls die 

Anzahl der bisher erfolgten Spiele an. 


Das Display hat folgendes Format: 
XXX YY ZZ T 
XXX = Flughöhe 


YY = Fallgeschwindigkeit 
Z2 s Treibstoffvorrat 
T = Count Down: 93-2 - 1-0 


Spielende : E 
Meldungen bei einer Landung: 


TOUCH DOWN : weiche Landung 

CRASH DOWN : Bruchlandung 

BURNT DOWN : Verglühen des Raumschiffes 
PILOT DOWN : Eingabefehler des Piloten 
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ar CF 29 
94 599 
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24 PSE 
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26 RCL 91 
27’ nBS 
28 56 
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XEQR 18 
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PSE 
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ASTO 94 
ENTER" 
ASTO 85 
"PRISE" 
ASTO 86 
"STAR 


"9" 
AVTENW 
51 PSE 
52®eLBL 22 


Harald M. Krumins (13) 
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CLUBBÖRSE 


RCL 02 

R<>Y 

X>T? 

GTO 86 

xx? 

GSTO @6 
TISNIT 


083 


191 
1a2°LBL 983 
183 xER 99 
184 ERASH" 
185 GTO 95 
196+LBL 94 


Clubmitglieder können in der Clubbörse kostenlos Gelegenheitsanzeigen aufgeben ! 


1a7 xENn 59 


RURNT" 


ın 


AVIEW 

Pit 
? FSE 
RB HKED OR 
3 PSF 
128 1 
ST+ ae 
"GAME 
ARCI 98 
"HH OYVER" 
ARVIEW 
PSF. 
127 GTN "AE” 
128+LBL 06 
129 XEn aa 
138 " FILNT" 
131 GTO 95 
132+LBL 07? 
1733 "sm DANG 
ER m" 
134 AVIEW 
135 FSE 
136 RTN 
137+LBL 98 
138 "WITH 
139 ARCL 987 
148 "+ BEST" 
141 AVIEN 
142 FSE 
14? RTN 
144 + LRL 
145 cuUa 
146 ARCL 05 
147 ARCL 98& 
148 AVIEN 
149 PSE 
158 RTN 
151+LBL 
152 cıa 
153 ARCL 
154 ARCL 
155 ARTCL 
156 ARCI. 
157 ARCL 
158 ARCL 
159 END 
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ea 


10 


88 
es 
9 
op 
e2 
84 


Gegen 2,--iM Unkostenerstattung verleihe ich das Buch "Computer Chinesisch" von H.G.Klaus an Mitglieder. 


Michael Kirchner (421), Goethestr. 29, 3200 Hildesheim 


HP-41 Simulator für HP-1000: Das Prgr. läuft unter RTEIV/IVb, bietet alle 41-Funktionen und noch ein paar 
mehr und gibt ein komplettes Bild der Speicher etc. Ich stelle das Prgr. auf Band (HP-Minicartridge) oder 


Floppy-diek (8.5 inch, 
Ernst Stelzer V (400), 


Suche Kontakt zu HP-B5 Bemitzer / Besitzer ! 


DD, DS) oder als Listing zur Verfügung. 
Gerhart-Hauptmann-Ring 127, 6000 Frankfurt/M. 50, Tel. 0611/575556 


Detlev Bock (002), Petrikirchstr. 36, 3400 GbBttingen, Tel 0551/33221 


Moderne Taschenrechner- und Mathomatik-Literatur, fast 70 Titel, neuwertig, mit 66,6 % unter Ladenpreis zu 
verkaufen. Verzeichnis anfordern nit 1,--DM frankiertem, adressierten Umschlag und 1,--IM in Briefmarken als 
Kostenbeitrag für Fotokopie des 3-seitigen Titel-Varzeichnis. 


Cerhard Siewert (052), Mozartstr. 14, 6450 Hanau 1 


Suche PPC-ROM zu kaufen ! 
Walter M. Schutz (242), Bahnhofstr. 43, CH-8702 Zollikon 


HP=-25, kompl. mit Handbuoh, PRGM-Samaıung, Netzladegerät, neuem Batteriesatz, Bestzusiund, 85,-- zu verkaufen 


ILP-67, wie vor, für 350,--IM zu verkaufen 
Gerhard Siewert (057), Mozartstr. 14, 6450 Hanau 1, Tel. 


Suahe PFC-NUM zu kuufen ! 


06181/B2464 


Gerhard Sohtinemann (472), Kırehfeda 11, 3584 Zwaaten, Tel. 05626/1458 


Suahe folgende Softwareı (1) Fluid Tyramios an Kydraulioa (00041-901359) 
(3) Thermal and Transport Science (cac41-15019) 


ditioning (00041-390140) - 
E,. Barohewitz, Wasaerwerkstr. 33, SRac Mannheim 31 
Hr=-41c & QUAI-R’M Sur VEB 650,--M zu verkaufen |! 
Olaf Pilling (268), Tel. 030/401547E 


(2) Heating,Ventilating and Con- 


O1L*+LBL "PZM areLPi "PpZM 
opil“ ensr! 
03 610 03 OF A 
083 GTO 85 
e4 GTO 96 64 ISG 93 a4 0 
ASeLBL 95 65 CTO 81 Prufziffernprogramm P?MODLL Sl”. 
86 "DIESES 66 GTO 082 R6 "ERHL 9 
PROGRAMM" 67*LBL 982 Wegen seiner zunehmenden Bedeutung soll nachfolgend 97 PPOMPT 
87 ACA 68 8992,099 die Form der Finpabesicherung durch eine Nummern- an sto al 
88 " ERRECH 81 prufung kurz erlautert werden. Durch Prufziffern v2 STO B2 
_“ 69 STO 93 werden vornehmlich Ordnunasbegriffe gegen Fehler bei 19 2,809 
e9 ACA 78 GTo 01 der Datenerfassung (Schreib - Lesefehler) abge- 11 STO 93 
18 "NET FVE 71eLBL 03 sichert. Die jeweils an den Ordnungsbegriff ange- 12+LBL Pi 
R JEDE E* 72 RCL 94 fügte Prüfziffer wird bei der Eingabe automatisch 13 RCL 02 
ıı acA ”3 ı1ı mit einer errechneten Prüfziffer verglichen. Bei Un- 14 ENTER? 
ı2 "INGEGEB 74 MOD gleichheit erfolgt eine Fehlermeldung. Die Prüf- ER aan 
wor 5 ı1 ziffer ist somit ein einstellines Zeichen, das an 2 Fo: 
13 aca GAN 76 xX<DV den Ordnungsbegriff angefügt wird, um diesen sich 18 
ke = 1 selbst prüfend zu gestalten. 19 INT 
ern ACA = x>r? In der Datenverarbeitung, vornehmlich in der EDV- 28 STD 82 
16 " ZAHL D 20 GTo 94 Organisation, sind verschiedene Prüfverfahren be- 21 109 
1E- 81 0 kannt, um solche Prüfziffern zu errechnen. Die ein- 22 
ı7 anca 82 X<>Y fachsten Verfahren bedienen sich der Quersummen- 23 - 
18 "PRUEFZI 83 GTO 84 rechnung, was selbstverständlich zur Folge hat, dass 24 RCL 3 
FFER NAC”T 84+LBL 84 Zahlenvertauschungen (Zahlendreher) nicht erkannt 25 INT 
ı9 aca 853 X<CDV werden. Anspruchsvollere Verfahren bedienen sich 26 * 4 
28 -H DEN M 86 STO 05 sogenannter Moduli. Der Sortierbegriff wird mit 27 Te 53 
0-" 87 FS? 55 einer bestimmten Zahlenfolge multipliziert, addiert = to eo 
ai AcA 88 GTO 19 und danach die Summe der Produkte durch den Modulus 3a 8 
e2 Be 11 89 Ei ie dividiert. Der sich dabei bildende Rest wird vom 31 ST- 03 
SSH Av Modulus subtrahiert und bildet die Prüfziffer. Die 32 cto oı 
24 "EN.* 92 "DIE PRU hierbei bekanntesten Verfahren sind die Modulo-10- 33+LBL 83 
25 AcA EFZIFFER* Verfahren, bzw. das am häufigsten Angewandte, das a4 RCL 94 
26 PRBUF 93 aca Modulo-11-Verfahren. Dieses Verfahren wird von allen 35 11 
27+LBL A 94 *- ZUR ZA bekannten Prüfgerätehersteller angewandt und ist in 36 MOD 
“ der Praxis sehr weit verbreitet, Beispielsweise 37 LASTX 
28 CLX HL 
29 CLRG 95 aca werden von diesem Verfahren folgende Fehler zu 100% 38 RcC>V 
398 CLA 96 RCL 81 erkannt: Schreibfehler, einfache, doppelte und 39 - 
31 FIX 8 97 ACK sonstige Drehfehler. sn ls 
32 FS? 55 98 = NACH D ? 
33 GTO 87 EM MODUL” Wie arbeitet nun das Modulo-lN1-Verfahren ? 42 GTO 84 
4 a 
34 GTO 5 99 den 1. Jede Stelle des Ordnugsbegriffes wird von rechts a NPser 
Seren a nach links mit 2,3,4,...9 multipliziert ASsldl. 64 
37? "BITTE 2 101 ACcA 2. Die so ermittelten Produkte werden addiert 46 »<rr 
AHL EING- 182 "FAHREN 3. Die Summe dieser Produkte wird durch 11 dividiert 47 STO 05 
38 ca IST: 4. Der verbleibende Rest wird von 11 subtrahiert, 48 "P-ZIFFE 
39 "EBEN: ”- 183 AcCA das Ergebnis ist die Prüfziffer = “ 
49 ACA 184 RCL 85 5, Bei langen Zanlen wiederholt sich die Gewichtung 49 FIX © 
41 PRBUF 185 ACKX 6, Bei Rest O und 1 ergibt sich ein zweistelliges 58 ARCL x 
42 STOP 186 ”.” Zeichen, die durch das Verfahren nicht verarbei- 51 AYTEN 
43+LBL 089 18? Aaca tet werden können, und in die Prüfziffer O umge- 55 eo A 
44 sTOo 01 108 PRBUF wandelt werden, der sich ergebende Fehler ist 5 in 
45 STO 82 189 GTON vernachlässigbar. ” 
46 8802,999 119°eLBL 986 
oi 111 "PRUEFZI Das beigefügte Programm wurde so aufgebaut, dass es mit oder ohne 
47 STO 93 FFERN PR“ Drucker angewendet werden kann. Ueber das Drucker-Anwesenheitsflag 
48+LBL a1 112 "FOGRAMM entscheidet das Programm selbstständig, ob gedruckt werden muss 
49 RCL 98 = oder nicht. 
SD ENTER? 113 AVIEN Hartmut Brücker (229) 
sı x=9? 114 GTO A Soweit die Programmbeschreibung von Hartmut Brücker. Ich habe 
52 GTO 93 115+LBL 08 
s3 1 Eı 6 "WELCHE dieses Programm von Oliver erhalten und soweit bearbeitet, dass es 
= 11 gB: abgedruckt! werden kann. Hartmut 1lAsst sich das Programm selbst 
54 / ZAHL? 
erklären, was es tut. Ich fasse dies als eine Art Programmdoku- 
55 INT 117 PROMPT 
Ss6 STn 92 118 GTO 99 mentation auf, die jedoch ein HP-45C-Programm nur unübersichtlich 
s?’ ı Ei 119 *LBL 1 macht. Im Übrigen. kann die Programmausführung mit oder ohne 
59%“ ı28 "P-ZIFFE Drucker auch einfacher erreicht werden über den AVIEW-Refehl. 
53 - R=* Dass die pesnnmten Datenspeicher, das X- und ALPHA-Register ne- 
68 RCL 83 121 ARCL % löscht werden ist nicht nötig, denn die Speicherinhalte werden 
61 INT 122 PVIENM durch eine neue Abspeicherung überschrieben. Als einziges Register 
62 “ 123 cro A muss das Datenregister 4 gelöscht werden, da darin nur aufsum- 
63 ST+ 94 124 END miert wird. Durch die generelle Löschung wird auch die letzte 


Abspeicherung der Prufzahl (Schritt 86) in das Repister 95 sinnlos, Am Anfang des Programms würde ich 
noch das Flag 29 löschen, denn zur Prüfzifferndarstellung wird der Punkt (oder das Komma) nicht be- 
nötigt. Dies ist jedoch eine rein optische Angelegenheit. 


In Schritt 46 und 68 müssen die Vornullen nicht geschrieben werden, 


da sie der Rechner bei der Programm- 


ausführung sowieso unterdrückt (kann Jeder im RUN-Modus selbst ausprobieren). Auch die Inkrement-Schritt- 
weite ßl muss nicht eingegeben werden, da der Rechner beim Fehlen dieser Angabe automatisch um 1 in- 

oder dekrementiert. 

Durcn eine geschicktere Abfrage des Flags 55 in der Programmzeile 32 könnten einige Bytes an Programm- 
speicherplatz gespart werden: FC? 55 ;, GTO 3 „ Das Label 97 und der vorherige Sprung (GTO 97) sind nun 
überflüssig geworden, Ebenso wird bei der Abfrage dee Flags 55 im Programmschritt 87 auf dieselbe Weise 
das Label 1% und der Sprung GTO 1@ überflüssig. 

In den Schritten 53 und 57 verwendet Hartmut die Zahl 1%, 
und verschenkt dadurch ein Byte im Programmspeicher, 

Das Label 92 in Schritt 67 ist nicht nötig, denn die Ausführungsreihenfolge der Befenle würde sowieso 
nacheinander ausrefürt werden, penau gleich, wie bel der Befenlsfolge CGTO 92 ; LBL @2 . Ebenso wird oei 
Schritt 83 das GTO %4 unnötig, Jedoch das darauffolpende Label 94 nicht, da es vom Schritt 89 aus 
angesprungen wird. In den Programmschritten 68 und 69 kann \as Register 83 mit 3 statt 6 Bytes wieder 
hergestellt werden: da darin der Wert i9,@89 stehen muss, wenn “:-r Rechner nier "vorbeikommt” kann 

8 ; ST- 83 poschrieben werden. Wenn man noch in Schritt 75 den Befsnal LASTX verwendet, ist schon wieder 
ein Byte gespart, Dieses Programm habe Ich ac vor 447 auf 12 Byten gekürzt (Varaleich linke - rechts). 


Huury Progamming 
28 


schreibt sie jedoch etwas umständlich mit 1 El 


Fred Huber (186) 


2 


> 


Al+LBL "LOG 33 ARCL 14 IR6 INT E32 TONE 9 27E X/> InD 311 STG IND 
tc® 94 PROMPT 187 t ?P33eLBL 14 123 14 
82 ZREG 91 a5 SF 02 Le - 234 CI.D 277 Xe9” 312 x<> IND 
a3 cF 94 96 FC?C 89 183 1 E3 235 AVIEN 278 GTn 88 13 
a4 CF 85 97 GTO 17 198 7 e36& PSE 79 %:> IND 317 RDN 
e5+LBi. 15 98*+LBL 94 191 STO 14 237 FC? 22 13 314 STNn ı3 
86 FIX 0 93 CF 82 1932 ISG 14 238 GTO 14 289 FE<>Y 315 X%s> IND 
e?’ CF 08 108 CF 84 193+LBL 19 239 %>VY? zerı STO 12 13 
ea CF 91 1a1l END" 194 RCL_ TND 249 GTO 13 282 YS> IND 7316 ST- IND 
09 CF 82 182 PROMPT 14 241 STO IND 13 La 
18 CF 83 193 GTO 94 195 xX=0? z 283 %=9? 31? xX<> IND 
ı1cF 86 1984+LBL 05 196 GTO i1 242 ST+ 18 284 GCTNn 088 13 
12 cr 22 185 FS?C ®1 197 ı 243 ISG 2 285 x<> IND JF318 FDN 
13 SF 26 106 GTO 086 198 STO IND 244 GTO 13 13 319 GTO 1% 
14 CF 29 187 WAHR“ 14 245 xEQ 06 286 RDN 328+LBL "HAN 
15 CLRG 188 BEEP 199 ST+ 15 246 GTO 16 287 CLX n“ 
16 12 189 GTO 08 2088 ISG 14 247*+LBL "XDR 268 GTn 18 321 ME@ "AND 
17 “ELEMENT 119+LBL 86 zaı GTOo 18 Ye 289+LBL 94 eg 
E ?- 111 "UNLOESB 2B82°eLBL 11 248 SF 93 298 %<> IND 322+LBL "WON 
18 TONE 9 AR” 283 ı 249+LBL "EQU 13 = 
19*+LBL 91 112 TONE 2 284 ST- 13 I“ 291 + 323 STO 13 
28 CLD 113 TONE 2 285 CLx 258 STO 13 292 GTO 18 324 *%<> IND 
21 AVIENM 114+LBL 08 2986 STO IND 251 %<> IND 293eLBL OR" 13 
22 FSE 115 PROMPT 13 13 294 STD 13 325 X=8? 
23 FC? 22 11le FS?C 08 287 DSE 15 252. STO IND 295 x<> IND 326 GTO 09 
24 GTO 81 117 GTO 84 298 CTO 11 13 13 327 X<> IND 
25 Xu? i18 SF 82 289®eLBL 12 253 X<DY 296 STO IND 13 
?6 N>Y? 119+LBL 17 2ı8e CF 83 254 STO 13 14 328 GTO 18 
27 GTO 13 128 FS?C 853 2ıı DSE 17 eSS %<> IND 297 %<> IND 229°LBL 98 
28 STO 08 121 GTO 05 2ı2 RTN 13 13 3380 x%<> IND 
29 STO 18 ı22 FS? 90 213 CF 82 256 STO IND 29R RDN ı3 
38 ı E3 123 GTO 85 214 DSE 18 13 299 STAA 13 331 CL 
31 7 124 1,9 215 GTO ı7? 257 x>Y? 388 x<> IND 332°L8L 18 
32 ı: 125 STO 13 216 CL 258 X<>Y 13 333 STO IND 
33 + 126 FS? 82 217 STO IND 259 X=n? 3@ai ST+ IND 14 
34 STO 16 127? GTO 98 9 268 GTO 898 14 334 RDN 
35 FS? 05 123 CLE 218 RTN 261 X<>Y 3sa2 x<> IND 335+L.BL 19 
36 RTN 129 CLX 219eLBL PS“ 262 %=0? 13 336 RCL 14 
37 GTro 1? 138 STO 97 228 SF 84 263 GTO 098 383 RDN 337 1SG 14 
38+LBL 16 131 STO 98 221 SF 85 264 + 394 GTO 19 238 RTN 
39 19,9 132 STO 09 222 xEa 15 265 FC?C 83 385*LBL "NOR 339+LBL "E” 
43 STO 14 133 STO 18 223 1 266 CL% - 348 SF ®) 
41 RCL 16 134 STO 11 224 RCL 01 267 GTO 18 386 XER "OR" 341 19,9 
42 STO 15 135 stTo ı2 225 STO 18 268*+LBL 88 28? GTO "NDON 342 STO 14 
43 cLA 136 RCL 18 226+LBL 13 269 X<> 13 - 343 RCL IND 
«44+LBL 82 137 STO ı35 227 RDN 278 + 3808+LBL "AND Y 
45 ARCL IND 138 1 22e CLA 27ı FS?C 83 - 344 ST*« 15 
15 139+LBL 87 229 ARCL Y 272 CLX 389 STO 12 345 X=9? 
46 RCL IND 148 STO IND 238 “. WERT 273 GTO 18 318 x<> IND 146 GTO 17 
15 15 >. 274+LBL "IF" 13 347 END 
47 %u89? 141 DSE 15 231 CF 22 275 STO 13 
48 SF 03 142 GTO 87? 
43 xu0? 143+LBL B8 LOoOGıc 
58 GTOo 88 144 XEQ "PM — 
51 FS? 93 145 SF 82 Das Programm dient zur Prüfung logischer Gesetze (True/False) und zur 
s2 SF 06 146 GTO 16 Lösung von LOGICALS der Art, deren Bekanntestes mit der Frage "Wem 
s3IeoLBL 94 147+LBL "PM gehört das Zebra?" schliesat, 
54 ISG 15 1486 FS? 82 
‘3 6T0 82 149 GTO 09 I. Prüfen logischer Gesetze 
ss FC?C 83 ee es 1, Eingabe des logischen Gesetzes als Programm "P" (Siehe Beispiel) 
= re ea 152 Fact 2, Initialisation des Hauptprogrammes durch XEQ’LOGIC 
59 FC? 04 153 RCL 18 3. Auf die Frage "ELEMENTS ?" wird die Anzahl der Variablen 
6a RCL 17 154 FACT des Gesetzes eingegeben 
sı FC?C 96 155 7 4. Darauf permutiert der Rechner die möglichen Wahrheitsverteil- 
62 STO ı? 156 RCL 08 ungen auf die n Elemente durch und zeipt an: 
63 AVIEN 157 RCL 18 a) "TRUE" wenn das Gemetz gültig ist 
64 TONE 3 158 - b) "FALSE" wenn die Wahrheitswertbelegung zu einem falrchen 
65 KEQ "P- 159 FRCT Resultat führt, diese Belegung wird anschliessend 
66 ASTO 13 168 7 angezeigt, z.B.: ---O100I0 
6? ASHF 161 STO 17 5. Im Fall 4a führt R/S zur Anzeige "END", da keine weitere 
so asT0 14 162 RTN Permutation der Wahrheitswerte mehr möglich ist 
es Bas etz a 6. Im Fall 4b permutiert der Rechner die restlichen Wahrheits- 
71 RCL IND 13 wertbelegungen durch (falls dies nicht bereits die letzte 
x 165 ISC 13 Permutation war) 
72 Xe0? 166 RCL IND 7, will man die Befragung einer ganz bestimmten Wahrheitswert- 
73 GTDO ı?7 13 belegung durchführen, so wird die Abfrage mit XEQ'PS 
74 SF 83 167 x<Y? initialisiert, der Rechner fragt dann nach der Anzahl der 
75 "FALSCH: 168 GTO 08 Elemente und darauf nach dem Wahrheitswert (0,I) der 
” 169 XuY? einzelnen Elemente: "x. VALUE" „ Nach dem letzten Wahrheits- 
76 TONE 2 178 SF 83 wert untersucht der Rechner die Belegung und weist das 
2: Tonkcs 17 Ber = Ergebnis aus: "TRUE" oder "FALSE" „ Für die Fortführung der 
F9eLBL. 83 173 x<y? Abfrage mit permutierter Wahrheitswertverteilung gehe zu 5, 
ea RCL 1935 174 GTO 089 II. Lösen eines LOGIGALS 
= 
= ee ee . l. "Intelligente' Eingabe der Aussagen des Logicals ala 
83 "LOESUNG 177? 1 Programm "P" (Siehe Beispiel) 
." 178 STO IND 2. Initialisation des Hauptprogramms durch XEQTLOGIC 
a4 BEEP 13 3. Auf die Frage "ELEMENTS ?" wird die Anzahl der Variablen des 
85+LBL 88 179 ST- 13 Logicals eingegeben 
86 CF 85 188 CLX 4. Darauf permutiert der Rechner die möglichen Wahrheitswertver- 
8? AVIEN ıa1 STO IND tellungen {Werte: 0,I) durch und zeigt an: 
25 Es 185 ee a) "UNSOLVABLE" wenn das Logical keine Lösung hat 
E} "SOLUTION" und anschliessend die Wahrheitswertbelegung 
= FS?C 03 64 dr z.B. "001001010", die zur Lösung SUhrte, wenn die erste 
mer 4 4 ' 
92 ARCL 13 183 RCL 13 (nieht unbedingt die einzige!) Belegung zu einem Ergebnis 


fuhrt 


5. Eventuelle Befragung der restlichen Permutationen mittels R/S. Dies führt allerdings zur Anzeige 
"END", falls es keine weiteren Permutationen gibt. 

6. Will man die Befragung einer ganz bestimmten Wahrheitswertbelegung durchflihren, so wird die 
Abfrage mit XEQ'PS gestartet, der Rechner fragt dann nach der Anzahl der Elemente und darauf nach 
dem Wahrheitswert (0,I) der einzelnen Flenente: "x. VALIF", Nach dem letzten Wahrheitwert 
untersucht der Rechner die Belegung und weist das Ergebnis aus: "SOLUTION" oder "UNSOLVABLE". Fur 
die Fortführung der Abfrage mit permutierter Wahrheitswertverteilung gehe zu 5. 


Beispiele 


I. Prüfen eines logischen Gesetzes 
l, Beispiel: 


H(AR B>C) de(BA Arc) mit A=l , Bu2 , C=3 
Eingabe des Problems als Programm "P": 
LBL’'P 
1 
ENTER 
2 Die Formel enthält 3 Elemente (A, B, C). 
AEQTAND Also nach XEQTLOGIC wird auf die Frage "ELEMENTS ?" die Zahl 3 eingegeben. 
3 Der Rechner permutiert nun sämtliche möglichen Wahrheitswertbelegungen 
XEQ IF (I= wahr, O= falsch) durch. Findet er keine Belegung, bei der das zu 
2 prüfende Gesetz falsch wäre, kündigt er dies durch BEEP und "TRUE" an. 
ENTER f 
XEQTAND 
3 
XEQ’IF 
XEQ’EQUI 
2, Beispiel: 
Horyc Bay) mit 2 Elementen: d=1 ‚Y=2 
LBL'P 
1 
ENTER f Bei der Belegung: IO (d.h. #=wahr, Y =falsch) ergibt sich ein Widerspruch 
2 Anzeige: ---IO. Richtig wäre das Gesetz alsı > d vYvar ı(mdAanY) 
Tr 
er 2 Frage nach einer bestimmten Wahrheitsbelegung, z.B, OI, Start des 
XEQTNON Programms mit XEQ'PS, der Rechner fragt dann nach der Anzahl der Elemente, 
2 Eingabe: 2, danach fragt der Rechner nach dem ersten Wahrheitswert: hier O0, 
XEQ'NON dann. nach dem zweiten und letzten Wert: hier 1. Dann untersucht der 
XEQTAND Rechner diese Belegung, die hier zu der Anzeige "FALSE" und "---0OI" führt. 
XEQ’ NON Wollte man die nächste Permutation prüfen (hier 00), so drückt man R/S; 
dies führt dann zur Anzeige: "TRUE". 
XEQTEQUI 


II, Lösen eines Logicals 


(Quelle: 99 Logeleien, Zweistein) 

Einige Familienmitglieder (alle?) der Meyers werden zu Besuch erwartet. Folgendes ist gewiss: 
1) Wenn Vater Meyer kommt, dann auch Frau Meyer 

2) Mindestens einer der beiden Söhne Uwe und Kay kommt 

3) Entweder kommt Frau Meyer oder Tim (der dritte Sohn) 

4) Entweder kommen Tim und Kay oder beide nicht 

5) Wenn Uwe kommt, dann auch Kay und Vater Meyer 

Wer kommt ? 


Sei Vaterel, Mutter=2, Kay=3, Uwe=4, Tim=5; also 5 Elemente. 
Dann lassen sich die 'Gleichungen'! 1) bis 5) auch verkürzt folgendermassen schreiben: 


1) 1-2 (SubjJunktion IF) 
2) 4v3 (Disjunktion OR) 
3) 2,5 (Alternative XOR) 


4) (54 3) <(-5A73) (Negation NON) 
5) 4-(341) ___ (Konjunktion AND) 


Verständlicherweise müssen die fünf Aussagen noch miteinander verknüpft werden, da sie ja als 
Gesamtheit Gültigkeit haben. Dies geschieht mit der I-Funktion. 
Demnach sieht das Programm "P" nunmehr so aus: 


LBL'P 3 

1 XEQ" NON Nun folgt der Programmstart mit XEQ’LOGIC, auf die Frage "ELEMENTS 7?" 
ENTER XEQTAND wird die Anzahl der Elemente eingegeben: 5. Dann permutiert der 

2 XEQTXOR Rechner die verschiedenen Personengruppierungen durch, bis er eine 
XEQTIF XEQ'ZE Kombination findet, die zur Gesamtheit der Aussagen 1) bis 5) keinen 
XEQ’X 4 Widerspruch enthält und weist diese Kombination als "SOLUTION" aus, 
4 ENTER hier O0OIOI, was in diesem Beispiel folgendes bedeutet: nur Person 9 
ENTER? 3 und Person 5 kommen zu Besuch, mithin Kay und Tim, 

3 ENTER Lässt man den Rechner weiter permutieren mittels Rn/S, so findet er 
XEQ’OR 1 keine weitere "SOLUTION" mehr (die Lösung ist also eindeutig !) und 
XEQ'E AEQTAND weist für die restlichen Permutationen "UNSOLVABLE" aus 

2 XEQ'IF 

ENTER  XEQTE 

5 Thomas Lindner (159) 

XEQTXOR 

xEQTE 

5 

ENTERf 

3 

XEQTAND 

5 


XEQ'NON ee 


‚AUTOMOBILKOSTEN 


Die Programme AA bis AD dienen der Kontrolle der bei einem Automobil anfallenden Kosten. 
Die in den Programmen gebrauchten Abkürzungen basieren auf der englischen Sprache und können vom Arwender 
beliebig abgeändert und nodifizlert werien. 


Voraussetzung für ein korrektes Arbeiten der Propramme AA, AB und AD ist es, 


dass der Wagen vollnetankt 


wird und der Kilometerstand im Datenspeicher @P abgelegt wird. Danach ist jeweils wieder vollzutanken und 
der Kilometeretand ist auf dem Kassenbon zu vermerken. Der Preis und die bezopene Benzinmenge stehen Ja 
ohnehin schon darauf, Mit diesem Bon kann die Rechnung entsprechend der untenstehenden Bedienungsan- 

Bei den anderen Kosten in den Programmen AA und AC ist nur deren Einpabe 


leitungen begonnen werden. 


erforderlich, 


Das Programm CARCOST (AA) ist eine Kombination der Programme FUELCOST (AB) und TOTAL (AC). CARCOST ist im 
Handling angenehmer. FUELCOST und TOTAL belegen aber, einzeln abgespeichert, erheblich weniger Speicher- 
platz. Deshalb sind sie als modifizierte Einzelprogramme beigefügt. Das Programm FUELCOST EXCESS (AD) ist 


für diejenigen Autobesitzer gedacht, 


Bedienunganleitungen 


CARCOST_ (AA) 


SIZE #11 

PRGM einlesen 

CLRG 

KXEQTAA 
"CARCOST" 
"CARD" 

Datenkarte einlesen 
oder 3x R/S 
“pn OR D" 

wähle B 
"FUELC" 

"PART All 

Preis eingeben 
z.B. 12.58 DM 


R/S 

"LIT ?" 

Liter eingeben 
z.B. 10,51 

R/S 

"KMN 2" 

neuer km-Stand eingeben 
z.B. 200 km 

R/S 

Kontrollanzeigen: 
"KMO [) Bo" 


alter km-Stand 
"KMN 208.09" 
neusr km-Stand 
"KMD 208.00" 
gefahrene km 
"LIT 18.59" 
getankte Liter 
"LIH 5.25" 
Verbrauch pro 100 km 
“"PRT 12.58" 
Preis beim Tanken 
"PRL 1.28" 
Preis pro Liter 
"PRH 6.29" 
Preis pro 100 km 
"FCT 12.58" 
Gesamtpreis sämtlicher 
Tankvorglinge 
"GARD" 
Datenkarte einlesen 
oder 3x R/S 
MCARCOST" 
weiter wie oben 


wähle D 
"TOTAL!" 

" FCT il} 

siehe B 

" INS ” 

"INS NEW ?" 
"INS Il} 
Versicherung 
“TAX " 

"TAX NEW ?" 
TAX" 
Steuern 
"REP " 

"REP NEW ?" 
"REP " 
Reparaturen 
DIV" 

"DIV NEW ?" 
"DIy" 


Diverse Kleinteile 
(VOel, Filter, etc) 
EQU" 

"EQU NEW ?" 

NEQU" 

Ausstattung 

"GRAND" 

Gesamtsumme sämtlicher 
Kosten 

Li CARD" 

Datenkarte einlesen 
oder 3x R/S 
"CARCOST" 

weiter wie oben 


während der Anzeige 
z.B. "INS NEW ?" kann 
durch R/S das Programm 
unterbrochen werden und 
der entsprechende Wert 
eingegeben werden, dann 
wieder R/S. 

Beispiel: 

"INS " 

"INS NEW 7?" 
R/S 
Eingabe des Wertes 

z.B. 250.- DM 
R/S 

"INS 259.09" 


Ohne Fingabe l4Muft das 
Programm selbatündig 
weiter, 


die es ganz genau wissen wollen. 


FUELCOST (AB 


SIZE 982 

PRGM einlesen 

CLRG 

XEQ AB 

"FUELC" 

Bedienung wie unter 
CARCOST B 


TOTAL _(AC 


SIZE d19 

PRGM einlesen 

CLRG 

XEQ AC 

"TOTAL" 

"TOTAL 9.00" 
Bedienug wie unter 
CARCOST D 


FUELCOST EXCESS (AD) 


SIZE 914 

PRGM einlesen 

CLRG 

XEQ AD 

"FUELC EXCESS" 

R/S 

"DATA CARD" 
Datenkarte einlesen 
oder 3x R/S 

"PRT y“ 

Preis eingeben 
z.B. 12,58 DM 

R/S 

"LIT y" 

Liter eingeben 
z.B. 10,5 1 

R/S 

"KMN 7" 

neuer km-Stand eingeben 
z.B. 200 km 
R/S 

"CHECK INPUT" 
"3.00" 

"12.58" 

12. 59 " 
"209.09" 

R/S 

"FOR FUELING" 
"KMO gg" 
alter km-Stand 
"KNN 200.00" 
neuer km-ötand 
"KMD 208.08" 
gefahrene kın 
"LIT 19.04" 
retankte Liter 
"Lin 5,25" 

Verbrauch pro 100 km 


Harald 


"PRT 12.58" 

Preis beim Tanken 
"PRL 1.20" 

Preis pro Liter 
"PRH 6,29" 

Preis pro 100 km 


"FOR MONTH" 
Berechnung für Monat 
"KMD Il} 

" LIT " 

"LIH nt 

"PRT " 

"PRL Li} 

"PRH ” 


"FOR YEAR" 
Berechnung für Jahr 
"KMD " 

"LIT IL} 

"LIH n 

PRT " 

NPRL IL} 

NPRH " 


"TOTAL TIME" 
Gesamte Nutzunnsdauer 
des Fahrzeuges 

"KHD „ 

“LIT Li} 

“LIH " 

®PRT LI} 

"PRL " 

“PRH " 


"DATA CARD" 

Datenkarte einlesen 
oder 3x R/S 

"FUELC EXCESS" 

weiter wie oben 


Das Programm sieht den 
Sprung des Tachometers 

von 99999 auf 00000 nicht 
vor, das heisst in diesen 
Falle, dass der neue km- 
Stand kleiner als der 

alte km-Stand ist, und der 
Rechner wieder zur 

Abfrage zurückspringt. Es 
wird dabei keine Speicher- 
ung der Daten vorgenommen. 


Für die Beendigung einer 
Rechnungsperiode sind die 
entsprechenden Daten- 
speicher zu löschen, 


M, Krumins (13) 


B1l=-LRAL "AR" 64+LEL D EeleLBL -AaR- Bi+LBl "AC“ AleLBL "AD" 62+L RL an 
a2 FIX 2 65 .2F 27 82 "FUELEC 92 "TOTAL e2 "FUELC E 63 C1.ST 
83 "LARCOST 66 "TOTAL" AF AVIEN A3 AVIEW KCESS“ 64 KEN ai 
“ KR? ZEN > AA PSE 94 PSF r7 AVITEU Ei" KMTO 
mn4 xFn 82 6B "HEW  ?* as FIX 2 65 FIX 2 ea STOP 66 XEU 9> 
A535 xXER 87 69 ASTO 89 a6 RCL 91 n6 RCI 88 B5 xEQ 94 67 188 
86 RDTR 78 CLST 87 XEQ 81 8? xEN 81 6 RDTRA 637 
a7 SF 27 71 STO 10 88 STOP as STOP B87+LBL 85 63 XEQ 81 
88 " B OR ?”2 xEO 06 89 CLST 83 CLST 82a CLST ‚a sSsTo zZ 
n® 73 "INS 18 SF 14 18 5F 14 e9 FIX 2 71 "LIT 
89 AVIEN 74 xEQ 05 11 RDTRA 11 RDTA 18 "PRT ?" "2 .XE0 02 
198 STOP 75 "TAX 12 "PRT >" 1? "HEW ? 11 PROMPT 73 HIST 
11e1l.Bil. B 76 XEQ 85 13 PROMPT 12 ASTNn 99 12 "LIT ?" ”4 7 
12 CF 27? 77 "REP 14 "LIT > 14 CLST ı3 PROMPT 75 STO 7? 
13 "FVELC- 78 xEn 085 15 PROMPT 15 STO 08 14 "KMN 7?" ?6 "LIH 
14 XEo 82 79 "DIV 16 "KMN 7 16 "INS 15 PROMPT 77 xEv a2 
15 CLST 88 XEQ 05 17 PROMPT 17 XEO 95 16 "CHECK 8 xXEQ at 
16 "PRT ?" 81 -EQU 18 RCL 90 18 "Tax INPUT“ ?9 "PRT 
17 PROMPT 82 xEQ 85 19 "KMa 19 XE@Q 85 17 SER 97 Ra xXEn 2 
18 "LIT ?- 83 RCL 92 28 XEQR ®i 290 "REP * 18 7PRSTK 8ı RCL Z 
19 PRAMPT 84 "GRAND 21 RDN 21 xE@ 85 19 STOP 82 
28 "KMN ?" 85 xEQ oil 22 "KMN 22 "DIV 2a "FOR FU 83 "PRL 
21 PROMPT 86 XEN 97 23 xE@ 91 23 XEn 85 ELING" 84 XER a2 
22 RCı 88 87 WDTR 24 <TO 88 >24 "EQU " 21 XER 83 85 * 
23 -Kmn 83 GTO “AR 25 Rt 25 xEQ@ 85 22 PCL 908 RE "PRH 
24 XEN 91 8I+LBL 92 26 - 26 "FCT 23 'KMmO RB? XER 02 
25 X<>rY 98 RCL IND 27 "KMD - 27 xXER 85 24 SEO 02 88 RTN 
26 xX<=Y? 18 28 XER Bi 28 CLST 25 X<>Y BI9eLPL O1 
27 GTO B 1 ARCL 97 29 1908 29 SF 14 26 X<=Y? 92 1 
28 x<>Y 92*LBL 81 3a, 38 WDTA 27 GTO 05 91 ST+ 1% 
29 RDN 933 ARCL X 31 RDN 31 GTO "AC” 238 STOo aa 92 RDN 
28 "KMN “ 94+LBL 82 3? "LIT 32+LBL 93 22 -KMN " 23 RCL IND 
aı xEQR 81 95 AVIEN 33 xEQ 81 33 RCL IND 28 xER 92 13 
32 STO 08 95 PSE 34 STO 2 an 31 X£>V 94 RTN 
33 Rt 97 PSE 35 Rt 34 ARCL 07 a2 - 95eLRL 92 
74 - 98 CLARA 36 + 35+LBL @1 33 STO Bi 96 AFCL % 
35 "KMD 93 RTN 37 "LIH 36 ARCLL X 34 ST+ 94 ITeLRL 83 
36 XE@ Bi 188-L8L 84 32 xXEQ@ 81 37*LBL 02 35 ST+ 07 9B AVIEN 
37 188 181 ARCL 87 39 RDN 38 AVIEN 36 ST+ 1@ 92 PSFE 
38 7 182 ARCL 89 48 ST+ 91 39 PSE 37 PDN ıma PSE 
39 RDN 193 XEo 92 41 "PRT - 4@e PSE a8 STO 82 101 RTN 
48 "LIT 184 ST+ IND 42 XFEQ 61 41 CLR 29 ST+ 85 182*L.BL 94 
41 xEQ 81 18 42 Xi>Y 42 RTN 43 ST+ 88 193 CLST 
42 STO 2 185 ST+ oa 44 7 43+1.BL 84 ai ST+ ıl ın4 SF 14 
43 Rt 186 CLA 45 "PRL " 44 ARCL 07 42 RDN 1985 - DATE 
44 7 187 RTN 46 XEQ @1 45 ARCL 89 43 STO 03 CARD“ 
45 "LIH 188+-LEL 85 47 Rt 46 XE@ 82 44 ST+ 086 186 AVIEU 
46 XFO 91 1893 ASTO 97 48 * 47? ST+ IND 45 ST+ a9 187 EHD 
47 RDN 118 cıa 49 "PRH - an 46 ST+ 12 
48 ST+ &8 111 1 5a xEn 8t 48 ST+ Q8 4? CLST 
49 ST+ 96 112 ST+ 18 51 "CARD" 49 CLA 4a STa 13 
sa "PRT - 113 XEQ 93 52 AVIEW 58 RTN 49 XEQ 80 
sı XER 1 114 CLX 53 CLST SieLBL 85 58 = FOR M 
52 x<>Y 115 KEN 04 54 SF 14 52 asta 9? ONTH* 
sır 116 XEQ 03 S5 WDTA s3 cLA 51 xEQ 03 
54 "PRL “ 117 CLX Ss6& GTO "AB" s4 i 52 XEQ 80 
55 XEN 81 118 RTN 57+LRL 91 55 ST+ ea 53 * FOR Yr 
Ss6 Rt 119*LBL B6 59 ARCL X Ss6 XEO 62 EAR" 
Ss? * 1280 RCL ®6 59 AVIEN Ss? CLX 54 XEQ 083 
53 "PRH 121 "FCT - 68 PSE 58 xEa 84 55 xEO 0@ 
59 YER 81 122 xEQ 01 61 PSE 59 KEO 83 56 TOTAL 
68 KEN G& 123 RTN 62 END 68 CLX TIME- 
61 xEN 97 124eLBL 97 61 END 57 xER 83 
#2 WDTA 125 CLST 58 xEa 99 
63 GTO "AR" 126 SF 14 59 XEQ 84 
127? "CAFRD- 68 WDTA 
128 AYVIEN 61 GTO -AD 
129 END 


CLUBBÖRSE 
Suche PPC-ROM zu kaufen ! Hasso Schumacher (443), Tel. 040/6724110 
Suche PFC-ROM zu kaufen ! Michael Haase (285), Tel. 07305/7736 


OSBORNE 14 


Ab Ende dieses Jahres wird die Mitrlieder- und Kontenverwiıltung des Clubs üper 

DV laufen, da die Arbeit anders nicnt mehr zu bewältigen ist. Dazu ist bereits 

ein Personalcomputer OSBORNE 1 bestellt. Dieser ab Frühjahr 32 auch in Deutsch- 

land in größeren Stückzahlen erhältliche Rechner ist um den Faktor drei billixer 

als alle demeitigen Fersonalcomputer. Das Komplettsystem enthält Standardsoft- 

ware, die allein nach heutigen freiser über 1500 & kostet. Trotzdem liegt der 

Preis für 64s-Rechner, CH/M, 2 Disketten, 122 x 24 “onitor, und vieles mehr unter 

1800 8. Der Rechner ist akterkoffergroß (mit Monitor, Disk.laufw.) und transporta- 
bel. Über Batterien cder Akku Läuft er ohne Netzanschlußf bis zu 5 Stunden ! Qliver(1) 


at»l.BL "+" 4B 17% 2 FÜ?TC INT 


n2 xXEo #3 49 FS?C 07 y 

93 SF 95 58 * 93 CLXx 

ea RTN 5ı RTN 94 STı ZI 

AaS+LRL "-"” S2sLBL "CLR 95 FDH 
AOS für UPN-Rechner a6 REO "+" = 96 15% 

a en Ex EB a7 SF 06 s37 .e1 97? GTO 94 
Dieses Programm simuliert das AOS-System (bekanntester ee re Sue x Er en IHL 
Vertreter: Texas Instruments). Die Dedienung erfolgt ıa XEQ 88 56 ISG X 81 
in ähnlicher Weise wie bei einem TI-Taschenrechner. 1 XEO ei 5? CTO 86 189 Sr ac 
Es ist zweckmässig folgende Tastenzuordnungen 5 Zar 22 Ren An Sr 
yeraanehnen: 14eLBL "7" 68 sTo e1 1a3*LEL > 

+ 'YX — Shift YX TCLR — Shift CLX 15 XEQ x“ 61 RTN 194 FC? 90 
.. FINV — Xc>Y "= — ENTER f 16 SF 88 52+LBL ”<” 185 FTN 
+ TC Shift LBL 17 RTN 63 ISG #8 106 YEN 03 
1] 'T? Shift GTO 18+LBL "YX" 64+LBL 18 1097 18.9004 
19 FS?C 89 65 RCL 09 ı1a8 RTL IND 
Man kann im USER-Modus mit dem AOS-System, ohne USER- >a XFO 08 66 STD 91 vi 
Modus mit dem UPN-System arbeiten. 2ı SF 89 67 RDN 1089*+LBL 95 
2 2 3 4 [D4 Y 
Die Zahl, die angezeigt wird, steht im X-Register und Be En “INY es ST« 81 nt ur 
kann daher mit allen "einstelligen' Operationen (wie . i 78 SQRT 112 ıarX% 
SIN, COS, TAN, LOG, STO..,1/X, usw) bearbeitet werden, 24 SF ı@a ”ı ST- 91 113 %<=v> 
auch während einer Rechnung. Die Dateneingabe kann 2S RTN ?’2 RDN 114 SF IND Z 
auch durch RCL.., usw erfolgen. Der Anzeigemodus kann 26elBl. "=" 73 STO IND 115 X>Y? 
frei gewählt werden, 27°. FS? a8 ei 116 LLX 
28 XEQ ">" 74 RDN 05 
In diesem Programm ist die Anzahl der Klammerebenen 23 FS? 0808 75 TSG 91 es DSE Y 
von der Anzahl der verfügbaren Datenspeicherre;ister 39 GTN "=" 76*+l.BL 10 119 CTO 85 
abhängig. Die Anzahl der möglichen Klammerebener. kann Z1i®e(_BL 03 ?7’ 5TOo IND 12a RCcL Z 
nach folgender Formel berechnet werden: 32 XEQ 98 ai 121 DSE 91 
32 MEO B@1 ?’3 RDN 122 RCI IND 
Klammerebenen = INT (Jatens SHSLer = 2) 34+LBL 82 79 156 al 81 
35 FS?C 06 B8+«LBL 19 123 nSFE 01 
Die Anzahl der unvollständigen Operationen beträgt pro 3% CHS 31 STO IND 124 RÜL IND 
Klammerebene 3, 37 FS?C 85 091 ei 
Die ersten Speicherregister (in der Regel nicht mehr = a a en 81 122 us ee 
als 18 53 4 Klammerebenen) sollten nicht zur Daten- 48*LBL 09 B4-LBL 1a 81 ö 
speicherung benutzt werden. 4i FS>C 19 esse 127 nse eı 
Die Funktion 'INV ist nur in Verbindung mit ’YX 42 1X 86 ENTER?t 128 Rt 
wirksam, 43 FS?C 099 87 5,91 129 NDSE #8 
Die Bedienung des Programms wird hier nicht be- .= ER Ber: ne es 
schrieben, da die Bedienung eines TI-Rechners 46*LBL ei sa INT we END 5 
hinlänglich bekannt sein sollte. 47 FS>?C 98 a1 satr%x 


Raimund Berg (5} 


EESTET TIERE EEE TEE TTE TE TTEFET LEE TER ET EEE TEE ET ET ET ET TUE ee 


e oben 
Lötösen L. +, - Der fehlende Netzgerätestecker war für mich der Anlass hier 
anlöten in X 0:8:0% ; meinen Selbstbau vorzustellen. 
y£ Aus einer gelochten Streifenplatine (Lochabstand 2,5 mm) ist 


ein kleines Stück abzusäpen und zu entgraten. An zwei Lötösen 
ist der Hals umzubiegen und in einem Abstand von 6 mm auf die 
Platine zu löten. Achtung, es darf sich keine Lötbrücke 


HP-41C 


E Alle we a zwischen den Streifen der beiden Lötösen bilden, Beim Anschluss 

B PER PIBRTEE. des Kabels an die Platine ist auf die richtige Polarität zu 
achten, Nun kann der selbstgebaute Stecker in den HP-41C 

w eingeschoben werden. Wenn die Lötösen keinen richtigen Kontakt 

3 2 Lötösen gebogen herstellen, können sie durch aufbiegen gerichtet werden. 


ze Walter Pieperhoff (205) 


TERERÜRRRREHTERETTRTEFTRURERRUHRÜFTEREFREREFERETTRRRERERTREEUHEERBERFRRREREF EHER TEREEREHER EIER TREE EUER ER HER 


Bl°LBL "U- 


a2 CLST Nebenstehend ein Unterprogramm zur Eingabe von Ziffern. Das Programm kann von 
93 LASTX mehreren Hauptprogrammen aus aufgerufen werden, wenn nacheinander viele Parameter 
na x<) 2 benötigt werden. Vom Hauptprogramm wird es mit XEQ U aufgerufen. Es werden nachein- 
BS5+LBL 91 ander 6 Werte angefordert und dann in die Speicherregister 1 bis 7 abgelegt. 
2 nn Walter Pieperhoff (205) 
088 ST+r T Milslebchtchebcheächsisehsshslsbciehelckstehchchsichäehebeishubelsieksielsheisächelslchslehshstehehitsbshchhchehslelehuikelete hehe ee ee 
89 RDN H 
19 STOP * 
11 STO IND ; Danke_! 
T - a 
12 z BF & : ve A 
13 et &ı H Im Namen aller Mitglieder möchte ich Fred Huber (186) vielmsls 
t4 END : für die geleistete Arbeit danken ! Er hat für dieses Info sieben 
* 


rn. ....n.n..nnn.....un. 


Blätter (14 Seiten) abdruckreif übertragen und mir zugesandt ! 
Also: Vielen Dank, Fred !! oliver (1) 
KIKIOKKIOHIONKKIKKKKKIHKKIOCKKKKKKIKKKKKKKKKKKKKOKKKKKKKAKKKXKKKKKKKKKXKHKKKKKKKKKKIKKUK 
Geplant ist ein Lösungsbuch zum Thema Hochbau (Bauing.wesen) ohne Statik. Wer dazu 
Programme zu bieten hat, sende diese bitte an: Jürgen Hüneke (419), Gerhard-Rohlfs- 
Str. 79, Postfach 700 443, 2820 Bremen To, Tel. 0421-650125. Es liegen bereits vor: 
Berechnung des umbauten Raumes nach DIN 277, Berechnung ders Wärmebedarfs für Gebäu- 

de nach NIN 4701, Auslegung von DIN-Radiatoren, !rstellen eines Terminplanes nach 
Eingabe von: Gewerksnamen, Tewerksdauer in Arbeitstagen, Vorläufer, Nachfolger, und 
Abstand Beginn-Beginn zum Vorläufer, Ausge@ruckt wird die Gesamtdauer in Wochentagen 
und wenn erwünscht die einzelnen Ausführingszeiter. Das Lösungsbuch Statik wird von 
Walter Pieperhoff (205) erstellt. 


Walter Kropf (56) 


Nachstehend einige Betrachtungen zum "Programmierbaren Byte Jumper" 
und dessen Anwendung zur Verschlüsselung von Programmen, 
(Siehe prisma 41/81 und 113/81) 


Die Idee, Programmbytes in Tertzeilen zu verstecken ist bestimmt eine 
effektive Methode zur Verschlüsselung von Programmen, welche dadurch 
kaum mehr lesbar sind. Leider hat die Methode einige Nachteiles 

1.) Die Programme werden durch den PBJ sehr langsem, da bei 
jedem GTO "" oder XEQ "" der ganze Katalog durchgesucht werden muß, 

2.) Jede Textzeile erfordert einen Mehraufwand von 5 Bytes. 
(SF 25, GTO "", Mm) 

3.) Wenn das Programm im SST abgefahren wird, sind alle Be- 
fehle im Klartext zu lesen! FS? 51, STO e, wie im Program Seite 113 
angewendet hilft auch nicht, wenn nach den ersten Zeilen mit SST be» 
gonnen wird. Es müßte am Beginn jeder Textzeile FÜ? 51 eingegeben 
werden, doch ist dies wieder ein Mehraufwand von 2 Bytes je Textzeile. 

4,) Beim Programmlauf im TRACEB-Modus werden alle Programachrit- 
te im Klartext ausgedruckt, demit ist die ganze Verschlüsselung wnsonst. 
Ich habe dagegen noch kein Mittel gefunden, obwohl der Rechner den 
TRACE-Modus irgendwie erkennen muß, bei PRIVATE ist die Ausgabe im 
TRACE-Modus gesperrt. Wer weiß mehr? 


Für diejenigen, die auf diesem frebiet weiterarbeiten ein Hinweiss 

GTO und XEQ Befehle sind in den Textzeilen möglich, doch darf nach dem 
ersten Programmlauf keine Änderung im Programm mehr erfolgen (vor 
Programmlauf packen!), da die Sprungweiten wohl richtig berechnet und 
gespeichert werden, bei einer Editierung aber diese Bytes, wenn sie in 
Textzeilen stehen, nicht mehr auf O gesetzt werden, Am Besten man zeich- 
net das Progranm nach packen vor einem Probelanf auf Magnetkarten auf, 
dann hat man inmer das jungfräuliche Programm mit undefinierten Sprung- 
weiten zur Verfügung. 
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Ich bsabsichtige, eine größere Anzahl (minimal 5) äußerst stabiler Alu- 
Koffer für das HP-41 Syster herstellen zu lassen, Geplante Ausstattung: 


- unlaufend-, massive Alu-Frofile mit Dichtungsschmir 

- etschilefbare Zugschlöseer 

- Ecdernößel und aushängbare Scharniere 

- FlÄchen Alu-Sperrholz-Sandwich, verklebt und vernietet 

- Unterteil: Schaumstoff-Inneneinteilung für Rechner, Magnetkortenleser, 
Barcodeleser, Drucker, Module, Netzteil, Papierrolle, Magnetkartentaschen 

- Zwischendscrel 

- fberteil frei verfügbar 

- Irnenmraßeı 400 x 285 x 100 mm 

- Freie ca, 200,-- inkl. Mwst. bei 5 Stck., bei höheren Stückzahlen günstiger. 


Michael Gehret (266), Silcherstr. 15, 8944 Grönenbach, Tel. 08334/1001 
AuPerdem verkaufe ich drei SD-RAMs für zusammen 130,--DM. 


Ulrich Oaver en 
Ostenbergstra 7/8 
4600 Dortmund 50 


Fineanzbericht Clubprojsekte 1 + 3 „ 11/1980 und 1/1981 


1._2.Halbjahr_1980 (Beginn _der_Projekte_- 31.12.1980)_: 


Einnehmen_: DM 2470.00 = 100.00 % 
Ausgaben : a) Materialeinkauf DM 2257.08 - 91,398 % 
b) Verpeckung,Porto pn 91.96 - 3.72% 
c) Sonstiges DM 40,75 = 1.65% 


DM 2389.79 = 96.75 % 
Aufwandsentschädigung ( = Überschuß): DM 80,21 = 3.25% 


Zu a) Ea wurden 3740 Magnetleerkarten, 94 Kartentaschen und 
19 Rollen Thermopepier bestellt, eingekauft und ausgelie- 
fert. 

Zu c) Umfedt: Pakstzustell-,Kontogebühren,Porto (Rückfragen, 
Bestätigungen,Händlerkorrespondenz),Probslieferungen, 
Bürobsdarf,Kopierkosten u.a. 


Einnahmen_} DM 11795,.85 = 100.00 % 
Ausgaben _: a) Meterisleinkauf DM 10541.28 = 89.36 X 
b) Verpackung, Porto DM 685.76 « 5.81 & 
ce) Sonstiges DM 207.45 = 1.76 % 


DM 11434.49 = 96,93% 
Aufuandsentschöädigung ( = Überschuß): DM 361.36 = 3,07 % 


Zu a) Es wurden 13480 Magnatlserkarten, 302 Kartentaschen, 193 
Einlegeblätter und 1696 Rollen Thermopapier best»llt, ein- 
gekauft und ausgslisfert. 


Für den Berichtszeitraum ergibt sich ein Überschuß von DM 441.57. 
Diesen Betrag habe Ich als Entlohnung für dis von mir verrichtee 
ten organisatorischen Arbeiten (von Aufnahme bis Zusendung) sin- 
behalten, Legt man einen Aufwand von 180 Stunden zugrunde (und 
dies ist noch knapp bemessen), so ergibt sich ein durchschnitt- 
licher Stundenlohn von DM 2.45 . 

Die obigen Angeben sind durch Belege ,Quittungen, Rechnungen und 
Kontoauszüge nachueiebar. bu 


Dortmund, 1.August 1981 Ulli Davertzhofen (3) 


Berechnung der Trafospannung fu 
Brückengleichrichter mit Ladekondensator 


Uyen = Trafospannung unter Last 

f, x Verlustfaktor vom Trafo 

Uamn = Ausgangsgleichspannung bei I, 

Usss = Brummspannung an C, unter Last 

R, = Verbraucherwiderstand 

Uo = Last- Ausgangsgleichspannung (mit « gr. C.) 


Uso = Ausgangsgleichspannung ohne Last 


Pu xz Trafo- Nennleistung 
R, « Trafo -Innenwiderstand 
Uo = Diodenspannung unter Last 


Ios  » Diodenspitzenstrom 
In = Netzfrequenz 


Inen = Trafo - Ausgangsstrom 


2) Berk. ggasana : 


Use ® Uamin * 0,67 Ugss (Abschätzung) 


Pr ® 12 Jo (Un *t 2Uo) 


Kerngröße auswählen 


f, aus der Tabelle entnehmen — STO 03 


R/S 
I. Rechnungsgang 
Uomin = Uner 
Une? 
Ri; Py (f,-ı) 
Uno 
R, T» 


Uno ® (Y2 - Unen .f, -2u0)(1-Yzr,) 


Us» (Schätzwert}) = Usa 2. Rechnungsgang) = Differenz 


x Differenz + U,.„ (bis die Differenz kleingeworden ist) 


h__. vr 
C u 100 Usr ss (' ni ZR, ) 
I R i 2. s 
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Henze 
tGM-HPLIC 


ETTINGEN 


B1+LBL -TRF- 


3ı 


"UP?- 
PROMPT 
STO 88 
-US1?r 
PRUMPT 
sto a1 
"S2?" 
PROMPT 
sTo 82 
"53?" 
PRCMPT 
STO 93 
. IS1 7? 
PROMPT 
stTro a4 
. 1S2?"* 
PRÜMPT 
sTOo 95 
-IS3?" 
PROMPT 
STO 965 
u Er u) 
PROMPT 
stro 97 
“5?” 
PROMPT 
STO 88 
"RFE?- 
PROMPT 
STO 99 


32+LBL A 


26.5 
RCL 99 
7 

stn 19 
RLL 939 
” 

sto ı1 
-WUP=- 
EQ 998 
RCL 91 
EQ 81 
8T0 ı2 
"WSi>* 
xEQ 88 
RCL 92 
EQ 91 
sto ı3 
"-WS2="” 


Trafo — Berechnung 


3/81 


«- |4#T 


FT: 


BP 76 RESORT RDESONER BET 


Schniffbandkevu AHFT — A3ST 
Dynamo blech W A8.T 


iei ,5 ' 
192 7 | Ra8= "UP- 
183 -QF=- I ORBI= -USI" 
184 xEQ aa RA2= "US2“ 
185 RCL 15 ROI= -US3" Wdg 16,5 
186 xEQ 83 ROs= "IS1“ _—- 
187 -DP=- _,: ROS= -IS2" i 4 AFE [et] 
188 xEo 0& | RO6= "IS3" ö 
189 RCL 16 RO?7= "VERL." 
118 xEo 893 Ra8= -S" Mum (far ART, SoHz ) 
111 -DSsi=- RBI= -arEreml | 
112 XEQ 98 R18= -WDG/V“ 4 
113 RCL 17 . Rli= "WPr ı 
114 xeQ 83 R12= "WS1“ Wdg [79,) 
115 "DS2=" | R1i2= "W532" _— = nn 5, 
le seo vo | Rise uss 5 V are (il 
117 RCL 18 | R1S= vapı u 
118 XEQ 93 Ri6= "Q5i" » 
119 -DS3=" R17= -as2" = (für 4,2T , 5082) 
128 xE@ 9a R19= "uS3" “ 
121*LBL 88 
122 ARCL X 
123 AYIEN 2 . 
124 STor Drahtgua schnitt 
125 RTN 9= I 
126+LBL 8i 5 
127 RCL 19 = 
128 * = 
129 RCL 97 Fensterquerschwrff 
138 
131 RTN [1.55 WPugp+WS1xgsirnst 
132+LBL 982 
133 RCL 88 wasL +Ws3 x 953 
134 / 
135 RTN 
36s+ 
132 ar = Drabtdurch wesser 
1382 = 
133 Pi Yx 
149 7 D= er. 
141 SORT Rn 
142 RTN 
143 END -— 
up us2 
us3 


H.Henze 
PRGM-HPYIC 


Trak _ Berech uung 


Fe 
.c.ki Run der Voten 
iz? 

12 


US37 
i2.00 FU B £ 
s 5|= 
Pe a 3 € Wdg /V 
zig _ 
ISE7 , “ = 
Fr Fur »|» 
153° 5l& Windungszohl W Ele 
.78 ryti = 88 
1,10 FUN e|5 
m. u 
57 Ze 
4.na [VRR TITE) = 5 
FE? n „IE 
Z.5uc#" Flin Primörstrom IP 2|5 
r=1i1 


E 


Kuplerquerschnitle q 


FUR 
WS2=2149,91 R 

RUN 
WS3=149,91 

RUkH 

Rür 

Run 
GF=233.20 mm! 

RU 
IF=&a,21 u 

RUN 
I51=%.356 

RUH 
ISsz=0,.47 

RUN 
IS3=6,47 


für Schniffbandkeru 
SU 60a 


H.Henze Aktive Filter 2. und 4. Ordnung 


PRGM-HP41IC PRPLOT Übertragungsfunktion lAlx 
2. Ordnung LIN ohne Flag LOG FL 02 
GOETTINGEN 07,.81 4, Ordnung LIN nur Flag 01 LOG FL 01 u. FL 0: 


FRP_"ATP" ai sTo 12 
b1 STO 13 

al=LEL "ATP oo 
ö Ei a2 STO 15 I Z 
2 xt2 b2 STO 16 * 
a3 RCL 12 ; 
u 
as RCL 13 


2) 
3) 
+=#1%#N 


Berechuwüug 


4. Filter 


DNN)m mm m mm a IT 1) 
MONDAY RUNT MN 
SAUKN 
0+N 
rnr 
[N] - 
Mo td 
S 
[3 
3 


23 GTa a2 
24 FS? a2 Be 
3 2 


rechuüng 
% Fil t er Bererclu ung 


dB 


27+LEL @2 
28 RCL 15 
29 xt2 7 
3@ RCL 16 

[Alx = 


z Vrt(a,-2b,)x+blx* 


1 SRB+LEL Al 
si  FST a2 


INETEALRENEAEREN 
DNPUORUN 
x 
Ry 
N 


53 RTN 
41 RCL @6& S4+LEL 2 
s5 1 ES 
Se * 

S?’ LOG 
se 26 
s9 * 

&@ END 


H.Henze TSCHEBYSCHEFF FILTER 4. Ordnung 


PRGM-HP4IC mit 0,5 dB Welligkeit 


al = 2,6282 bi = 3,4341 (1. Filter ) 
GOETTINGEN ..o2, a2 = 0,3648 b2 = 1,1509 (2. Filter ) 


2:63 510 13 
3.63 $10 :5 
‚IE STE 35 ,36 ST6 12 
1.18 870 13 1.15 $T0 13 
KROn -PRFLDT  . NRUR "PPPLOT- 
Kan 9 i 
Rus ie ar RUN 
! Yalk? 


2,08 516 1: 
3.43 ST0 13 
KROR "PRPLOT“ 


RUN 


RUN 
Ymx? 

RUS 
axIs ? 


Hin? 
0,68 
xmax ? 
5.08 
RIHC? 
‚20 L ‚28 


m rn nn cn 
” > 
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H.Henze 
PRGM-HP4IC 


GOETTINGEN .08.,81,,.. 


Aktive Filter 2, Ordnung 
PRPLOT. Phase vom Tiefpass 


SE 
“-PTF" 


PRP KRON "PRPLOT" 


HANE ? 
- PIF PIE) 
@1-LBL PTF, a 
a2 RCL 12 i Be 180.00 RUN 
a3 * ; ? 
i Bd. RU 
sr "Rs? 
85 RCL 13 ar 
86 RCL 6G6.. nr a » 
x12 .° Re ! .? 
N ! 0.88 EUx 
I x? 
N 


x. Inc? 


PLOT 07 PTr 
X <UNITs= 1,3 4 
Y<uniTs= 1,33 
-186, 


T 


na 


B.uunnpd-— oo» 


"2,63 STO 12 
3,43 STO 13 


mann eın mc 
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Walter Kropf, Schönovitzstraße 14, A-8700 Leoben 


Das Programn berechnet für ein bestimmtes Jahr dne Datum von Vollmond bzw, 
Neumond, Das Programm erhebt keinen Anspruch auf astronomische Genauigkeit, 
Abweichungen des berechneten Datums vom tatsächlichen Breignis können — 1 Tag 
betragen. 

Das Programm benötigt als Unterprogramme die Programme "Kalenderrechnungen"” 
KA101 und "Bewegliche Feste” KA102, 


STATUS; SIZE 012 Tastenzuordnungs LHL A STAIT 


USER ON LEL B Vollmond 
LEL C Neumond 
Progranmapeichers 
165 Bytes, 24Reg. 
Unterprogr.KA101 64Reg. 
” KA102  55Reg. 
Speicherliate: ROO | vom Programm KA101 Flagss 01 Neumond 
RO6 ) belegt 02 Steuerung des UP KA102 
RO? ?Vollmond im Jahr 03 ) Steuerung des UP KAi01 
RO8 ) vom Programn KA102 04 
R11 ) belegt ! 


Das Datum wird in der Form M,TTJJJJ angezeigt. 


Programmablauf: 

START mit Taste A, nach Aufforderung durch den Rechner das Jahr eingeben, 

der Rechner hält mit der Anzeige der goldenen Zahl an, wenn kein Drucker ange- 
schlossen ist, mit R/S fortsetzen. In der Anzeige erscheint die Tastenzuordnung 
für die Programmfortsetzung. Zur Berechnung der Newmond-Daten Taste C, zur 
Berechnung der Vollmond-Daten Taste B drücken, Auf die Abfrage '!?7M! ("74 !) 

ist einzugeben, der wievielte Vollmond (Newnond) im Jaufenden Jahr berechnet 
werden soll. Das Ergebnis wird angezeigt, bzw. gedruckt. Mit R/S kann der nächste 
Termin berechnet werden. Wenn die Unterprogramme nicht sehon geladen sind, sind 
sie nach Aufforderung durch den Rechner einzulesen, 


Rechuerkonfiguration: 24 12 53 ARCL X 
2 Memorymodule 25 REL 97 sa AYIEN Datum anzeigen 
en) 26 1 551 
(Kartenleser) 27 - 56 ST+ 67 Ereignis +1 
28 x)1? S?RECLOT 
AteLPL "ROND” 29 CT0 02 Ende des Jahres 53 610 91 nächstes Freignis 
2er a Programstart 29 29,517 SIeLBL @B . 
Wr sf 82 ı1« 6a cr 2ı UP einlesen 
B4eL BL 83 32 RCL e2 61 "RPRG. BEWFEST“ 
“2 337 + 62 AVIEM 
86 XEQ “BENFEST” Aufr,UP 34 -15 63 RSUB 
75H 35 xoY 64 GTO 83 
a2 CO 08 26 F9 91 65LBL 82 Programmende 
89 38,55 7* 66 BEEP 
SE Taatanraanring. a am 
Pin “O7: ,omuln. m 
ii fi > 2m 
Ki ”-. u ® no- - ı 
..w ei m. 
Ir PR" 4 X ka, Detwm berechn. LE ’MORL 
17 670 9 45 ASTO Y Ex 165 BYTES 
I8LBL 8 4 E07 01 
RE CFO1 für M a7 m 
3 
21 PROrPT N A 
RB 9 J 
22 STO 97 a 


52 ARCL Y 


eine nenne rn rer par. ER ERS Ben 
Walter N Sc a 48700. Leoben EIN KA108 Ü 


Das Prograsm berechnet aus den Eingabens längste Periode, kürzeste Periode, 
letztes Regeldatım die fruchtbaren Tage und den Zeitpunkt der nächsten Regel nach 
der Methode Knaus-Ogino. Für die Anwendung des Programs ist auf die einschlägige 
Literatur zurückzugreifen, Wenn ein Drucker angeschlossen ist, wird ein Kalender 
für die nächsten 40 Tage mit Kennzeichnung der fruchtbaren Tage und des Eintritta 
der nächsten Regel ausgedruckt. Der Druckstreifen enthält auch ein Diagramm zur 
Eintragung nach der Zyklotest-Methode. 

. Die Anzahl der Tage zur Berechnung der fruchtbaren Tage ist in Programzeile 
91 und 98 gespeichert. Es lassen sich hier leicht Änderungen vornelmen. 

Das Programm verwendet als Unterprogramm das Programm "Kalenderrechnungen" 

KA101. 


STATUS SIZE 015 Tastenzuordnungs LEL Aı neues Regeldatum eingeben 
USER ON LBL Bs fruchtbare Tage 
Programmspeichert LEL C: nächste Regel 
454 Bytes, 65Reg. LEL Eı Regelkalender drucken 


Speicherlistes ae Programm KA101 
RO7 Zwischenspeicher 

ROS letzte Regel A3 

RO9 kürzeste Periode PK 

R10 längste Periode PL 

R11 Beginn der fruchtb. Tg. A5 
Ri2 Ende der fruchtb, Tg. A6 
R13 Nächste Regel frühest A7 
Ri4 Nächste Regel spätest A8 


Das Datum ist in der Form MM,TTJJJJ einzugeben, Falls das Program KA101 nicht 
schon im Speicher steht, ist es nach Aufforderung durch den Rechner einzulesen. 


Programablaufı 

XEQ 'REKA', nach Aufforderung 'HDAT' Karte mit Datenspur einschieben. Es wird die 
Tastenzuordnung angezeigt. 

Eingebe eines neuen Regeldatumss A, angezeigte Werte können durch Eingaba korri- 
giert werden, mit R/S fortsetzen bis zur Aufforderung 'REG.-DAT?'!. Neues Regeldatum 
eingeben, R/S, nach Aufforderung 'WDAT'! Datenkarte zum Festhalten der neuen Werte 
«inschieben. 

Anzeige der fruchtbaren Tageı B 

Anzeige der zu erwartenden nächsten Regels C 

Ausdruck eines Regelkalenders: E 

Für die Anlage einer neuen Datenkarte ist wie unter "Eingabe eines neuen Regeldatıms” 
zu verfahren. Es werden im allgemeinen zufällig im Speicher stehende Werte angezeigt. 
Es müssen die richtigen Werte für 'L.RG.'! (letztes Regeldatım) eingegeben werden. 

Für 'MIN.P.' und 'MAX,P.' ist, falls noch keine Erfahrungswerte vorliegen, 28 einzu- 
geben. Diose Werte werden dann bei jedem neuen Regeldatum automatisch korrigiert. 

Am Ende jeder Berechnung kann mit R/5 die Tastenzuordnung in die Anzeige gerufen 
werden. 

Fir die Anwendung der Programmteile B und C braucht nur die Spar 1 und 2 des Programs 
im Rechner zu stehen, Wenn kein Drucker verwendet wird, braucht daa Programm mur bis 
Zeile 125 eingegeben werden. 


BRechnerkonfiguration: 
2 TeuermAadır“ so 


rer nr 
Tuer (LE SSWEREST. 


acnvung . DIE UGr. fa 105 une iin 106 nenätiger. Cie ın Daiendem. 
haltenen Unterprogramme ! Sie werden hier als Ergünzung zun Lösunssbuch verstanden, 


UP Kalender 
OJovı A} 
berechnen 


DJ ousgeb. 
fondern) 


Pointerz) 
sr 0) 


UP Kalender 
AJous DJ 
berwchnen 


PR avaged 
tondern) 


PL ousgeb. 
fandern} 


Pointers5 
£0 
cF22 


UP Kolender UP Kolender 


05 0u8 45 DYausA? 
Derechnen berechnen 


Pointer=& 
Sf 0) 
c£ 22 


UP Koiender UP Kolender 
DE avs Ab 00 0us Ad 
berechnen berechnen 


05, D6 07,08 
ousgeben ausgeben 


Togeszoni 


0! wlendes Dofurn für Kolenderausdruch 

0) Ietzte Regel 

03 Beginn Iruchtb. Toge 

06 Ende fruchtb. Tage 

07 nöchsfe Regel, frühester Termin 

08 nöchste Regel, spätester Termin 
kürzeste Periode 
tängste Perlode 


AUzAJ+A 
AdzAd- 14 


Flußdiagramm Regelkoiender” 


Dotenkor! 
einlesen 


Indeareile 
drucken 


Al = AI 


UP Kolender 
D aus A} 
berechnen 


Wolter Kropf SchnowitzstroNeM A-8700 Leoben 


Programm „Rey :alender” 
Walter Kropf Schö Ironie !k A-8700 Leoben 


B1+LBL "REKA* 
02 “RBAT“ 

03 AYIEN 

84 RDTA 
6LBL 65 
66: °RB FT HR RK" 
87 PROMPT 
oB+LBL C 

89 "N. REG.“ 
18 14 

11 CT0 91 
12+LBL BD 

13 °F. TAGE“ 
14 12 

15eLBL 91 

16 FC? 55 
I? cr 21 

18 AVIEN 

19 CF 22 

20 XEQ 09 

21 ASTO 87 
2 RL &% 
23 5T0 82 
24 RCL 80 


38 °r:* 

31 ARCL 87 
32 ARCL 92 
33 AVIEN 
34 670 05 
TSLBL 99 
36 SF 83 
37 SF 25 
39 xEU "KAL“ 
39 SF 21 
48 FSC 5 
4 RIN 
42.07 21 
43 "RPRER. KAL” 
44 AYIEN 
45 RSUB 
46 CTO 89 
a7eLBL R 
48. CF 22 
48 

5 xE0 99 
51 "L.Rb.“ 
52 FIX 6 
536 

54 XEQ 08 


558 

56 F5? 22 
57 XE 89 
58 FIX 8 
59. “NIN.P.=" 
68 9 

61 XER 8 
62 "NAX.P.=" 
63 18 

64 XEO 88 
65 FIX 6 
666 
62.510 87 
68 "REG. DAT?" 
69 XER 94 
78 FC? 22 
21 610 8 
721 

73 XEQ 89 
74 RCL 81 
75 ENTER? 
76. X0 08 
7 - 

78 RCL 89 
I XOY 

@B xy? 
81x09 
82 RCL 18 
83 xOY 
7? 

85 x0) 18 
B6eLBL 03 
87 RCL 88 
88 RCL 89 
89 + 

98 STO 13 
91 18 

%2 - 

93 SO 11 
9 RCL 88 
95 RCL 18 
%+ 

97 STO 14 
nu 

%9- 

188 STO 12 
181 CF 21 
182 FIX 8 
183 “DAT. * 
184 ARCL 89 
185 °H:* 
106 ARCL 18 
187 ‚014 
188 FIX 2 


189 AVIEN 
110 WDTAX 
111 610 05 
112sLBL 09 
113 STO 67 
114 ARCL IND 87 
115eLBL 84 
116 CF 22 
117 AVIEN 
118 FS? 55 
119 STOP 
126 FL? 22 
121 RTH 
122 F$? 55 
123 PRX 
124 STO IND 87 
125 RTN 
126+LBL E 
127 SF 21 
128 SF 6 
129 11,014 
136 ST0 02 
131 1,84 
132 STO 87 
133 12 

134 SKPCHR 
135 7-4 36,9 +4° 
136 ACA 
137 PRBUF 
138 SF Al 
139 CF 22 
148 CF 085 
141 RCL 08 
142 STO 81 
143 SF 28 
144+LBL O8 
145 1 

146 XEO 99 
147 ASTO X 
148 RCL 07 
149 CLA 
158 FIX 0 
151 18 

152 97? 
153° ° 
154 ARCL Y 
155 ARCL 2 
156 FIX 2 
157 FS? Qt 
158 FIX 6 
159 ARCL 86 
168 ACA 
161 FC’ 
162 XEQ 87 


163 PRBUF 
154 1 

165 RCL IND 82 
166 FS? 95 
157 + 

169 I 

169 RCL 01 
179 + 

171 STO 9 
172. XOY 
173 %=Y9 
ı74 XEO 66 
175 XV 
176 156 87 
177 GTO 8 
178. CF 85 
7% CF 28 
188 ADV 
31 ADV 
182 ADV 
183 ADV 
184 ADY 
1895 BEEP 
186 RTN 
197+LBL 86 
188 FC?C 96 
39 RTH 
:90 156 & 
{91 SF 86 
a2 FS%C 85 
{93 RTH 
194 SF 85 
95 RTH 
:I6+LBL 97 
:97 42 

98 FS? 85 
‘99 ACCHR 
288 2 

291 85? 85 
282 1 

203 SKPCHR 
294 46 

205 ACCHR 
296 ACCHR 
287 ACCHR 
288 ACCHR 
209 124 
218 RCCHR 
il xoOY 
212 ACCHR 
213 ACCHR 
21% ACCHR 
215 ACCHR 
216 END 

BL "REKA 
END 454 


'Syetehiköhfigurmtion: 3 


000. 00000 0000 00 


B 


000 


0, 
0000 Ko 0,0 
80" Hooo, i 


ooo” Boooo 8 Po Booo 


B 


Dieses Prograzm simuliert ein Pferderennen Über 1 Meile für 
3 jährige Vollblute. Der Spieler kann bis zu zehn Wetten auf 
die 8 Pferde setzen. 

Es gibt 3 verschiedene Wettarten (Positionen): 


1) auf Sieg (1) 

2) auf ersten und zweiten Platz (2) 

3) auf ersten, zweiten und dritten Platz (3) 
Gestartet wird das Programm mit XEQ "DERBY" „ worauf Sie der 
Computer zur Eingabe einer Anfangszahl auffordert. Danach wird 
die Pferdenunzer, der Pferdename sowie wie das jeweilige Pferd 
gesetzt ist, ausgedruckt. Danach können die wetten plaziert 
werden. Zuerst wird äie Pferdenumser (1...8), dann der Einsatz 
(...800 $ ) und schließlich die Position (1...3) eingegeben. 
Sind schließlich alle „etten plaziert, wird bei der Aufforder- 
ung "FTZERD IR. ?" einfach. R/S gedrückt. Daraufhin erfolgt in 
1 Minute der Start. Danach werden die Positionen der Fferde 
auf 5 Stationen ausgegeben. Außerdem wird ausgegeben wieviele 
Pferdelängen die jeweiligen Pferde hinter dem führenden liegen. 
xach dem Zieleinlauf werden die Wetten ausbezahlt und der ge- 
sante Gewinn bzw. Verlust berechnet, 


Der Spieler steht am Eingang eines Labyrinths. Dieses 25x10 m große 
Labyrinth soll er auf dem kürzesten Weg durchqueren. Um einen Vergleich 
zu erhalten, wie gut der Spieler war, hat der Computer das Lab. schon 
vorher einmal durchgangen, und der Spieler kann seine Wegstrecke mit 
der des Comp. vergleichen. 

Gestartet wird das Programm mit XEQ"LAB" . Danach wird eine 
Anfangszahl und die Spielstufe eingegeben. Je größer die Spielstufe, 
desto weniger "WMauerstücke" blockieren den Weg. Danach sucht sich der 
Comp. ein Labyrinth Die lange Laufzeit des Aussuchens ist leider der 
kachteil dega Programmes. Dann geht der Comp. selbst durch das Labyrinth. 
Der wahre Grund warum er dies. tut ist folgender: Bei dem Lab., welches 
der Comp. sich aussucht, kann es vorkonzen, daß es keinen leg hin- 
durch gibt. Wenn jedoch der Comp. einmal durch das Lab. geht, und alle 
Kauersteine die ihu in den Weg geraten niederwalzt, gibt es sicher 
einen Weg durch das Lab. ‚nämlich den des Comp., Deshalb ist es auch 
sehr schwierig die Wegstrecke des Comp. zu unterbieten. 

Der Eingang des Labyrinths ist bei der Koorädinate 1/5. Auf die 
Aufforderung "ZUG ZX,YN " (X,Y ist die momentane Positon) wird eine 
Kichtungsanweisung eingegeben: 


6esos00,...nmach rechts . 

Arceoe.e...mach links 

B.oe00.....nach oben 

®seeneec...nach unten 
Ist der Weg in die eingegebene Richtung frei, so hat der Spieler 
im zurückgelegt. Ist der Weg blockiert, so erscheint "XX-STOb-AX", 
und der Spieler hat einen halben Meter zurückgelest, ohne wirklich 
weiterzekonnen zu sein. Hat der Spieler den Aussans (X-Koordinate 26) 
erreicht, kann er die Wegstrecken vergleichen. will er jetzt noch das 
Lad. sehen, so kann er es mit "PRLAB" ausdrucken lassen. 

Will der ‚Spieler noch einmal von vorne anfangen (weil er keinen 

Ausgang fand), so kaan er dies mit XEQ A. 


Bl Man 
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‚PROGRX:M " BIL" 


Zuecr: Ermittelt aus einem System,welches im thermodynamischen 
Gleichgewicht steht und welches aus max. 10 Hassen- 
strömen (m,) mit den Wärmeinhalten (h,) besteht,sowie 
einer zu-biw. abgefiihrten Leistung (P}, Jeweils zwei 
unbekannte Größen. 


D.E.: - m undm, (no Flag) 
m und P carcı N 
- m] und h, SFO2 


Anwendungs- 
beisniele; Thermodynamische Komponenten von Chemieanlagen, 
Liftungsanlagen,Dampfkraftwerken etc. 


Berechnungsansatz:Thermodynamisches Systen im Gleichgewicht. 


mh: 


Zugef'ihrte Massen und Leistung 
sind positiv einzugeben. 
Abgefihrte Massen und Leistung 
sind negativ einzugeben. 


Massen bı /ane 


En er gie db las 


Auflaung nach m, my: (CF 04, CF OR) 
ıo0 Dr) 7) 
mi TS mom m -(2 my "Zmch, -P). Var -44) 


v=3 
Auflösung nach Pa: (SF 07) ‚ 
ma“ 2 mi PP» "2, mh "mahg 
Aufloaunyg, mach my, hr: ah 
mar 2m a’(-P 2m) Yma 


“.z 


Dime®bnen:Diese können frei gewählt werden.Sie missen nur z 
einander passen. 
2.B.: Masse in ke/s 
#ärmeinhalt in kJ/kg 
Leistung in KW 


Speicherbelegung: Erforderlich ist SIZE 033! 


STO oo P 
o1 m] 
10 mo 
2 h, 
20 Bo 
21 
22) Hilfsspeicher 
23 


24 Anzah) der N 
a nm shy,hiyhymy ,n...inZREG 


51 
32 Hilfsspeicher 


Programmanwendunz: 


0.Size 033 
1.Magnetkarten laden.(5 Spuren) 
2.XEQ BIL Der Rechner zeigt die drei Lösungsansätze 
- ws -NO FLG Mi,M2 
R/S -5F O1 P, “u 
-SF 02 Hl, Hl 


3. Gewinschtes Flag setzen bzw.R/S falls Rechner bereits im 
richtigen Status. 
4. A (im le): Eingabe neuer bzw. Überprifung alter Werte 


5.E& . :Falls die Eingabe komplett bis zum letzten 
Element erfolgt,wird automatisch gerechnet 

6. D ® sAusgabe der Ergebnisse erfolgt automatisc 
nach E. 

Ta " :Falls Drucker angeschlossen,werden alle 


Werte incl. der Ergebnisse Ausgedruckt. 
Weiterentwicklung des Programms: 


Mir schwebt vor Programm BIL zur Berechnung 
kompletter Kreisläufe zu erweitern.kon- 
kret denke ich an Kraftwerkskreisläufe mit 
Kesseln,Turbinen, Speisewasservorwäürmung etc 


Hierzu wäre aus meiner Sicht erforderlich: 
-Kreislaufbeschreibung mit Kennzahlen 
-Vorgabe einer Rechenfolge fr die einze 

nen Komponenten. 

-Vorgabe eines Iterationszieles 
-Unterprogramm zum Umspeichern der Daten 
einer Komponente in den Arbeitsbereich 

von BIL 


Wer hat Interesse? 


BıriLBL °DEREY* 

CLRG FIXB CF 3% 

SF 12 "OCXlı" PROMPT 
STO 08 ABV " BERBY“ 
PRA „82 


t3+LEL 16 
CF IRB X ISCK 670 16 
1.866 STO 89 


19+LBL 89 

16 XEO Se IKT I KOY 
K=Y? 2 #5? INDX 

610 89 SF IND X 

570 IND 99 156 89 

610 09 2.866 STO 89 


3eLBL 12 
RCL 69 STO 16 1 - 
RCL IND X 


4irLbL 13 

RcL IND 18 Kr? XOY 
STO IND 10 RIM 156 18 
6T0 13 STO Ind Y 

1SC 09 6T0 12 1.988 

ST 89 CF 12 CF 13 


S6eLBL 16 
RCL 89 RCK XEO IND 89 
--RRCL IKB 89 il® 
RER PRBUF IS 69 

C10 16 AV 

“POSITION: * 

-+1,2 ODER 3° PRA 
“EINSATZ: * "rBIS 888$° 
PRA 20.829 STO 09 


76+LBL 19 

9 PFERD KR. 9” PROMPT 
%=6? GIO 17 STO IHB 89 
EINSATZ 9° PROMPT 

REL 89 19 - WETTE” 
ARCLK "r:* PRA REN 
CLA ARCLX "+6 AUF“ 
ACH RCL IND 89 

KEg IRBK XOY 1 EI 7 
FR ST+ IND 09 48 
ACCHR "POSITION 2" 
PROMPT 3 XY? 3 LA 
ARCLY MA XKOY 1 E4 
+ STe IND 99 41 ACCHR 
PRBUF 156 89 GTO 18 


123+LBL 17 
ABV SF 08 
°F NIMUTE* 
sTo 9 


“START IK 1° 
PRA 1.088 


IBIeLBL 08 


18 RCL 09 + LASTK 
INT 1 E& / STOINDY 
1S6 89 CTO 80 21.825 
sT0 &9 


144+LBL 27 
11.618 STO 10 FIX I 


149+LBL 19 

4 XE0 58 4 KEOSO + 
2 7 RCL IND IO 10 * 
FR 1ES # XOr 

RCL IND Y LOG + RAD 
ST+ IND 18 156 18 

610 19 12.918 STO 19 


Ir2+LBL 26 
RtL 19 STO 10 1 - 
RCL IND X 


176+LBL 14 

RCL IND 18 XV? KOY 
$To IND 18 RM ISG 18 
670 14 STO IND Y 

156 19 6T0 %6 

"DRS RENNEN IST * 
"HGESTARTET" FS?T 68 
PRR 11.818 STO 18 
RCL 11 RND 


197 1BL 11 

ST- Ind 18 156 18 

cT0 11 ADV XEQ IND 89 
P0S. PFERD 5 

°+ DAHINTER“ PRA 1.888 
sTo 18 FIX O 


209+LBL 15 

RCL 18 ACK 10 + 

RCL IND X ENTER? 
ENTER? 18 * FRC 1 ES 
* XEQ IND X FIX I RDN 
RD = * KB? ARCLX 
AcA PREUF FIK 6 

156 18 6710 15 156 89 
GTO 27 AM 11.018 

sTo 9 


239+LBL 29 

RcL IND 89 18 = FRC 
1E5 » RC 9 18 - 
INT 18 7 STe IMdY 
156 89 GT0 29 0 

So 12 28.829 STO 69 


259 LBL 28 
FIX 8 RCL 69 19 - 
"WETTE" ARCLK bi" 
RCL IND 69 X=6? 6TO 32 
PRA INT STO 18 

RCL IND 69 FRC 1 EI * 
IRT STO 19 ST- 12 
RCL IND 89 1 EI" FRC 
19 » INT Stoll 

RCL IND 18 FRC 18 ® 
X=Y? 6TO I 
"TERREISSE DEN “ 
“HIETTSCHEIN” PRA 


297+LBL 32 

186 69 6T0 28 FIX 8 
Av "BU - RC 12 00 
"FGENANRST * XC=8? 
"FVERLORST ° "HINSC. ° 
ABS ARCL X "r8" PRA 
sTop 


FI4LBL 31 

FIX 1 RCL IND 89 

RL 19 RCL IND Y INT 
“Ra 7 Str 12 
"BU KASSIERST " ARCL X 
"Hs" PRA 6T0 32 


329181 58 
RcL 08 9821 * „211327 
+ FRC STO 69 = RTN 


339LBL 81 
-MANO MAR - ACA 
RTH 


3IeLeL 62 
- CITATION * AER 
RTH 


7LBL 83 
° WHIRLAMAY ° ACA 
RTR 


351eLBL 04 
° DERBYSTAR " ACA 
RIN 


TS5eLBL 95 
= SERBISCUIT ° CA 
RTH 


359+LEL 86 

= CRLLANT FOX * ACH 
.RTH Bun 

HILL 97 

” ASSAULT "Ma 
RIN 


pas 


Kr 8 
“ CORTON = ch 
RT 


371+LBL 21 
° KURZ KACH * 
"HDEN START" PRA RTN 


I76LBL 22 
" NACH EINER ” 
-FI/4 MEILE“ PRA RTN 


EI HLBL 23 

° NACH BER * 

"HIALBER DISTRRZ" PRA 
RTN 


I66+LBL 24 
" VOR DER “ 
"HZIELGERRDE" PRA RTN 


3FA1LBL 25 
- ZIELEINLRUF® PRA 
‚END. 


FIVITTIERTETEITVETTBT IT 


— 


B1>LBL "LAB“ 

CLRG CF 21 "KKCı“ 
PROMPT STO 88 

"STUFE (1-632° PRONPT 
6 X? 6 KOV 10 7 
1.4 + $T0 28 25 

STO 2% 


20+LBL 08 
9 E-3 ST 27 


23+LBL 12 

RCL 28 XEQ 10 RCL 27 
INT 181% =» ST+ IND 26 
1SC 27 CTO 12 DSE %6 
6T0 68 GTO 15 


36+LBL 10 ' 

RCL E88 9821 = „211327 
+ FRE STOB0 * INT 
RTR 


47oLßL 15 


(Fr 88 FO CB 1 -- 


$T0 38 5 STO II ABY 
2 sto 2 NEO 98 


SILEL 16 

3 XEO 18 28 + 

XEQ IND X XEO 96 18 
RL =? SO 1 
STe 34 X=Y? SF 02 
£T0 16 


TeLBL A 

er2ı 1 ste 5 
So 31 3 STO 32 
KEQ 98 BEEP 9 STO 26 
sto 33 FIR 6 CF 29 


rLbL 8 

"IE ? ("7 ARCL I "4° 
ARCL 31 “H)° CF 22 
WIEN 


9+LBL 85 

PSE FCX 22 61085 2 
+ FRC X? CTOB 
LASTX XER IND X KEQ 98 
1 ST 3 TORE 9 6TOB 


114 LBL. 81 
1 ST- 31 XEO 89 X=8? 
RN 1 STH 31 CTO 11 


123+LBL 92 
1 ST- 38 XEQ 89 Xs0? 
RM 1 ST WM COM 


1I2LBL 93 
1 $T+ 38 XEO 89 %=8? 
RN 1 ST- 39 610 13 


x 


t41LBL 84 
1 ST 4 RER 99 %x0? 
RTR 1 ST- A CO 11 


150+LBL 89 
RCL IND 39 RCL 31 16tX 
2 FRC 18 * INT RTK 


160+LEL 28 

I FOR 08 SF 08 

ST 38 RCL 39 26 X=1? 
cTo A FS? 88 RTN 

cr 01 CF 82 RTN 


IT4LBL 21 

F$? 02 61016 I 
ST- 31 SF 81 CF 88 
RIH 


P2 


IN2LBL 22 

FL CTO 16 1 
st 31 SF 82 CF 88 
RTH 


198 LBL 13 
"35 ML39 x? CI0 2% 


1SABL 11 
“o00-STOP-ses" AYIEN 
THE 9 .5S STB 
ern 


202+LBL 98 

RCL IND 38 RCL 31 101% 
7 FRC 10 * INT 
ka 1 - 1008 © 
ST- IB 38 RL 3 
LASTXK = ST+ IND 30 
RTN 


222+LBL 89 

223LBL "PRLAB” 

SF 12 SF 21 ADV 
"e...SPIELER" PRA 18 
ACCHR *.. „COMPUTER“ 
ACR PREUF ABV 
“EINERNE" PRA 5 
SKPCHR 7 ACCHR PRBUF 
. m -_PRA 
1.825 STO 27 


246+LBL 86 
1.81 STO 28 124 ACCHR 


2SteLBL 87 

Rt 2? INT STO 38 

RCL 28 INT STO 31 

XEO 09 68 + XEQ IND X 
RCCHR 1SC 28 GIO 97 
124 ACCHR PRBUF 

156 27 CTO 86 PRA 
stop ! 


272+LBL 68 
31 RTN 


eT5+LBL 61 
32 RTN 


2ra+Läl 62 
18 RTN 


2stLBL 63 
42 RTN 


284eLBL 26 

TOHE 4 TONE 7 TOKE 5 
TOHE 4 TOHE 6 TORE S 
TONE 4 TORE 7 TONE 6 
TORE 4 TONE ? TONE 4 
Amy SF 21 SF 12 
"WEGSTRECKE:" AVIEN 
"COMPUTER * ARCL 34 
-Pn- AYIEN "SPIELER 
ARCL 33 “HAT AVIEN 
AOR -PLOT J-#?“ PRONPT 
MOFF ASTOX "J" 

AsTo v X=Y? 610 88 
«END. 


B1*LBL "BIL 


02 
03 
04 


85 
@6& 
07 


88 
89 
19 


11 
12 


sFr 27 
ca 
"NO FLG« 
M1L,M2“ 
FROMPT 
cLa 
"SFOL=P, 
Mi” 
PROMPT 
CLA 
"SFO2xHl 
‚Mi1” 
PROMPT 
GTo A 


13+LBL 298 


14 
15 
16 
17 
18 
19 
20 


EREG 25 
cLE 

REN a4 

RCL 21 

18.613 

+ 

stTto 22 


21+LBL 9l 


22 
23 


24 
25 
26 
2? 
28 
29 


RÖOL 
RCL 


+ 

1 

ST+ 22 
ISG 21 
GTOoO 81 
RTN 


36+LBL 66 


31 
32 
33 
34 
35 
36 


RCL 25 
RCL 11 
‚2 

RCL 98 


RCL 29 


RCL 12 
RCcL 11 


z 

sTo 82 
RCL 25 
CHS 
RCL 62 


sTto 21 
RTN 


49+LBL 


58 
Si 
52 
53 
54 
55 


2 
FS? 
GTO 
FS? 
GTO 
3 


56+LBL 


57 
583 
59 
68 
61 
62 
63 
64 


STO 
RCL 


1 E3 


A 
RCL 
+ 
STOo 
RTN 


65+LBL 


66 
67 
68 
6% 


RCL 
CHS 
sTo 
RTN 


: 78+LBL 


ri 
r’2 
73 
2 v4 
" 75 
76 
77 
78 


RCL 
CHS 
RCEL 
RCL 
* 

STO 
RTN 


TI9+LEL 


89 
81 
82 
83 
54 
85 
86 
87 


RCL 
CHS 
RCL 


RCL 
«. 

sTto 
RTN 


n 83+LBL 


89 
98 
9 
92 
93 
94 
95 


FS? 
GTO 
FS? 
GTO 
xE@ 
sEQ 
GTO 


96+LBL 


97 
98 
99 
188 


SsEQ 
xEQ 
xEQ 
GTO 


01 
18 
e2 
11 
26 
06 
D 


18 
28 
87 
08 
D 


I161*LBL 11 


182 
103 
194 


xEQ 28 
xEQa 87 
xEQa 89 


185+LBL D 


186 


122 


TONE 1 
sr 2ı 
CLA 
“.Mi="* 
ARCL 21 
RCL 01 
xEQ IND 

32 
Fs? 02 
GTO 13 
FS? 01 
GTOo 14 
CLA 


123+LBL 13 


124 
125 


126 


127 
128 


129 


ca 
“Hi="* 


RCL 11 

xE@ IND 
32 

GTO 19 


138+LBL i4 


131 
132 
133 
134 
135 


136 


cLAa 
“p=" 
ARCL 86 
RCL 88 
REQ IND 

32 
RTN 


137+LBL 19 


138 
139 
148 


141 


cıA 

“ ENDE” 

xEQ IND 
32 

STOP 


142+L6L A 


143 
144 
145 
146 


FS? 08 
GTO 
25 
sto 32 


147 LBL "ART 


148 
149 
156 
151 


152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 


"ANZe- 
RCL 24 
ARCL 24 
xE@ IND 
32 
sTo 24 
FS? 88 
GTO B 
CLA 
ae Pi + 50 
ASTO 81 
FS? 01 
GTo 22 
FS? 02 
GTo 23 ’ 
ASTO 82 
GTo B 


164+LBL 22 


165 


ASTO 88 


289 
210 


211 


RTN 


212+LBL 25 


rt Heispiel Eingabe: 


xsEQ A 
ANZ=3.08 ; 
Run 
j P=8,008 
; RUN 
M1-=....XX 
RUN 
H1,=278,80 L 
288,099 RS 
UN 
M2.=....XR S 
RUN .$ 
H2,=2.750.98 |\ 
2.748,08 % 
RUN 
M3, =25,00 
-25,60 RU 


166 GTO B 


167+LBL 23 


168 ASTO 11 


213 PROMPT 


169+LBL B 


170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
188 


xEQ 14 
STO 88 
RCL 24 
1 E3 

+ 

1 

+ 

sTo 21 
18,01 


© 3 
sTo 22 ' 


8i+LBL 15 


182 
183 
184 
185 
196 
187 
198 
189 
198 


xEQ 18 
1 

ST+r 22 
ISG 21 
GTO 15 
FS?C 06 
GTO 19: 
GTO E 
RTN 


191+LBL 18 


192 
193 
194 
195 
196 


ii 


798 


214 RTN —_ 0 Buüh 
M1=-3.46 $ 
zZ15+LBL 26 RUN N 
216 XEQ "PRA m2=21,594 S& 
pe RUN ri 
217 RTN ENDE nn 
218*eLBL 3a 
219 26 
220 STO 32 XEQ 5 
221 SF 88 i PROTOKOLL 
222 CLR 
223 SF 12 ANZ=3 nr 
224 “PROTOKO F=8, 0 
ILL” Mlı=3.46 
225 XEQ@ “ACA H1,=268,63 
m N2,221,54 
226 ADY H2,=2.748,88 
227 nADV w.=-25,86 
223 CF 12 n3,=2. 408,08 
229 "RADY”- ERDE 
238 sER A 
231 RTN 
232 END 


PROGRAMMIERHILFEN FÜR ANFÄNGER 


Der HP-41 C(V) enthält einige Funktionen, deren praktischer 
Zweck nicht jedem Benutzer sofort klar Ast; hierzu zählen u.e. 
RND, MOD und SIGN. Ole Anwendung dieser Funktionen soll im 
folgenden an Beispielen gezeigt werden. 


RND (Seite 78 des deutschen Henbuche) 


RND rundet eine im X-Register stehende Zahl entsprechend dem 
eingestellten Anzeigeformat, und zwar nicht nur in der Anzeige 
sondern auch für alle folgenden Rechnungen mit dieser Zehl. Die- 
se Eigenschaft läßt sich zunächst einmal bei der Rechnung mit 
Mark und Pfennig anwenden, wenn Einzelpreise auch noch Zehn- 
telpfennige enthalten (z.B. die auf Kundenfang ausgelegten 

9/10 Pfennige der Tankstellen), man aber von der Endsumme ab 

nur mit ganzen Ffennigen weiterarbeiten will. 


Ein zweiter wichtiger Zweck der RND-Funktion liegt in der Ver- 
arbeitung kleiner Zahlen. Da ist zunächst die Anzeige von Zahlen, 
die kleiner als das eingestellte Anzeigeformat sind. Bekanntlich 
schaltet der HP-41 C(V) beispielsweise bei Zahlen, die betrags- 
mäßig kleiner als 0.005 sind, automstisch von FIX 2 auf SCI 2 
um, damit auch diese Zahlen noch angezeigt werden. Das ist aber 
häufig vom Benutzer unerwünscht, da dann evtl. die 12 Stellen 
des Displays überschritten oder die Lesbarkeit einer Tabelle 
gestört werden. Führt man jedoch vor der entsprechenden Anzel- 
gefunktion (PROMPT, R/S, PRX oder VIEW__) ader vor der Übernah- 
me einer Zahl ins ALPHA-Register (ARCL__) RND aus, so erscheint 
die betreffende Zahl als D.00. 


Die Eigenschaft, daß die Rundung nicht nur in der Anzeige er- 
folgt, sondern daß die gerundete Zahl auch für weitere Rechnun- 
gen zur Verfügung steht, kann man sich vorteilhafterwelse bei 
Iterationsrechnungen zunutze machen, wenn man die Iterstions- 
genauigkeit durch das Anzeigeformat festlegen möchte. Bel der 
Iterationsrechnung zur Bestimmung einer Zahl x wird häufig von 
einem irgendwie bestimmten Näherungswert x ausgegangen, der 
durch Anbringen einer kleinen Korrektur ax, zu einem neuen 
Näherungsuert Kr ® °n ?+ 4x, verbessert wird. 50 ist beim 


Progremmierhilfen für Anfänger (Fortsetzung) 


Newton-Verfahren zur Bestimmung einer Nullstelle x der Funk- 
tion f(x) diese Korrektur durch ax, = rlR d/ENoR) gegeben. 
Dieses Verfahren wird fortgesetzt, bis die Korrektur x, be- 
tragsmäßig unter einen kleinen vorgegebenen Wert £ gesunken 
ist. Am besten wäre es natürlich, die Iteration dann abzubre- 
chen, wenn dx, = D ist. Das ist aber -nicht zuletzt wegen der 
Rundungsfehler- so gut wie nie zu erreichen. Man kann jedoch 
dx, im Rahmen der gewünschten Anzeigegenauigkeit gewaltsam 

zu Null machen, indem man vor die Abfrage X=D0? ein RND setzt; 
in diesem Falle ist sogar die vorherige Betragsbiidung von. 
dx, durch ABS überflüssig. 


MOD (Seite 79 des deutschen Handbuchs) 


MOD ermittelt den Rest, der bei der Division Y/X bleibt. Ab- 
gesehen von dieser einfachen Aufgabe läßt sich die MOD-Funk- 
tion aber auch in Programmen für andere Zwecke verwenden, was 


hier an zwei Beispielen demonstriert werden soll: 


Im ersten Beispiel soll eine Tabelle ausgedruckt werden, bei 
der die Lesbarkeit durch Einfügen einer Leerzeile rach jeder 
fünften Druckzeile erhöht werden soll. Nimmt man ar, daß sich 
in RDD ein Zeilenzähler befindet, der vor Druckbeginn auf Null 
gesetzt ist und nach dem Ausdruck einer Zeile jeweils um 1 
erhöht wird (1 ST+0OD oder mit ISG 00, dann muß vor Anwendun 
von MOD ein INT gesetzt werden), so läßt sich dieses Problem 
mit RCL 00 (INT) 5 MOD X=0? ADV 1l1dsen: nach jeweils 5 
ausgedruckten Zeilen ist der Zeilenzähler ohne Rest durch 5 
teilber, d.h. in diesem Falle steht nach der Ausführung von 
MOD im X-Register eine Null. 


Das zweite Beispiel führt in die Navigation: alle Irgendwie 
errechneten Azimutwinkel (Kurs, rechtweisende Peilung etc.) 
sollen zwischen ‚0° und 360° liegen; sie liegen jedoch nach 


9 


[ale 7a) 


1 m 


der Rechnung, da sie meist durch Anwendung von sin”, cos , 


tan! 


oder R-P entstehen, zwischen -180° und +180°. Nimmt man 
en, daß der betreffende Winkel im X-Register steht, so wird 
er durch 360 MOD ohne weitere Entscheidungen und Sprungbe- 


fehle in die "vollkreisige" Anzeige umgewandelt. 


in_- ısma 


Programmierhilfen für Anfänger (Fortsetzung) 


SIGN (Seite 85 des deutschen Handbuchs) 


In der Mathematik wird die Signum-Funktion folgendermaßen de- 
finiert: 
-1 für x«<0 
0 
+1 für x>0 


sign(x) = 0 für x 


Die Definition im HP-41 C(V) weicht hiervon etwas ab, indem 

+1 für x = O0 ins X-Register geschrieben wird, D jedoch dann, 
wenn der Inhalt des X-Registers aus ALPHA-Zeichenbesteht. Hier- 
aus ergibt sich bereits die erste Anwendungsmöglichkeit: man 
kann nämlich ohne ALPHA ERROR prüfen, ob ein Register Zahlen 
oder ALPHA-Zeichen (oder als solche "getarnte" Zahlen) ent- 
hält: RCL__ SIGN X=0? 


Häufig möchte mar den Wert, den eine Variable annehmen kann, 
symmetrisch zur Null-Linie auf EL begrenzen. Nimmt man an, daß 
die betreffende Variable im X-Register steht, so bringt SIGN 
LAST X ABS L X<Y? X<>Y RDN „m den gewünschten Begrenzungs- 
effekt: SIGN rettet das Vorzeichen der Variablen über die nach- 
folgende Betragsbildung hinweg, ohne daß zeitraubende Sprünge 
zu Labels gemacht werden müssen. In trigonometrischen Rech- 
nungen muß gelegentlich sin” 'x oder cos” !x gebildet werden; 
hierfür ist -1 # x € +1 Voraussetzung. Durch Rundungseffekte 
kann x aber bei längeren Rechnungen diese Grenzen geringfügig 
überschreiten. In diesem Falle hilft vor Anwendung von sIN 
oder COS”! die obige Befehlsfolge mit L = 1. 

Schließlich eignet sich SIGN auch gut zur Erzeugung einer pe- 


riodischen Rechteckfunktion: f(x) = sign(sin x). 


In den bisher gebrachten Beispielen störte die im HP-L1 C(V) 
verwendete, unübliche Definition von sign(x) nicht. Sollte 
man jedoch einmal die in der Mathematik übliche Definition 
explizit benötigen, so ist das mit X407? SIGN leicht zu be- 


werkstelligen. 


Klaus Werner Hoenow (119) 


Kenpweg' A 


9000 Berlin 27 


Automstieche Anzeige des Zustandes sämtlicher Flags. 


Für elle Freunde des HP - LiC(V), die noch ohne Drucker auskommen müssen, 
ist es etwas mühsam, wenn viele oder alle Flags ebgefragt werden sallen. . 
Das Programm von Rüdiger Schultz (95-81) iet da schon eine gute Sache, aber 
es war mir zu langl 


Nachfolgend meine bisher kürzeste Version: 

Das Progremm zeigt nur die gesetzten Flags an und ist deshalb sehr schnell. 

Wer so schnell nicht gucken kann, sollte hinter Zeile 10 noch ein PSE einbauen, 
ich persönlich halte es für unnötig. 


Dieses Programm, natürlich ohne PSE, ist such für die Benutzung mit Drucker 
sehr interessent, well es mit Pepier und Zeit viel sparsamer umgeht als 'PRFLAC 


Falls das Programm öfter gebraucht wird, sollte man es der Taste -54 (FS7?) 
zuordnen! 
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Werner Stroinski Berlin-Tegel, 13. 8. 81 


Kampweg 78 
1000 Berlin 27 


Schutz der Magnetkarten-Beschriftung. 


Beschriftung der Magnetkarten mit Bleistift oder Tusche ist häufig den Bean- 
spruchungen nicht gewachsen und wird im Laufe der Zeit verwischt und unansehn- 
lich. 

Der Schutz derartiger Beschriftungen läßt sich mit den üblichen Sprühlacken 
durchführen (Merebu, Pelikan u. 8.), eber... was passiert, wenn auch nur ein 
Tröpfchen auf die Megnetseite gerät? MALFUNCTIDN... CHECKSUM ERROR,, usw... 


Einen einfechen Schutz habe ich ursprünglich mit einfachem TESA-Film erzielt, 
den ich auf die Magnetseite klebte, um ihn nach dem Lackieren wieder zu 


entfernen. Das geht aber nur bei den inzwischen selten gewordenen alten Mannet- 
karten gut, die man leicht an der 45"Kerbe erkennen kenn. Bei den neueren Karte 


verbindet sich der Kleber des TESA-Films mit der Magnetschicht so "innig", daß 
man große Mühe hat, wieder leabaren Zustand herzustellen. 


Eine einwandfreie Schutzmäglichkeit der Magnetschicht aller Karten besteht dariı 
die Magnetschicht mit einem Abdecklack (Humbrol-Maskaol) zu schützen. Dieser 
Lack (Modellbau-Artikell) stinkt zwar und sleht such sonst wenig vertrauenser- 
weckend aus, er schützt aber einwandfrei und läßt sich am Schluß der Behandlung 
mühelos von der Megnetschicht abziehen ader abrollen, da er dann gummiähnliche 
Eigenschaften hat. Ir r\efa 


al+LBL ”HX” 
a2 CF 12 
93 SF 27 
o4 CF 28 
e5 CF 29 
Be FIX 8 


87 ,8989 
993+LBL 08 
a9 INT 

13 STO IND 


11 RDM 
12 LASTX 


naupt-Label 
Status- 


Finstellung 


Speichern der 

Hex-Ziffern OÖ 
bis 9 in den 
egistern 00 
is 09 


Sreichern der 


ex-Ziffern A 

bis F in den 
<segistern 10 
is 15 


Stop nur, wenn 
keine Eingabe 
erfolgte! 


orbereitungen 


. Durchlauf 
kennzeichnen, 
berennen,sp2i 
chern der 4 
niedrigsten Bit 
ür später 
Abörennen der 

höchsten Bit 
Prüfung, ob 
von O ver- 
schieden, 
sonst als Hex- 
Ziffer O auf- 
rufen! 


Umwandlun von maximal 8-: 
(Bytes) in 2-stellige Hexade 


49+LBL 985 
52 0 

51 STO 16 
52 RDN 


53 1 E3 
54 xR>Y? 
55 GTO @1 


5-8 
58 ST+ 16 


59+LBL 81 
68 RDN 

61 198 

62 x>Y? 
63 GTO 81 
64 — 

65 4 

66 ST+ 16 


67’+LBL Bl 
68 RDN 

69 18 

8 x>Y? 
71 GTO 01 
2 - 

‚32 

4 ST+ 16 


75+LBL 81 
76 RDN 
77 ST+ 16 


78 xX=0? 
79 GTO 84 
so ıi 

81 xX=Y? 
82 GTO 94 


83 "H?" 
84 GTO 03 


85+LBL 94 
86 ARCL IND 
16 

87+LBL 03 
ss FC? 08 
89 GTO 22 


98 FC? 55 
91 AVIEN 
92 ACA 

93 ADV 

94 RTN 


Sammel-Reg. 
löschen. 


Untersuchung, 

ob 1. bzw. 5. 

Bit den Wert O 
oder 7 hat,im 
letzten Fall 

8 speichern! 


Untersuchung 
des 2. bzw. 6. 
Bits, 4 addie- 
ren, falls 
dieses Bit£ O 
war. : 


Untersuchung 
des 3. bzw. 7. 
Bits, 2 addie- 
ren, falls 
dieses Bitf O 
war. 


Wert des 4. 
bzw. 8. Bits 
addieren. 


Prüfung des 4. 
bzw. 8. Bits 
auf O oder 1, 
falls anderer 
Rest bleibt, 
Fehler-Symbol 
vorbereiten! 


Hex-Ziffer auf 
rufen,anfügen. 


Wurde 1.bis4. 
Bit bearbeitet? 


Fehlt Drucker 
Anzeigen! 
Buffer laden, 
drucken! 
Programn-Stop! 


‚telligen Binärzahlen 


zimalzahlen. 


95+LBL 82 
96 RCL 17 
971 Eq4 
9s* 

99 SF 08 
188 GTO 85 
181 END 


182 BYTES 
TOT. REG. 
SIZE 818 


USER MODUS: 


A 
BEISPIELE: 


9 BIN=HEX 89 
1 BIN=HEX O1 
dit BIN=HEX 07 


121 BIN=HEX 8? 


FALSCHES ZEICHEN IN 
2. HALBBYTE. 


18181018 BIN=HEX AA 
{1111111 BINZHEX FF 


12111910 BIN=HEX ?A 


FALSCHES ZEICHEN IM 
1. HALBBYTE. 


51191411 BIN=HEX 


FALSCHE ZEICHEN IN 
BEIDEN HALBBYTES. 


108118111 BIN=HEX ?7 
MEHR ALS 6 STELLEN, NUR 
DIE 4 NIEDRIGSTEN WERDEN 


BEARBEITET. 


sea 22322sszesszen 


Rückruf und 
Regeneration 
des 5. bis 6. 
Bits, 


2. Durchlauf 
kennzeichnen. 


Register- 

Inhalte: 

00: 0 

01: 41 

02: 2 

0:3 

04: 4 

05:5 

06: 6 

07: 7 

08 8 

09: 9 

410 . an 

11 s "pn 

12: "CH 

13 . pe 

14 : "E" 

15 P pn 

16 : Adresse 
für Hex- 
Ziffer 

17 : 5. bis 8 
Bit 


B Binär > Hexadezimat 


Stroinski, Äug. 81 (82 


HXIA USER SIZE 8, 


Programm-Beschreibune: 


Die eingegebene, aus den Ziffern 

O und 1 aufgebaute, maximal B-stel- 
lige Binärzahl wird in 2 je 4-stel- 
lige Teile aufgetrennt, die jeweils 
eine Stelle der Hexadezimaizahl er- 
geben. 

Dazu wird die 4-stellige Binärzahl 
als Dezimalzahl angesehen und nach- 
einander versucht, 10U0 bzw. 700 bz 
40 abzuziehen, ohne ein nezatives 
Ergebnis zu erhalten. Falls möglich 
werden die Subtraktionen ausgeführt 
und der Stellenwert des bearbeitete 
Bits im Register 16 aufsumsiert.Der 
Wert des letzten Bits wirä dieser 
Summe zugeschlagen und ersibt die 
Adresse der aufzurufenden dex-Zifte 


Damit auch die korrekte Ei:.gabe kon 
trolliert wird, ist beim rieorigste 
Bit jeder Gruppe eine Früfung auf O 
oder 1 vorgesehen, da nur ijiese Wer 
te auftreten dürfen. Bei abweichen- 
den Werten wird an die Stelle der 
Hex-Ziffer ein "?" eingefügt. 


Progranmn-Benutzung: 
1. Programm eingeben. 
2. XEQ 'HX' : 
3. Binärzahl eingeben, dabei nur 
die Ziffern O und 1 verwenden! 


4. XEQ 'A' 
(Bei erstmaliger Benutzung des 
Programms darf Schritt 3 auch 
vor Schritt 2 ausgeführt werden, 
Schritt 4 wird dann überflüssig) 


5. Nächste Binärzahl eingeben, 
weiter bei 4. 


Bei Benutzung ohne Drucker werden 
Binär- und Hexadezimal-Zah\ neben- 
einander, getrennt durch eine Lücke, 
angezeigt: 


10101010 AA 


Es können dann die Zeilen 33/92/90 
37/36/32 ersatzlos gelöscht werden. 
Das Programm ist dann nur noch 

164 Rytes lang und benötigt insge- 
samt nur noch 42 Register! 


Andreas Stiens Münster ,20.07.1981 
Dammstraße 1 j j 
48400 Miinster 

h30 


Liebe Club[reunde! 


Die Nehauptung Olivers aus Trisma 196,197-B1,daß 
die Clubmitglioder mit höherer Nummer ziemlich 
passiv seien konnte ich nicht auf mir sitzen lassen. 
Fürs Erste schicke ich nıal zwei Spielprogramme, 

Da wir uns ja im Zeitalter «des Energiesparens 
befinden und das Autofahren immer teuerer wird, 
schicke ich zwei Autorennspiole. 

Leider sind mir die Magnetkarten ausgogangen,ich 
habe gerade erst neue bei Ulli bestellt,so dafs 

ich die beiden Spiele noch nicht auf Magnetkarten 
mitsenden kann. 

In irgend einem Irisma (ich kann es nicht wieder- 
finden) wurde zum aufstellen von Vermessungsprogr. 
aufgerufen,ich habe schon eine ganze Anzahl zu- 
sammen,zu denen ich allerdings noch eine Erläuter- 
ung schreiben muß.Ich werde sie Oliver nach und 
nach zuschicken. 


Autorennen nach Koordinaten 
Co Prem Reg. 


SIZE olio 

001 LÜL’R 030 LAL 02 

002 CLiG 031 STO 38 

003 FIX 0 032 29,035 
ooh'v/n.:7,14,21,28 033 STO 39 

05 PrOMIT 034 LUL 03 
oo6'X:_2,9,16,23 035 RCL 38 

007 PRONTT 036 IN 
ooß'Y:_3,10,17,24 037 STO IND 39 
009 AVIE.N 038 15G 38 

olo ITN 039 15SG 39 

o11 LOL'AA o5o GTO 03 

o12 1 oh1 LDL'’EF 
013. 5TO 36 oh2 RCL IND 32 
o14 1,1 oh3 STO IND 33 
015 GTO o2 oh4 'a,A 7 

016 LBL'AB 055 PRUNPT 

017 2 ol6 ISG IND 34 
018 STOo 36 oh? 1 

019 8,1 oAh8 STO IND 32 
020 GTuU 02 0X 9L 

021 1.IL’AC 050 2 

022 3 051 / 

023 Stu 30 052 ST+ IND 29 
o2h4 15,1 053 NCL IND 29 
025 GTO 02 o5Ah RCL IND 35 
026 L'SL’YAD 055 3,6 

027 hı 056 / 

028 5T0 36 057 Xf=Y? 


029 22,1 058 STO IND 29 


RCL IND 32 
RCL IND 29 
P-R 

ST+ IND 31 
xoY 

ST+ IND 30 
RCL IND 33 
180 

+ 

RCL IND 32 
3 

1/x 

3 

ABS 

RCL IND 29 
x)Y? 
GTO'UE 
XEQ'UN 
RCL IND 29 
3,6 

= 


Va 


ARCL X 
"E_KN/H 
AVLIEW 

PSE 

'Yz 

ARCL IND 31 
® r_XIa 

ARCL IND 30 
AVIEW 


!e_HAT_SICH 
AVIEw 
"UEBERSCHLAGEN 
AVIENW 

RTN 

LBL'UN 

RCL 02 

RCL 09 


RCL 03 
RCL 10 
XEQ oil 
x»Y? 

xeqQ 1 
RCL o2 
RCL 16 


RCL 03 


113 
114 
115 
116 


117 


118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 


132 x 


133 
134 
135 


136 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
15h 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 


RCL 17 


167 LBL '4 
2 u._3 
169 ASTO 37 
170 GTO 'U 
171 LöL '5 
'2 u. 
173 ASTO37 
174 GTO 'U 
175 LBL '6 
'3_ U._h 
177 ASTO37 
178 LBL'U 
"WAGEN_ 
180 ARCL 37 
181'-_SIND 
182 AVIEW 
183 °'ZUSAMNEN 
184 *.GESTOSSEN 
185 AVIEW 
186 RTN 

187 LHL '2z 
188 CLA 

189 ARCL 06 
190 '»S_ 
191 ARCL 13 
192 '»S_ 
193 ARCL 20 
194 °.S_ 
195 ARCL 27 
196, '»35 

197 AVIEN 
198 END 


Das Programm 
kann von 1-4 
Personen ge- 
spielt werden. 
Starten mit 
xEgQ *R 

Ymax in km/h 
in R 7,14,21, 
28 eingeben. 
R/S 
X-Koordinaten 
in R 2,9,16,23 
eingeben 

R/s 
Y-Koordinaten 
in R 3,10,17, 
25 eingeben. 


wird mit weniger als vier Autos gespielt,so 
brauchen auch nur entsprechend woniger Daten 
einszeseben werden.Allordings sollten für nicht 
benutzte „sagen die X-oder Y-Koordinate anders 

seien als bei jedem anderen Wagen,da der Itechner 
sonst laufend Zusammenstöße meldet.Das Gleiche 

silt nach Unfällen,hier sollte auch eine kKoordinate 
jedes am Unfall beteiligten Wagens geändert werden, 
ds der techner don UnLall sonst immer wieder meldet. 
Man zeichnet sich auf cin Dlatt kariertes l’apier 
ein koordinatensysten,Maßstab des Koordinaten- 
systems bestimmt die Länge des Rennkurses,und 

einen belicbirsen ftennkurs. 

Nun trägst man die Startkoordinaten in den Ilenn- 
kurs ein und startet mit XEQ "AA,AD,AC,AD je 
nachdem welcher wagen benutzt werden soll.Der 
Rechner zeigt dann '!a,{. a ist die Beschleunigung 
(negativ einserxeben Bremsung) und Ä ist der Winkel 
bezogen auf den Öinheiltskreis. 

“ird eine kurve zu schnell durchfahren erscheint: 
'"WAGTZN HAT 3ICH VEBMTSCIHTAGEN, 

konmen sich zwei oder mehrere Wagen zu nahe (/ 1m) 
erscheint: !AGEN N U. M 5IND ZUSAMMENGESTOSS"N 

llat ein Fahrzeug die dm Anfang eingegebene Geschw. 
Vmax. erreicht;so kann zwar weiter eine positive 
Neschleunigung eingegeben werden,der itechner 

hält den vagen aber auf Vmax, 

Die gefahrenen Zeiten können mit XEN 'Z abgerufen 
werden,sie erscheinen inder .teihenfolge A\,AR,AC,ADI 
Beispiel fir einen :{ennkurs,den ein wagen durchfuhr, 
die eingegebenen Winkel sind richtig dargestellt, 


rec” 


Autorennen nach Anzeige 
64 PRGM Reg. 


SIZE 009 

001 LDL 'AB oh8 LBL 00 095 LUL 10 
002 '!v? o49 RCL 01 096 STO 03 
003 PROMPT 050 ST+ 07 097 XEQ "GA 
oo4 STO o1 051 XEQ 'GA o9B FS? o1 
005 FIX o 052 FS? oil 099 XEN 21 
oo6 CF 29, 053 XEn) 21 100 FS? 02 
007 "AUGENBLICK o54 FS? 02 101 XEQ 20 
008 AVIEW 055 XEQ 20 102 XEQ IND 03 
009 & 056 5 103 AVIEW 
olo STO 03 057 XEQ IND 03 104 PSE 

oil CLX 058 SF oo 105 "UNFALL 
o12 STO 07 :059 AVIEW 106 AVIEW 
013 STO 06 o6o PSE 107 DEEP 

o14 LBL 11 061 AVIEN 108 BEEP 

015 CLX 062 CF oo 109 'GEFAIREN:_ 
016 STO 06 063 5 110 ARCL 07 
017 CF oi o6b4 - 111 '-_NETER 
o18 CF 02 065 1,7 112 AVIEW 
019 CLA 066 / 113 RTN 

020 ASTO 05 067 RND 114 L3L 01 
o21 2 068 ST+ 03 115 ' _u----- 
022 XEQ 'RA 069 ST+ 06 116 AUCL 05 
0233 X=o? 07o FC? o1 117 RTN 

o2h SF o1 071 GTO 08 118 LBL o2 
025 Xfo? 072 RCL o2 119 ' _ 

026 GTO 12 073 RCL o1 120 ,ARCL 05 
027 2 o7& R-P 121 'rz---- 
028 XEN "RA 075 RCL o2 122 ARCL 05 
029 X=0? 076 - 123 RTN 

030 XEQ 20 077 FS? 02 124 LBL 03 
031 X#o? 078 cHs 125 '__ 

032 XEQ 21 079 ST+ 06 126 ARCL 05 
033 TONE o oßo RCL 06 127 'r-X--- 
034 'KURVE 081. ST+ 03 128 ARCL 05 
035 ARCL oß 082 L3L 08 129 WIN 

036 AVIEW 083 1 130 LDL 04 
037 450 o84 RCL 03 131 '_ 

038 XEqQ 'RA 085 xX<=Y? 132 ARCL 05 
039 300 086 GTO 09 153 'F--1-- 
oblo + 087 7 134 AlCL 05 
o41 STO 02 o88 x =Y? 135 RTN 

oh2 LAL 12 089 GTO 10 136 LDBL 05 
o43 ı 090 DSE 00 137 '_ ® 
oh& XEQ "RA 091 GTO 00 138 AUCL 05 
o45 3 092 GTO 11 139 'r---1- . 
oh46 + _ 093 LBL 09 140 ARCL 0$ 


047 STO 00 oA xXoY 141 RTN . 


142 LEL 06 Das Programın wird mit XEW'AB 
' 


113° __ gestartet.Es erscheint V?. 
1’ ARTL 05 Es wird die Geschwindigkeit 
115 'p----8 in m/s eingegeben, R/S. 
145 ARCL 05 Die Geschwindigkeit liegt 
147 RTN nach meiner Erfahrung am 
143 LOL 07 Desten zwischen 30 und 50 m/s. 
149° _ Liegt sie darüber läßt sich 
150 ARIL 05 der Wagen kaum längere Zeit 
151 'r----- K auf der "Straße" halten. 
152 RTN Liegt sie darunter,so braucht 
153 L7L 20 man in den Kurven praktisch 
154 5F 02 “nicht mehr zu lenken. 
155 Es gibt drei unterschiedliche 
156 ASTO 05 Anzeigen: 
157 '_R 1.Geradeaus: I--z--I 
= es 08 2.Rechtskurve: /--#--/ 
160 LBL 21 3.Linkskurve : S--2-\ 

’ 
“ ar 05 Kurven werden zusätzlich 


durch einen Ton und die 


’ 
I = 08 Anzeige kurve R (L) angezeigt. 
1653 Ns wird nicht gelenkt so wandert 


der Wagen allmählich an den 
167 CL of Kurvenaussenrand bis schließlich 
j die Anzeige UNFALL das 


1 En Fahrerischekkönnen nachweist. 
170 x?2 Gelenkt wird mit 1-4 für Links- 
171 FR kurve,4 am geringsten, iam 

172 3TO o4 stärksten,und 6-9 für Rechts- 
173 x kurve,6 am geringsten,9 am 

174 INT stärksten.5 bedeutet Geradeaus, 
175 ıTN dies braucht aber nicht einge- 
176 LOL 'GA geben zu werden,da der Rechner 
177 I immer automatisch geradeaus 

178 ASTO 05 fährt, wenn ihm nichts anderes 
179 END einregeben wird. 


Die Eingabe kann nur erfolgen 

wenn Flag oo gesetzt ist. 
Dies sollte zügig vonstatten gehen,da man nur ca. 
2 5ekunden Zeit hat.Wem dies zu kurz ist,der kann 
hinter Schritt 60 eine weitere l’3E einschieben. 
Der llekord mit diesem Spiel waren einmal loooom 
ohne Unfall.Dann muß man allerdings schon eine 
Menge Zeit mitbringen. 
Ich hoffe,daß die Spiele Euch Spaß machen, 


Happy Programming 


OieLBL "NAGIC® 
Q2eLBL 86 

FRO CF 29 CF 

SF 12 ADY 

"OCHAGIC X(12” AYIEN 
STOP STO 88 ADY 
"RAGISCHE® PRA 

® ZAHLEN" PRA ADV 
CF 12 1.865 STO12 1 
sto 13 STO 14 


24eLBL 86 
1.81 STO ll " 


2B+LBL 81 

RCL 88 9821 » „211327 
+ FRC STO. 88 10 ® 

INT x=0? CT0 0 

STO IND 11 ARCLK °F“ 
156 31 670 81 6T0 82 


47oLBL 84 

ABV SUCHEN SIE IHRE“ 
PRA "SCHLUESSELZAHL” 
PRA X AN DER ” PRA 
"Y. STELLE” PRA FS? 81 
6T0 07 HENN SIE * 
"FFERTIC SIND, ° PRA 
"BRUECKEN SIE“ PRA 
"RUN FRA STOP 


GTeLBL 97 
ABV "IHRE ZAHL IST- 
PRA -HAHRSCHEINLICH® 
PRA "DIE ® ARCL IND 13 
"FAN" ARCL 14 

*+. STELLE." PRA 

FS? 81 CTO 86 1 

ST- 13 ST- 14 SF 0 
ABY "NOCH EIHAAL® PRA 
"NIT ANBERER" PRA 
-SCHLUESSELZAHL.". PRA 
co 84 


JHLBL 82. 
PRA 


ISeLBL 83 

RCL IMDB 13 STe 13 

ST 14 18 RCL 13 X? 
610 83 ISc 12 CTO 85 
RL Z ST- 13 ST- 14 
£T0 04 


109 LBL 85 
18 ST- 13 6T0 08 
END. 


Hallo Fans I 


Hier eine Verbesserung des in priema November 1980 veröffent- 
lichten Programmes von Robert Klauo. 


Dies Prgr. benötigt lediglich SIZE 015, ist dafür un ca. 50% 
länger und bietet noch zusätzlich eine Spielmöglichkeit ! 

Es rät die Zahl des Spielers, bevor dieser zählt. Die Wahr- 
scheinlichkeit für eine wahre Vorhersage ist wie bei der ers- 
ten Zahl 5/6. Ein Zeitschriften-Auszug über das Verfahren und 


das Prinzip ist in der Clubbibliothek erhältlich. 
Prgr. eingeben (Karte in Magnet- 
Zahl zwischen O und 
R/S --wenn gefordert 


Zur Bedienung: XEQ SIZE 


kartenbibl.) XEQ'MAGIC" 
1 eingeben, 


015 
R/S 


Nachfolgend noch der Probeausdruck mit der Zahl „123456 


Tschüß und Happy Programming 
Gerhard Schönemann, Kirchfeld 


sonszeuswolennsssunsen 


s-ucm 


Euer Gerd 


B<MAGIC X%<1? 


MAGISCHE 


ZAHLEN 


SUCHEN STE IHRE ’ 
SCHLUESSELZAHL 

RK AN DER 

Y. STELLE 

WERK SIE FERTIG SIND, 
DRUECKEN SIE 

RUN 


IHRE ZAHL IST 
MAHRSCHEIKLICH 
DIE 8 AN 47. STELLE. 


NOCH EINMAL 
MIT ANDERER 
SCHLUESSELZAHL . 


SUCHEN SIE IRRE 
SCHLUESSEL ZAHL 
RAM DER 
Y. STELLE 


IHRE ZAHL IST 
NAHRSCHEINLICH 
DIE 7 AM 46. STELLE. 


B<MAGIC %<1? 


AILnDGEh ENSsten, 


Andreas Schultze (490) 


Erikaweg 5 SIZE 007 
2111 Aandeloh-Höckel Start mit XEQ "ZAHLEN" 
F 22 
————— IT, Ge SEEN! 


. „ Frogrema "ZAHLEN" z 
Dieses Frogramm erzeugt eine Zufallszahl zwischen 
1 und einer Zahl, die mit "HOECHSTZAHL?" abgefragt 
wird. "enn der Rechner nach "ZAHL" fragt, wird geraten. 
Je nachdem, ob die geratene Zahl größer oder kleiner 
als die Zufallszahl ist, antwortet der Rechner mit 

"ZU GROSS" oder "ZU KLEIN".Wenn man richtig geantwortet 
hat, spielt der Rechner eine Melodie, zeigt "RICHTIG" 
und die Anzahl der Versuche an und fängt von Vorne an. 
„enn man zu spät antwortet, reagiert der HP 41-C mit 


Neon 


"ZU SPAET" 
Biai 
Dß1 LBL "ZAHLZuUN 936 GTO "ZUGR" 872 ARCL 94 
An: ne wann ce GTO "GLEICH" ar "> VERSUCHE" 
AUECHSTZAZL? 38 LBL "ZUKL" 74 AVIEW 
PP4 FRO.PT 239 TONE 8 275 PSE 
B85 S"o B6 848 "ZU KLEIN" B76 9 
006 LBL p4 41 AVIEW 877 STO 94 
807 RCL dp 42 PSE #78 GTO 91 
DAS 9824 B43 GTO 82 279 LBL "zu" 
229 x £44 L3L "GLEICH" Bed TONE 9 
Br ‚211327 IR au: 9 Ben en SrazEN 
+ 4 E9 Ei 
D12 FRC ß47 TONE 3 d83 PSE 
213 STo 29 p4a3 TONE 8 B85 GTO 2 N 
B14 RCL 96 249 TONE 9 ge5 END E 
215 x B53 TONE 9 
B16 INT 851 XC)Y 
ME: 053 XCOY 
219 STO 91 4 x) a 
28 LöL B2 Fer <Ö'r B91 LBL "SILBEN". 18 FC?C 25 
B21 1 256 X(JX 2p2 AO a 
B22 ST+ 94 #57 X()X 283 CF 91 Dep ASTO MO 
823 TOIE 7 255 x()Y B24 CF B2 B21 "2. SILBE 
a | mwum Be 
25 FSE 68 xÖX - 
826 PSE he TONE 9 B0T CE 85 De no .de 
827 FC?C 22 62 TONE 9 pe CF 96 BT Laer 
B28 GTO "zum 663 TONE 8 299 CLA ß26 "3. = 
829 STO 92 664 TONE 8 g18 asTo 9 N a 3 
OB CL 9 fe5 Tonz I” A 156 GTO 99 
#32 10 "zuKLe Ne 813 ASTO BA 831 ASTO 93 
ST0 "ZUKL 867 TONE 9 632 "4. "SILBE" 
#33 RCL 92 B68 "RICHTIG" 14 ASTO 85 pT 
P34 ACL 91 P69 AVIE“ RE re 
35 x(1? 16 "1. SI 
en U78 FSE | 917 proupr 835 GTO 90 


036 ASTO 94 


_| Programm "SILBEN" 


Dieses Programm kann Worte "verdrehen". Nach Eingabe 
eines bis zu 6-silbigen Wortes vertauscht es die 
Silben. Bei einem 4-silbigen Wort z.B. wird auf die 


Frage "5. SILBE" einfach R/S gedrückt. 


ifo 


PROMPT 

FS? 23 

ASTO 6 

LBL 99 

" MONENTCHEN'! 
AVIENW 

LBL 91 

FC? 91 

GTo 95 

FC? 2 

GTo 93 

FC? 3 

GTo 93 

FC? 84 

cTo 93 Br 
FC? 85 rn 
To 93 
FC? 86 
GTo 93 
GTO "ANZ!" 
LBL #3 
xEQ f2 
xEQ IND X 
GTO 91 
LBL 2 
RCL 99 
9821 

x 

„211327 -- 


+ 
FRC 
STO 98 
6 


x 

INT 

41 

+ 

RTN 
LBL 11 
FS? 91 
GTO 91 
SF 91 


4 
ST+ 97 re 
ARCL IND 97 
ASTO 11 

RTN 

LBL 12 

F5? 92 

GTo 91 

SF 92 


‚837 "5. SILBE" 

: 838 PROMPT 
239 FC?C 23 
B4p GTO 99 


— 


4 


vw. 


994 1. 
B95 ST+ 87 


ß96 ARCL IND 97 .. 


097 ASTO 12 
#98 RTN 
899 LBL 13 
1B0 FS? 83 
181 cTo 91 
1B2 SF 93 ' 
193 1 

14 ST+ 87 


495 ARCL IND 87 


186 ASTO 13 
187 RIN 

4ß8 LBL 14 
189 FS? 94 
4119 GTO 91 

111 SF 4 


“. 142 4 


413 ST+ 27 

414 ARCL IND 97 
415 ASTO 14 

416 RTN 

4147 LBL 15 _- 


118 FS? 85 

119 GTO 91 

120 SF 95 

121 1 

122 ST+ 97 

123 ARCL IND 97 
124 ASTO 15 


„125 RIN 
3426 LBL 16 
‘427 FS? B6 


128. GT0 "91 

129 SF 96 

138 1 

131 ST 97 

132 ARCL IND $7 
133 ASTO 16 


"4134 RTN 
ı 135 LBL "ANZ" 


136 ARCL 11 

137 ARCL 12 

138 ARCL 13 

139 ARCL 14 

149 ARCL 15 

141 ARCL 16 

142 PROMPT 

143 GTO "SILBEN" 
144 END 


SIZE 021 
Start mit XEQ° 


"SILBEN" 


_/Programm RnMUS" 
Anhand des Listings dürfte die 


Funktion klar sei. 
LBL "MUS" 
RCL dB 
9821 
& 
‚211327 
06 + 
FRC 
sto 88 
10 
x 
INT 
TONE 
TONE 
TONE 
TON: 
TONE 
TONE 
TONE 
TONE 
TONE 
TONE 
TONE IND 
TONE IND 
GTO "MUS" 
END 


IND 
IND 
IND 
IND 
IND 
IND 
IND 
IND 
IND 
IND 


Start mit XEQ nyus® 


KIRKNSHRHRKK 
SIZE 001 


_— 


Sollte diese Seite schwer leserlich 
eein, so liegt das an dem sehr schlecht 
gestaltetem Original dieser Prgr., das 

- ich von fünf auf jetzt 2 Seiten zusam- 
mengeschnitten habe. Demnächst werde 
ich Originale, die derart verschwenle- 
risch mit dem wertvollen Platz in un- 
serem prisma umgehen wollen, zurück- 
„senden ! Oliver (1) 


“. Liste zum KA-Frogramm 

Das KA-Programm fragt. bei jedem Durchgang nach 

2 Eytes. Bei 1-Byte-Befehlen muß immer ein 2. Byte 
eingegeben werden, dessen Bedeutung aus der PPC- 
Tabelle in Prisma 9/80 nicht zu ersehen ist. 


1. Byte unter wu 64 


2.2./knzeige sol. T. gedr./Taste losgelassen/Bemerkungen 


AT CAT _ 
ee” Keine Änderung ?? 
DEL DEL__ 
copZ7 COPY 
CLP_” CLP_ 
Augenblickl.Z. Frogramm läuft Funktion R/S 
SIZE SIZE__ 
12.zurück Keine Anderung Funktion BST 
Auzenblickl.Z. Keine Anderung Funktion SST 
ON Keine Anderung 
PACK PACKING 
löscht augenblickliche Programmzeile 
schaltet PRGM-Modus ein und aus 
Rn 2__ bleibt stehen 
u schaltet SHIFT ein und aus 
ASN ASN 
u 2 7 27? 
STAN IA ___ SUN IA ___ 7? 
?? 
PT 3: 2? 
DCABEE a 4 2? 
X 5 ?7 
H LD 6 27? 
AK 7 2? 
2 PR 7? 
oD 7” 9 u ?? 
- ß (Schiebt X nach Y) 27? 
H H ?7 
27” 2 2? 
ns AHHR NONEXISTENT ?? 
DNg NONEXISTENT ?? 
2 ?? 
27772773227272722972727722227722727727222277 
A A 2? 
IE” ATB rin 
c c ?? 


36 12 


37 "mDCABre "a Keine Änderung 7? 

38 2? 

48 72 2 7? 

4A \ Keine Änderung 2? 

42 " bDCAHUT a Keine Änderung ?? 

43 OD Keine Änderung ?? 

4 A A_ ” 2? 

45 dSs7 Keine Änderung ?? 

46 X/=T? Keine Änderung #Befehl X/=Y? | 
AI PP. Keine Änderung 2? 

43 ASCI ASCI__ 7? 

49 9 EI 2? 

59 REG REG 7? 

51 et 

52 STX Keine Änderung 2? 

53 2 2 9? 

54 8 8 2? 

55 War KA ar ar Kr ar ar ara Br A Ar a a Bd BB de Br ar A A Brad 

56 OD Keine Änderung 7? 

57 8 Keine Änderung 2? 

58 + Keine Änderung 27? 

59 ySF_ SF 9? | 
68 bringt im PRGM-Modus die Anzeige ana Flacker 
62 = E 2? 


63 2 2 7? 
3171717197717 171217 12 1° 7712 1912197 17 17 12 17191 


Wer hilft mir, die Fragezeichen zu beseitigen 7? 


Ich hoffe, daß Ihr die Liste und die Programme 
verwenden könnt und verbleibe mit 


Happy Programming 


Sollte sich‘ein Mitglied für Programme auf dem Gebiet Umformtechnik (Warı- 
und Kaltwalzen, Schmieden, Drahtziehen o.ä. ) interessieren, so helfe ich 
„gerne weiter. Christian Herr (277), Rosstr. 63, 5100 Aachen, Tel. 0241/22022 


PROJEKTLEITER PHYSIK 


gacacasco ESZEZ2ERTFERACSCBEGEDDIUDHDOEm 


Alles, was mit Fhyeik zu tun hat, egal ob Software oder Berichte, 


sendet bitte an unseren neuen Projektleiter PHYSIK: 
Olaf Gursch (120), Grüntenstr, 29 b, 1000 Berlin 42 


In der Januar-Ausgebe 1982 von prisma (Auflage 3000) sollen alle aktiven Mit- 
glieder (Projektleiter, Ortsgruppenleiter etc.) mit Bild, Anschrift usw. 
gestellt werden. Daher: Wer zu diesem Kreis zählt, sende bitte Faßbild ı 
Adresse/Telefon für 1982 bis allerspätentens Weihnachten an Oliver OR 
Paßbild mıßB schwarz-weiß sein ! 


So 


: 


Liebe Mitglieder, 


spielt jemand von Euch Bowling? Bitte schön, dann könnt 
Ihr mein Programm benutzen, aber auf mehr als 300 Pin 
pro Spiel kommt Ihr damit auch nicht, denn es arbeitet 
gemäß den gültigen Regeln. 


Es übernimmt das Schreiben und Rechnen für einen Spie- 
ler und ermöglicht die Fortschreibung der Ergebnisse. 
Gestartet wird eo mit XEQ "BOW". 


Das Programm belegt 92 Register, für die Daten werden 
außerdem noch 13 Register gebraucht. Also, ein Memory- 
-Modul ist Pflicht. Sollte jemand keinen Kartenleser 
haben, sind die Schritte 3 bie 8 und 134 bis 144 bei 
der Eingabe zu überspringen. 


Kurz nach dem Start fordert es die Daten der vergangen- 
en Spieltage an. Falle Ihr es zum erstenmal benutzt, 
bitte dreimal R/S drücken. Es ist an dieser Stelle aber 
auch möglich, Vorträge manuell abzuspeichern. Dazu bit- 
te zweimal R/S drücken, die Daten eingeben und noch ein- 
mal R/S drücken. 

Folgende Register stehen zur Verfügung: 


Anzahl der bisher gemachten Spiele 
Gesamt-Pin aus diesen Spielen 
Höchstes Einzelspiel 


Register 07 
08 
09 


Nach der Anzeige des aktuellen Spiels stoppt das Programm 
mit dem Text: 


1 * 1. WURF 


Hier müssen die Ergebnisse eingegeben werden. Dafür 
gibt es folgende Möglichkeiten: 


0 Pin = R/S 
1 Pin = Ziffer und R/S 
9 Pin = Ziffer und R/S 
Spare = "B" 
Strike = on 


Die Flags im Display haben folgende Bedeutung: 


Flag 00 = Spare wurde geworfen 
01 = 1 Strike wurde geworfen 
02 = 2. Strike in Folge wurde geworfen 
03 = 3. oder mehr Strike in Folge wurde geworfen 
04 = 10. Frame ist erreicht 


Die Anzeige der Frame-Sumnen ist von den erzielten Ergeb- 
nissen abhängig. Nach einem Spare oder einem Strike muß 
erst der nächste oder die beiden nächsten Wurf erfolgen. 


Nach dem 10. Frame wird die Endsumme angezeigt. Nun habt 
Ihr drei Möglichkeiten: 


Neues Spiel = "a" 
Werte anzeigen = "p" 
Werte abspeichern = "E" 


R/S ist an dieser Stelle unnötig, wenn Ihr eine der drei 
Tasten während des Pause-Befehls drückt. 


Mit der Taste: *D" werden folgende Werte angezeigt: 
Gesamt I = Summe der Pin aus den aktuellen Spielen 


Gesamt 2 = Summe der Pin aus allen Spielen 
Schnitt 1 = Durchschnitt aus den aktuellen Spielen 


Schnitt 2 = Durchschnitt aus allen Spielen 
Spiele = Anzahl aller Spiele 
Rekord = Höchstes Einzelspiel 


Mit der Taste "E” werden die neuen Vorträge auf Karte ab- 
gespeichert. Flag 14 ist dabei gesetzt. 


Unzulässige Eingaben werden von dem Programm nicht erkannt. 


Bemerkungen: Der USER-Modus ist programnmgesteuert 
TONE O0 = Ausgaben 
TONE 9 = Eingaben 


Für Mitteilungen über Programm-Modifikationen bin ich 
dankbar. 


Ansonsten: GUT HOLZ! und viele 300er Spiele 


Mit freundlichen Grüssen (sen) Kark 
467 
94 Gerlachstrasse 33 
.’ 6230 Frankfurt 80 


Preise ! 


Aufgrund des auf 2,60 IM angestiegenen Dollarkurses mußte HP die Preise anziehen. Mit- 
glieder bekommen bei Angabe der Mitgliedsnummer 20 bis 24 % Rabatt bei Firma Hansen, z. 
Hd. Herrn Milles, Bachstr. 1-3, 5300 Bonn?, Tel. 0228/652223. Der gewährte Prozentsatz 
ist abhängig vom Lagerbestand. Beim Quad-RAM treten derzeit wieder Lieferschwierigkeiten 
auf, da HP mit der Produktion nicht nachkommt. 

Hier die Preise (Stand heute, 21-08-81): 


EP-34c 460,-- SD Memory und 4k-ROM 99, 

RP=-41c 750,-- QD Memory 313,50 

HP-41cv 975,-- 8K-ROM 143,50 

HP-67 1185,— Lösungsbücher 40,62 

HP-97A 2170,-- Magnetkartenleser HP-82104A 645 ,-- 
Thernodrucker HP-82143A 1155,-- 


Opt. Lesestift HP-82153A 375,-- 
(unverbindliche Preisempfehlung, für Clubmitglieder 20 bis 24 % Rabatt) 
Oliver (1) 


AteLoL "Bin" 
CLRG -IRTENKARTE 7" 
TORE 9 TONE 9 AVIEN 
7.089 RDIRX 


HLBL A 

an FIXB CF 26 CF 9 
8981 STO OM 8 

so 83 STO 84 STO 85 

1 5Te 86 $T+ 07 

- PINS" ASTO 11 CLA 
ARCL B6 "+. SPIEL” 
BEEP XEO 87 CLK 

xEq 08 


32+LBL B 

CF 27 'SPRRE* 

sen e7 9 STC 61 18 
570 83 FS?C O1 XER 11 
ES BE YEU 95 FE? 04 
sr 85 FS? 05 XEO 83 
Sr 66 XEQ 88 


sBeLdL Cl 

(F27 STRIKE 
“a 07 18 FS? 81 28 
FS? 86 28 FS? 82 30 
FS? 0738 STO 64 
FS? 08 XEQ 96 FS? 68 
8 FC ST 8 
FS? 07 SF 88 FS? 88 
xe0 85 FS? 06 SF 97 
FS? 07 XEO 82 FS?C 85 
XE0 85 FS? 82 SF 03 
FS? gı SF 82 FS? 9 
5 86 FS? 86 XEO 08 
SF 81 XEU 86 


eLBL 3 

"GESAMT ASTO 12 “r 1° 
xEQ 07 ARCL 16 ARCL 11 
»EQ 87 ARCL IE + 2” 
zE0 87 ARCL 96 ARCL I 
xEO 07 SCHWIT 

ASTo 12 "HT Ir XER 
RL 18 RILO6 7 FIX 2 
AREL X ARCL 11 XEU 87 
ARCL 12 “HT 2° KEO 87 
RtL 88 RCL 97 7 

MRCL X ARCL II XEO 87 
FIX 0 ARCL 87 

+ SPIELE” XEQ 87 
"REKORD" XEQ 07 

ARCL 89 ARCL 11 XEO 07 
XEo D 


1MBL E 

CF 27 DATENKARTE ?° 
TONE 9 TONE 9 AYIEN 

SF 14 7.089 MDTAX CLX 
OFF 


145+LBL 88 

FS7C 83 XEQ 11 FS? 06 
ren at I5C 08 KEG Bl 

TONE 0 TONE 6 TONE 6 

SF &4 


15erLBL Bi 

ARÜL 88 FL? 86 

"rs 1. KURF" FS? 86 
"re 2. MURF" XEO 88 
STo 81 FS?C 88 XEQ 86 
8 STo 85 


168+LBL 92 
FS?C 82 X 11 


1714 LBL 83 

ARCL 68 FS? 86 CF BL 
FS? 06 °F ® 3. MURF® 

FS? 06 XEQ 64 FC? 05 
"Fe 2. MURF® FS2 05 

"+ 3. NURF" 


103+LBL 04 
KEQ 88 STD 82 FS?C BI 
xEo 11 


t88+LBL 85 

KEu 6 8 STO BI 
sro e2 CF 05 CF 86 
cr a7 CF 80 FSU 4 
xEQ 89 XEO 68 


208LBL 86 

TONE 8 TOKE 8 RCL 85 
RcL O1 + RCLB2 + 

RiL BI + RL + 

STO 85 SUMME" XEO 87 
ARCL 85 ARCL 11 KEO 97 
RTK 


219+LBL 87 
MVIEN TONE 6 PSE CLA 
RTH 


2zöLdL 88 
TORE 9 CLX SF 27 
PROMPT CF 27 CLA RM 


Tistine fılr "BOWLING", ( Die Magnetharten dazu kann man sich in der Magnetkarten- 
bibliothek beschriften lapsen !!) 


ZIEL 89 

RCL 85 ST+ 88 ST+ 16 
RL 09 RCL.ES KV? 
x 09 


241+L8L 18 

-ENDSUMNE" KER 87 

ARCL @5 ARCL 11 NER 87 
sr 27 NEU 10 


249LBL 11 
xeQ 86 18 ST- 64 
‚END. 


BILBL *SKAT- ET 
FIXO CF 29 1 
"SPIELERZAHL?" PROMPT 
sTo 15 3 x=19 SF 03 
RDN 1 EI 7 + STO 14 
STo 08 LASTX + RL 15 
+ STO II 1,881 

FSK 83 ST+ 11 RL II 
$To 12 


27+LBL 08 

AON NAME” PROMPT 
ASTO IND 86 AOFF 
IS6 06 CTO 88 


ISeLBL 91 
RCL 14 STO 88 


IOLBL 82 
RCL IND 88 sTor 


41mLBL A 
$T+ 85 


43eLBL 03 
ST+ 16 ISC 08 CTO 2 
cTo 81 


Otto Peter Wo), Boschstr. 18 d, 2850 Bremerhaven 
Hinweise zum Programm Skat. 


Nach dem Start fragt der Rechner zunächst nach der 


Anzahl der Spieler. 
Man gibt dann 3 bzw. 


4 ein und drückt R/S. Damit 


wird die indir. Adreßroutine errechnet und gleich- 
zeitig die Routine zur Berechnung des Endergebnisses 


festgelegt. 


Darmwird nach den Namen der Spieler gefragt. Ein;zabe im 
bereitgestellten Alpha-Modus. 
(Zu beachten, daß die Register nur sechs 

Buchstaben aufnehmen können,also ggf, kürzen) 


Sind drei oder vier Namen eingegeben, so steh# jetzt 
wieder der erste in der Anzeige. Gleihzeitig sind den 
Namen die Tasten A - C bzw. D zugeordnet, 


Der in der Anzeige stehende Spieler ist Kartengeher, 


Gewinn und Verlust werden (positiv odernegativ! über die 
Tasten A - C(D) dem jeweiligen Spieler angeschrieben 
und in der Anzeige erscheint der Name dessen, der 


nun geben muß. 


Zwischenabfragen nach dem Kontenstand können beliebig 
oft über die Taste H abgerufen unlausgedruckt werden. 


Zur Endabrechnung drückt man E. Damit wird der letzte 
Kontanstand und darunter die Ausrechninb ausgedruckt. 


Generallöschung = Taste F 


48+LBL B 
ST+ 06 6TO 83 


SIeLBL C 
$T+ 87 610 83 


S4eLBL B 

ST+ 88 CTO 8 

S7eLBL H EN 
RCL 14 STO IB REL 12 \ 
ston ca ; 


G3rLBL 04 
*F * ARCL IND 18 
IS6 18 CTO 04 ACH ABV 


?OrLBL 87 i 
4 RCLINB 11 X=0? 
CT0 68 ABS LOC INT - 


?ILBL 88 

SKPCHR RCL IND 11 ACK 
156 11 CTO 87 ADY 
FS? 88 CTO e CTO BZ 


BILBL E 
SF 88 CTOH 


I2HLEL e 
ReL 12 STO 11 


HAB 11 

RCL 15 STe IND 1 
ISC 11 GTO 11 REL I2 
stoıı 


192+LBL 19 

RCL 16 ST- IND fi 

ISC 11 670 18 RCL 12 
sTo 11 CF 0 610 97 


111LBL F 
CLRG END 
B-MAVEN, 1886191 9 


nm 
Yurlnchatan UNS KARL FRITZ 


N -8 
abfr HRNS KARL FRITZ 
286 168 -44 


a HANS KARL FRITZ 
END 6 166 -44 


Ren 296 158-454 


HANS KAR_ FRITZ. HEINZ 
1a LH 4% 


MARS. KARL FRITZ HEINZ 
EM 6  % 
+44 186 156 148 


priema - Publikation des CCD-Compüterclub Deutschland e.V. - Dezeuber - Ausgabe 8 - 1981 - 


Liebe Mitglieder ! 


"Was ist denn das für eine geltsame Kopfzeile 7?" mag sich manch einer fragen, wenn er das 
CCD e.V. liest. Diese drei Buchstaben stehen für 1001 Änderungen in unserem Club. Es begann 
mit dem Artikel "Ausblick 82" im letzten prisma und fand auf dem letzten Clubtreffen in 
Frankfurt (10. und 11. Oktober) seinen vorläufigen Höhepunkts CCD steht für Computerclub 
Deutschland, der am 11.10. in Kronberg/Taums gegründet wurde. Zum Zeitpunkt des Erschei- 
nens dieses Infos wird der Verein wohl bereits in das Vereinsregister Königstein/Taumıs 
eingetragen und als gemeinnützig anerkannt sein. Nachstehend findet Ihr Satzung und Grün- 
dungsprotokoll. Der CCD übernahm am 11.10. alle Tätigkeiten des HPAC, der zum Jahresende 
erlischt, Die Mitglieder des HPAC werden mit Bezahlung des Beitrags für 1962 Mitglied im 
CCD ! 

Vorteil 1: Die Mitgliedebeiträge, Spenden, Aufnahmegebühren, ... können von allen Mitglie- 
dern steuerlich voll abgesetzt werden. Das eröffnet die Chance, daß sich finanzkräftige 
Mitglieder vielleicht doch einmal zu einer Spende hinreißen lassen könnten. In diesen Zu- 
sammenhang sei Werner Dworak (607) für eine Spende über 200,--IM gedankt ! 

Vorteil 2: Die persönl. Haftung der Mitglieder beschränkt sich auf den Mitgliedsbeitrag; 
für die aktiven Mitglieder wird zusätzlich eine Vereinshaftpflichtversicherung abgesclos- 
sen. Dies wurde angesichts der immer größeren Geldwengen, die der Club umsetzt, notwendig. 
So befindet sich in der Finanzplanung für 1982 noch ein mehrere zigtausend Mark großes Pi- 
nanzloch. Hierfür mag verständlicherweise kein Mitglied den Kopf hinhalten, auch wenn wir 
davon ausgehen, daß die für 1982 geplanten Aktivitäten noch mehr Geld einbringen werden.... 


Steuerliche oder sonstige Vorteile, wie bereits einmal erörtert, kann der Club z.2t. aber 
nicht erwarten; die Eintragung dient vornehmlich den Mitgliedern I Die Haftungsvorteile 
übersteigen inzwischen sogar schon die seinerzeit erörterten Nachteile. Trotzdem: Diese 
Überlegungen haben wir schon einmal angestellt, warum nun doch e.V. 1??1 

4: Damals waren wir unter 4oo Mitgliedern, heute fast 1000 ! Damit werden erheblich grö- 
Bere Geldmengen umgesetzt, die Verwaltung per EDV wird nötig uew. 

2: Das Image eines gemeinnützigen e.V. wird uns in unseren Bestreben, möglichst viel für 
den HP-41 und kommende Rechner zu veröffentlichen, durch Vertrauensgewinn bei Firmen (Wer- 
beanzeigen auf letzter Unschlagseite, Spenden) und steuerliche Vorteile (Abzugsfähige Spen- 
den) sehr unterstützen, indem es unser Finanzloch stopfen hilft. 

3: prisma bleibt HP-41 spezifisch. Zusätzlich aber sollen (wenn auch etwas weniger unfang- 
reich) eigene Infos für den HP-85 und den Osborne 1 erscheinen. Der HP-85 wurde bereits 

im Dezender 80 Info von prisma kurz vorgestellt und dürfte inzwischen weitgehend bekannt 
sein. Nicht so der OSBORNE 1 ! Daher findet sich in dieser Ausgebe ein ausführlicher Be- 
richt über den Osbornei, Er ist zugleich Antwort auf meinen Personalcomputerbericht in 
prisma 196-81 und die beiden Apfel(II)-Besitzer, die diesen Bericht als "unqualifiziert" 
bezeichneten. Meine Frage nun: Welcher Rechner is% unqualifiziert, der Apple oder der 0s- 
borne ??? 

Da ich gerade bei Kritik angelangt bin: Der PPC - Amerikas größter HP-Club mit rund 2500 
Mitgliedern, davon etwas mehr als die Hälfte HP-41 Besitzer - hat mich schwer enttäuscht: 
Seit der Vorsitzende - Richard Nelson - erfahren hat, daß ich Vorsitzender eines deutschen 
"Korkurrenzladens" bin, verweigert er mir das PPC-Journal. Freilich hinderte ihn das nicht 
daran, meine 34 Dollar zu kassieren ... den Beitrag für 1981 I Ich werde natürlich meine 
Konsequenzen ziehen - wer wirft sein Geld schon gerne weg ? Dabei scheine ich nicht der 
einzige zu sein: Während aus unseren Club bis 1982 voraussichtlich unter 2% der Mitglieder 
wieder austreten werden, so werden es beim PPC schätzungsweise zwei Drittel der Mitglieder 
sein. Das hindert mich aber nicht daran, das PPC-Journal weiterhin zu lesen, So entdeckte 
ich zum Beispiel die Bauanleitung für das Kassetteninterface von Ulrich Jansen[142). Warum 
schenkst Du den Amis die Bauanleitung und verweigerst sie uns, Ulrich ? Ich hatte Dich doch 
sogar schon darauf angesprochen ! Aber auch andere Mitglieder produzierten enttäuschendet: 
Edmund Weitz hat gerade drei Seiten der Infos für seine Unfragebögen verbraucht, da tritt 
er aus dem Verein aus ! Oder Rolf Mach: Übernimmt die Synthetic-Abteilung um das Buch von 
Dr. Wickes zu enpfehlen, anstatt irgendetwas selbständiges zu produzieren. Statt dessen hat 
er Material aus höchst zweifelhafter Quelle - oder besser: eindeutiger Quelle in zweifel- 
hafter Weise - über CHIP zum Kauf angeboten, z.B. den WPRV-Knack, den er allerdings über 
einen "Strohmann" verkauft - 20,--DM !! Oder Load Bytes - das wir deshalb (auch deshalb) 
lieber in dieser Ausgabe veröffentlichen - bevor der Wucher Überhand nimnt, 
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Damit aber genug Kritik für diese Ausgabe, aber es sind Themen, die halt einmal gesagt wer 
den müssen. Zu diesen Kritikpunkten habe ich schon viele dutzend Briefe bekommen, bevor Ic 
mich zu diesem - inzwischen wohl nötigen - Absatz durchgerungen habe - in Vertretung der 
größten Mehrheit hoffe ich I Alsoı Schnell zu den erfreulichen. Themen: Was gibts reues in 
und um prisma ?? 

priema 12-81 —- 12-81 - 12-81 

Der Leserbrief von Klaus-Werner und Niels (215-81) hat Resonanz gefunden: Niels Nöhren hat 
zwei sehr gute Berichte zur synthetischen Programmierung verfaßt, die die gewünschten Grur 
lagan bringen dürften. Niele entwickelt sich zum Star-Autor ! 

Von Olaf Gursch finden wir nioht mır ein Reisekostenprogramm, sondern auch die Auswertung 
der Clubwahl 1980/1. Vielen Dank für die erstklassige Arbeit, Olaf ! Und natürlich allen, 
die dabei gut abgeschnitten haben ! Die anderen schaffen es ja vielleicht im nächsten Jahı 
Und wir wissen endlich einmal genau, was die Vereinsmitglieder so interessiert I Anecnuter 
Clubbörse, viele Programme, Leserbriefe und vieles mehr ! Viel Spaß ! 

prisma 1-82 - 1-82 __- 1-82 

Ab dieser Ausgabe wird prisma von Grund auf erneuert. Sie wird in Auflage 3.000 oder rehr 
gedruckt und auch Nichtmitgliedern als Ansichtsexemplar zugänglich sein. Alle aktiven “it- 
&lieder senden dafür bitte umgehend noch ein Paßfoto (schw./weiß) ein ! 

prisma_ 2-82  - 2-82 __- 2-82 

Die erste Ausgabe im neuen Stil I Nur für Mitglieder und hoffentlich inseressant und errr: 
fend von der ersten bis zur letz#en Zeile. Mehr wird nicht ver- 

raten ! Evtl. werden 1-82 und 2-82 zusammen an die Mitglieder 

versandt ! 


CLUBBÖRSE 


Verk. 1 Mem.Modul mit Buch "Synth.Prgr." WC.Wickes für 100,--DM 
Burkhard Karallus (546),Reichstr.50,5970 Plettenberg 

Suche PPC-ROM 

Elk-Detlev Golz (507) Rugierweg 8, 5880 Lüdenscheid 


Verkaufe 2 Mem.Module je 50,--IM 
Dieter Riethenauer, Am Pfädle 3, 7519 Gemmingen, 0713130066 bü 


Verkaufe 1 Mem.Modul VB 50,--DM und CHIP 5-79 bis 9-81 nicht 
unter5o,--IM (außer 7-79). Erstelle auch gerne Druckerlistings 
gegen Rückporto und Programmbeschreibung 

Eckhard Müller, Michael-Schnabrich-Str.9, 3500 Kassel 0561492266 


Verk. MÜHLE-Prgr. für 41. Keine vereinfachte Version ! Spiel» 
etark und schnell (weniger als 2min./Zug). Magnetkartenleser 
und QDM (oder cv) sind erforderlich. 12IM plus 7IM für 12 Karten 
Wer verkauft oder kopiert mir alte KeyNotes bis Ende Bo ? 
Michael Kirchner (421), Goethestr. 29, 3200 Hildesheim 


Verk. HP41c 500,--DM, Drucker 700,--, Kartenleser 350 IM, Opt. 
Leser 200DM, QDM 250 IM, MemMod 40DM,2Akkusätze 20,--DM,1 Ex- 
perimentierplatine 20,DM 15 Rollen Thermop. 15DM 116 MagCards 
IAAM 4oDM Ext.Bat.Kasten 10DM Basiccompiler 4oIM, zusammen 
2000DMı S Schwarze(4!), Hilblestr. 34, 8000 Minchen 19 089193649 


Zu verkaufen: Tnhermorollen für 41-Drucker, doprelte länge wie 
gewöhnlich a: klarer,blau-schwarzer Druck, zun Preis von 
25m-Rollen (4 Rollen 11,20 incl. Porto,Verp.). Detlev Bock (2) 
Petrikirchstr. 36 3400 Göttingen 0551 33221 


suche PPC-ROM 
Hannes Wolf (479), Ottakringerstr. 64 / 9, A-1170 Wien 


Verkaufe HP-41c mit 1 SDMemory und 1 DDMemory, 600,--IM VHB 
Kliver Rietschel (1), Postfach 373, 2420 Eutin 1 


Clubtreffen B 


Immer mehr Clubtreffen werden in den verschiedensten Städten veranstaltet. Ias erste fand 

in Frankfurt/M. statt. Dazu erhielt ich folgenden Bericht von Matthias Grabiakı 

"Das erste Clubtreffen im Raum Frankfurt hat nun am ersten August stattgefunden; zwälf Teil-; 
‘nehmer hatten sich dazu eingefunden, Konkret ins Leben gerufen wurde dabei eine Art Ein- | 
führungskurs für synthetische Programmierung, um für alle Teilnehner etwa gleiche Voraus- | 
setzungen zu schaffen, während sich gleichzeitig eine andere Gruppe über fortgeschrittene | 
synthetische Programmierung unterhielt. Neben der eynth.Prgr. wurde zwar kein weiteres 
spezielles "Programm" beschlossen, aber, wie ich persönlich glaube, wird es bei den Tref- 
fen von selbst genügend Gesprächsstoff geben. 

Stattfinden sollen die Treffen an jedem zweiten Samstag eines Monats, 15.00 Uhr. Ein Raum 
wird freundlicherweise von der katholischen Studentenverbindung bereitgeatellt, sofern 
keine anderen Veranstaltungen stattfinden. Hier die Adresse: 6000 Frankfurt/M., Sömmer- 
ringstr. 3. Die Sömmeringstr. ist eine Seitenstr. des Oederweges, der parallel zur Eschers- 
heimer Landatraße verläuft," Matthias Grabiak 


Leider waren die Frankfurter die einzigen, die mir bisher einen solchen Bericht sandten. 
Alle anderen Ortsgruppen mögen das bitte schnellstens nachholen !I! Hier noch ein paar 
Kontaktadressen: 

Dortmund: Karsten Beierlein (93), Breierepfad 83, 4600 Dortmund - Wambel 

Stuttgart: Günther Lehrke (239), Wiesenstr. 85, 7024 Fildarstadt 1 

Kassel: Detlev Bock 2) Petrikirchstr, 36, 3400 Göttingen - Weende ; 
Berlin: Hagen Klemp 73), Berliner Str. 33, 1000 Berlin 28° Oliver(1) 
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Was sollen die Flags ? 


Oft werde ich gefragt, was die versch. Flags für Bedeutungen haben, Nachstehend eine Tabelle 
die die mir bekannten Verwendungszwecke wiedergibt, Für Ergänzungen bin ich jederzeit dank- 


bar ! Oliver(1) 
Flag Bedeutung 
00 - 11 allgemeine Amwenderflags zur freien Verwendung 
00 - 07 
Anwendungszweck wird bekonntgegeben, sobald entsprechende Peripherie 
erschienen ist I Zur Zeit keine besondere Funktion | or 
n Prgr., die über das Tastenfeld oder durch Einlesen einer Magnetkarte in den 


Rechner gerufen werden, werden automatisch ausgeführt, wenn bei deren Speiche- 
rung Flag 11 gesetzt war. 


12 Solange Flag 12 gesetzt ist, werden Zeichen auf der Ausgabeeinheit in Sperr- 
schrift (doppelter Breite) ausgegeben. 
13 Solange Flag 13 gesetzt ist, werden alle Buchstaben in Kleinschrift ausgegeben. 
14 Flag 14 ermöglicht das Überschreiben überschreibungsgeschütz#er Prgr. und Daten, 
wenn ea gesetzt ist. Nach Beendigung des Schreibvorganges wird es automatisch 
gelöscht, | 
15 + 16 H 


Anwendungszweck wird bekanntgegeben, sobald entsprechende Peripherie 
erschienen ist. Zur Zeit keine besondere Funktion I 


17 

32 _ a re ie en > L 
18 - 20 ?7? 

31 2TE 


33 - 35 ?7? 

Die restlichen Flags sind im HP-41 Handbuch ausführlich vorgestellt. 
beodoneboneeonatönegeöneesnnetearsesosenenetesneesenn6n nenn. Lonennnsen.en 20092242 = 0 200 > 6 0.04 
AdreßBänderung: Larken Publications, der Verlag, bei dem das Buch von Dr, Wickeu erhältlich 
ist, ist umgezogen. Die neue Adresse lautet: Larken Publications, 4517 NW Queena Avemue, 
Corvallis, Oregon 97330. Bei Bestellung 11,50 US$ per Postanweisung im voraus Überweisen, 
Ein deutsches Buch zur synth.Prgr. erscheint votaussichtlich Anfang 1102. 


Bekanntlich kann man durch Löschen des Flags 55 die Rechengeschwin- BleLEl. "Fri 


digkeit bei angeschlossenem Printer um ca 20-25 % erhöhen. F 

Die kleine PRinter-OFf-Routine löst die Aufgabe sehr schnell. Sie GB2 RL: d 

benötigt die Alpha-Reg, lässt aber den Stack (inkl. L) im ursrün- 2 x£> cd 

glichen Zustand. Sie. kann daher bedenkenlos irgendwo in einem Pro- 04 "ber+e..- 

gramm ausgeführt werden, sofern die Alpha-Reg nicht gerade benötigt . 

werden.. Bei der nächsten Ausführung wird Flag 55 wieder gesetzt. 65 x2> cc 
an AD od 

Die Funktionsweise ist die folgende: Flag 55 ist das letzte Bit des so? Fr>c 7 

7. (und letzten) Byte von Reg d. Die Routine schiebt dieses letzte a2 SF 07 

Byte an die erste Stelle im Reg d und verwandelt somit Flag 55 in 83 N<> d 

Flag 07 (letztes Bit des ersten Bytes). Flag 07 wird dann ganz nor- 10 NK» cc 

mal gelöscht bzw. gesetzt, anschliessend werden Stack und Reg d in 11 "HA 

den ursprünglichen Zustand zurückversetzt. 12 KU> N“ 
13 KKr dc 
14 Enn 


Alberto Lenz (551) - Nordstr. 23 - CH-8006 Zürich - 0041-1-262 72 93 


PROJEKLEITER PLOTTEN 
Michael Hartmann - 380 - Wendelegrund 13 - 6690 St. Wendel 


PROJEKTLEITER HARDWARE 
Werker Dvorak - 607 - Allewind 51 - 7900 Ulm - Tel. 07304/3274 


Magnetkartenbeschriftung 


Die ganzen Vorsichtsmaßnahmen mit Klarlack und Übermalen sind nach meiner Erfahrung völlie 
überflüssig, wenn man darauf achtet, daß man mit wasserfesten Filzschreitern oder auch mit 


sog. Folientusche beschriftet. Ich verwende einen Feinlinienstift und habe zeinerlei Schwi 


rigkeiten. FE - Prof, Jochen Kux 
Ich habe die gleichen Erfahrungen gemacht I! Qliver 
Lös buch _Nr. - to, hie 


Das LöBu 5 umfasst 69 DINA4 Seiten, zehn Prer. und ist komplett mit Flu:diarrammen/Struktc 
grarmen dokumentiert. Der Preis wird um 50,--IM liegen, Interessenten werden sich bitte ar 
Frank Altensen (117), Uhlandstr.9 „ 6365 Rosbach 3 - Tel. c£007/1409 

Die enthaltenen Prer. sindt 1) Verschiebechiffrie 2) Invertierurz 3) Datenschutz 
RN Semiotische Analyse 5) Morseealphabet I + II 6) Numerik 7) Kryptaralyse 

8) Portasche Chiffrierung 


Hardwareverleih 


Ursprünglich war vorgesehen, Hardware an Clubmitglieder zu verleihen. Drucker und Kartenle 
ser wurden bereits mehrfach verliehen, was sich aber als äußerst uneffektiv herausstellte, 
Außerden ist der Arbeitsaufwand durch ständiges Verschicken zu groß. Eei der jetzigen Zahl 
von Mitglieder gibt es daher keine andere Möglichkeit, als alle Verlei‘.vcrr..ben ersatzlos 
zu streichen, Die PPC-ROMs des Clubs wurden an Clubmitglieder wit der auflzze, sie auch ar 
andere Mitglieder zu verleihen, zum Selbstkostenpreis verkauft. Bisher (Zrie Gktober) gibt 
es allerdings noch keine Anzeichen einer baldigen Auslieferung der Kits. Oliver(“ 
Wer trotzdem Peripherieeinheiten kennenlernen will, kann dies auf allen Zlubtreffen ! 


Suche Mitglieder, die bereit sind, versch. Graphicen auf dem Hr-Drucker zu erstellen. 
Andreas Roemer, Eckenheimer Landstr. 3, 6000 Frankfurt/M,, Tel. c611/5%4251 


MOmentan sieht es so aua, als wenn wir selbst unter Berück- 
sichtigung der Vorjahresverluste zum Jahresende (zumindest 
fast) ohne Schulden dastehen, Dımit wären die Finanzsorgen 
bis Anfang 1962 vorerst vom Tisch Il! Oliver(o1) 
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Protokoll der Vereinsgründung des Computerclubs Deutschland 


1. Am 11.10.1981 trafen sich in Kronberg, Lifiburger Straße 15, die auf beiliegen- 
der Anwesenheitsliste verzeichneten Personen zur Beschlußfassung über die Grün- 
dung eines Vereins zur Unterstützung von Wissenschaft und Forschung auf dem Ge- 


biet Informatik und Computertechnologie. 


Herr Oliver Rietschel gab einen Überblick über seine bisherigen Aktivitäten auf 
diesem Gebiet und schlug gleichzeitig den Namen "Computerclub Deutschland" vor. 
Dieser Name wurde einstimmig angenommen. 


Herr Rietschel schlug vor, Herrn Bock als weiteren Versammlungsleiter für die 
Versammlung und Herrn Hansmann als Protokollanten per Handzeichen zu wählen. 
Nachdem beide gewählt waren, schlug Herr Bock folgende Tagesordnung vor: 


1. Beratung und Beschluß über die Vereinssatzung ! 

2. Wahl des Vorstandes 

3. Festsetzung des Jahresbeitrages 

4. Übergang des HP Anwenderclubs Oliver Rietschel in den neuen Verein. 


n 


Zu 1.: 

Die Satzung wurde nach Diskussion und verschiedenen Änderımgen von Herrn Bock 
zur Abstimmung gestellt. Sie wurde per Handzeichen von allen Anwesenden ange- 
nommen. Der Beitritt der Anwesenden zu dem Verein wurde durch Unterschreiben 
der Satzung vollzogen. | 


Zu 2.: 
Die Vorstandswahl wurde per Handaufheben durchgeführt und hatte folgendes Er- 
gebnis: 
ja nein .* Enthaltung 

1. Vorsitzender: Herr Oliver Rietschel 6 1 i 
2. Vorsitzender: Herr Rolf Hansmann 6 
Beisitzer: Herr Detlev Bock 6 

» Herr Andreas Marktscheffel 6 


Die Gewählten erklärten, daß sie die Wahl annehmen. 


1 
1 
1 


Zu 3.: 

Herr Rietschel schlug vor, den Jahresbeitrag für 1982 auf IM 60,-- festzu- 
setzen. R 

Dieser Vorschlag wurde einstimmig angenommen. 

Zu 4.: 


“ Der CCD soll rechtlicher Nachfolger des nicht eingetragenen ''HP Anwenderclubs 
Oliver Rietschel" werden. Mit Bezahlung des Mitgliedsbeitrages für 1982 sind 
dieMitglieder dieses Clubs Mitglied im CCD. 


Kronberg, den 12.10.1981 


DR , 


1 Ne . 
ut Tamm m _ 
14 


(Rolf Hansmann) 


sa des terclubs Deutschland _- CCD i 


81 
Der Verein führt den Namen 'CCD - Campullerclub Deutschland" mit dem Zusatz "e.V. 
nach Eintragung und hat seinen Sitz in Kronberg. Er ist rechtlicher Nachfolger des 
"Hewlett-Packard Anwender Club". 


82 
Der Computerclub verfolgt ausschließlich und urmittelbar gemeinnützige Zwecke im 
Sinne des Abschnitts "Steuerbegünstigte Zwecke" der Abgabenordnung. Zweck des Ver- 
eins ist die Förderung von Wissenschaft und Forschung. Der Satzungszweck wird ver- 
wirklicht insbesondere durch Durchführung wissenschaftlicher Veranstaltungen und 
Forschungsvorhaben und Herausgabe eines vereinseigenen Informationsblattes. 


83 
Der Verein ist selbstlos tätig; er verfolgt nicht in erster Linie eigene wirt- 
schaftliche Zwecke. 


4 
Mittel des Vereins dürfen nur für die satzungsmäßigen Zwecke verwendet werden. 


$5 
Es darf keine Person durch Ausgaben, die dem Zweck der Körperschaft fremd sind, 
oder durch unverhältnismäßig hohe Vergütungen begünstigt werden, 


86 
Die Aufnahme in den Verein erfolgt auf Antrag. Die Mitgliederzahl ist unbe- 
schränkt. 


$7 
Die Mitgliedschaft endet durch Tod, Austrittserklärung oder Ausschluß. Der zum 
Ende eines jeden Kalenderjahres mögliche Austritt erfolgt durch formlose Erklärung 
mit einer Frist von vier Wochen zum Jahresende an den Vorsitzenden. Über den 
Ausschluß entscheidet die Mitgliederversammlung mit einer Mehrheit von 75 % nach 
freiem Ermessen. 


8 
Über die Höhe der Geldbeiträge beschließt die Jahresversanmlung der Mitglieder 
nach einfacher Mehrheit. Das gleiche gilt für Satzungsänderungen und —rgänzungen. 


9 
Organe des Vereins sind der Vorstand und die Mitgliederversammlurg. 


$ 10 
Der Vorstand besteht aus dem 1. Vorsitzenden, dem 2. Vorsitzenden und zwei Bei- 
sitzern. Vorstand im Sinne des $ 2eWnd der 1. und der 2. Vorsitzende, die den 
Verein jeweils allein vertreten können. 


$ıı 
Die bis zum 1. November eines jeden Jahres stattfindende Mitgliederversammlung be- 
schließt über die Höhe der Beiträge, die Entlastung des Vorstande,., die Wahl des 
Vorstandes und über Satzungsänderungen. Der Vorstand im Sinne des $ 26 BGB wird 
jeweils auf die Dauer von drei Jahren gewählt. Eine Wiederwahl ist zulässig. Über 
die Wahl der übrigen Mitglieder des Vorstandes wird jährlich entschieden. Die Ein- 
berufung der Mitgliederversammlung erfolgt durch den Vorstand mit einer Frist von 
vier Wochen schriftlich unter Bekanntgabe der Tagesordnung in der Clubzeitschrift. 
Die ordnungsgemäß einberufene Mitgliederversammlung ist unabhängig von der Zahl 
der erschienenen Mitglieder beschlußfähig. Über die Mitgliederversammlung ist eine 
vom Vorsitzenden oder von einem von der Versammlung gewählten Protokollführer zu 
unterzeichnende Niederschrift aufzunehmen. 


g 12 
Bei Auflösung oder Aufhebung des Vereins oder bei Wegfall seines bisherigen Zwek- 
kes fällt das Vermögen des Vereins an eine Körperschaft des öffentlichen Rechts 
oder eine andere steuerbegünstigte Körperschaft zwecks Verwendung für die Förde- 
rung von Wissenschaft und Forschung. 


Unterschriften der Gründungsmitglieder siehe Rückseite, 


: Olaf Qurac 120) BT 
Grüntenstr 9b... 
1000 Berlin ‚ den 23.10.1981. 


Liebe Clubmitglieder! 


Oliver fragte vor einiger Zeit bei mir an, ob ich den Wahlleiter 

bei der anstehenden Wahl machen wolle. Ich stimnte gern zu. In. 

dieser Eigenschaft haben viele von Euch in letzter Zeit Ihre Stinmn- 
zettel an mich eingesandt. Ich weiß nicht,ob Oliver eine Statistik 
darüber führt, wieviel Mitglieder aktiv am Club mitarbeiten, aber 

bei dieser Art Aktivität hatte ich mit mehr Beteiligung gerechnet. 
Nach den Eingängen der Stimmzettel dürfte unser Club zur Zeit ca. 

700 Mitglieder haben (?). Zurückgekommen sind aber nur 180 Stimn- 
zettel, wenn man von einigen wenigen Austritten absieht, also nur 

ca. 25% der Mitglieder haben sich an der Wahl aktiv beteiligt. Eigent- 
lich doch sehr sehr schade. Denen,die sich an der Wahl beteiligt ha- 
ben,gilt der Dank um so mehr. Nun zur Wahl selbst: 

Es wurden insgesamt 93 verschiedene Beiträge genannt. Es entwickelte 
sich eigentlich von Beginn an ein Kopf an Kopf Rennen zwischen vier 
Beiträgen. Mit wechselnden Führungen lag eigentlich bei jeden Zwischen- 
stand ein anderer der vier an der Spitze. Der Sieger kristallisierte 
sich erst mit den letzten ausgewerteten Stimmzetteln heraus: 


Leu 22 22 2 2 2 22 2 22 22 SE 2 SZ SZ a 2 2 2 2 222 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 2 2 2 2 2 272 2 2 27 


r* 
1. Bar Codes und Graphik mit dem 41C: Winfried Maschke (413) * 
Seite 249 bis 252 -81 46 Punkte 8 
* 


Luz E22 2 SEE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 202 2 2 202 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 2 2 202 2 2 202 2 2 20202 


2. Plotter : Fred Huber Seite 114 bis 117 -81 41 Punkte 
3. Hindernisfahrt: Ralf Wirowski Seite 262 bis264-B1 40 Punkte 


Dem Sieger herzlichenGlückwunsch! 

Die vollständige Ergebnisliste findet Ihr im Anhang. Bei gleicher 
Plazierung sind die Beiträge in alphabetischer Reihenfolge der Au- 
toren aufgeführt. 

Bei der Suche nach dem 'erfolgreichsten' PRISMA-Autor gingen die Punkte, 
die jeder Beitrag erhielt,entsprechend ein. Wie es sich zeigte, waren 
die gleichen vier Autoren vorn wie bei der ersten Wertung. Die Reihen- 
folge war aber doch beträchtlich verschieden von der ersten, wenn man 
bedenkt, daß der Sieger nicht unter den ersten Drei der ersten Wertung 
war: 


% 


Rack 


BEER 
1. Klaus Werner Hoenow (11) mit insgesamt 50 Punkten $ 

a 
Lau 2 22 2 2 2 202 22 202 2 2.2 2 2 2 2 2 2 202 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 200 


2. Winfried Maschke (413) mit insgesamt 48 Punkten 
3. Fred Huber (186) mit insgesamt 42 Punkten 


Dem Sieger herzlichen Glückwunsch! 

Die vollständige Liste mit der Angabe der einzelnen Programme und 

der Punktwertung hierfür ebenfalls im Anhang. 

Abgerundet wurde der Stimmzettel nit einer Befragung nach den Schwer- 
punkten der Interessensgebiete. Die folgenden prozentualen Angaben 
beziehen sich natürlich auf die 180 ausgewerteten Einsendungen: 


* 


RU 


Hardware 102 56,6% Synthetisches 109 60,6 

Spiele 82 45,6% Programnierhilfen 71 39,44 
Elektrotechnik 40 22,2% Steuer/Finanzen 33 18, 3% 
Statik 17 9,48 Statistik 34 18,9% 


Mathematik 97 53,9% 

Mehr als eine zusätzliche Nennung erhielten die Gebiete: 

Amateurfunk, Astronomie,Hoch-Tiefbau,Vermessung, Physik. 

Darüber hinaus wurden weitere 33 Schwerpunkte je einnal aufjrel’ührt. 
Ihr findet die Liste im Anhang. “ 

Den Siegern nit Ihrem neuen ROM viel Spaß. Ich hoffe bei der nichsten 


Wahl auf mehr Beteiligung! 


ERGEBNIS ZUMGAHL DES BESTEN BEITRAGES AUS PRISNA 1980 / 81 


ZSZEZESZS2EZZEESESZESSEZSJS2 225 52523 Z5 5 SZEZ2ZE3SSISS5IS5=2E 5 5Zz 222 = 52222 
1. Bar Codes & Graphik Maschke 249/252-81 
2. PLOTTER \ F. Huber 114/117-81 
3, Hindernisfahrt Wirowski 262/264-81 
4. Matrizenrechnung Hoenow 9/23-81 
5. Monatslohnabrechnung Berg 68/76-81 
6. Rechnerorganisation Marktscheffel 147/151-81 
Rechnerorganisation Rietschel Juli 80 
8. ee Byte Mach 41-81 
Doppel Hires Plotting Stroinski 44/ 46-81 
10. Rechnerorganisation Grabiak W.Sonder Heft 
11, Prinfaktorzerlegung Hillebrandt 169/183-81 
PLOTTER Klauc lkovenber 80 
13. Inverses Mastermind Davertzhofen W.Sonder Heft 
ORDO Meyer-Lindenberz 257/260 -81 
Balkendiagrann Pochert 247/21,8-81 
16. Key Assignnent Program Bock 18/Juli-80 
17. Paket: Interpolation Ehrhardt 77/84-81 
Programmierhilfen Anfäng Hoenow Diverse 
High Resolution Plotting Rietschel(Schwarz)24/September -80 
QTH-Kenner j Spiegel 5-81 
Das sind Bar Codes Warmuth 40-81 
22. Kfz-Kosten Nöhren 85-81 
Character Builder Pfeifer 241-81 
24. Kalenderausdruck de Arras 23/September-80 
Kegeln Rietschel 187-81 
FORMEL 1 Weitz 22/Juli-80 
27. PBJ-Status Klenp 235-81 
Phasen/Finsternisse Lelarge 7/Juni-80 
KA Progran Marktscheffel 151-8? 
Flugnavigation Wienbeck 157-81 
31. Mastermind Davertzhofen W.Sonder Heft 
Bastelprogrann Grabiak w.Sonder Heft 
Differentialgleichungen M.Huber x.Sonder Heft 
Kälenderprogranmnm Nöhren Oktober-80 
35. Raten und Rechnen Altensen 101-81 
Hex-Dez Wandler Holm 128-81 
Bubble Sort Kirchner 219-81 
Vierpole Lütke Uphues W.Sonder Heft 
Primfaktorzerlegung Tetens 208-81 
Acht Damen Problem Weiler W.Sonder Heft 
Memory Spiel Weitz 21/September-80 
42. CHIP-Preisausschreiben Altensen 153-81 
FN Born W.Sonder Heft 
ACXR Hoenow 8/Oktcber-80 
Diskrete Fourier Transf. Kropf W.Sonder Heft 
Inverse Fourier Transf. Kropf “.Sonder Heft 
LOGIC Lindner 292-8! 


Bug 3 Simulator 


Formänderung Kragarm 
Rechengeschwindigkeit 


BARA/BP 
Bruchrechnung 
Newton-Verfahren 


Prinfaktorzerlegung 
Primfaktorzerlegung 
Synthetische Progranmnier. 


U-Boot Jagd 


Mantisse m der Zahl in X 


Ohnsche Dämpfung 


Triangle So ut lons 


Lütke Uphues 
Lütke Uphues 
Lütke Uphues 
Maschke 
Mirgel 
Müller 

Moeck 
Nöhren 
Nöhren 
Rietschel 
Schu 


Stroinski 


W.Sonrzer Heft 
24-81 

251-81 
26/Sepntember-80 
206-381 

209-81 

22I-E\ 

223-81 
13/Juli-80 
122-81 

141-81 

135-831 


11 
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Alle folgenden Beiträge haben jeweils einen Punkt W# Ihren Konto 
und sind somit gemeinsan auf Platz 61: 


10 Pkte.Gauß Quadratur Bock Test Magnetkartenleser Mirgel 
Rechnernarkt Weitz. 2 Fkt. Plottprogramn M.Huber 
Hex-Ddez Wandler Beiersdorf Schiffe versenken Rietschel 
Stern Dreieck Meyer I Siewert 
Flag Mach Aussagenlogik Schu 

UEBE Tetensa LIN Born 
Memory Saver Beiersdorf Batterie 41 C Folprecht 
Page Switching Lütke Uphues Magische Zahlen Klauc 
Tips und Tricks Dreiecksberechnung Stroinski 
Widerstandsbestimmung Berg PLOT 1 Hoenow 
LBLFT Raabe Erg. zu MULTI Hoenow 
Perepheriefunktionen Nöhren HF wirowski. 
Akustisches Interface Grabiak PBJ Kropf 
Additionsprogramn Elsässer Prüfziffernprogrann F.Huber/Bruch 
Trafo Berechnung Henze Root Wolpers 
Primzahlentest Pfeifer STAR TREK Krumins 
Magisches Quadrat Meyer -Lindenberg 


Insgesamt 93 Beiträge genannt von 180 Einsendungen! 


ERGEBNISLISTE_NACH AUTOREN _GEORDNET 


1. Hoenow Programmpaket:Matrizenrechnung 3 50 Punkte 
Programmierhilfen für Anfänger 
ACXR 
PLOT 1 
Ergänzungen zu MULTI 

Maschke Bar Codes und Graphik A 
BARA/BP 


2 48 Punkte 
3. F. Huber PLOTTER A 

[A 

5 


42 Punkte 
Prüfziffernprogramn 
. Wirowski Hindernisfahrt 4 
HF 
Rietschel Rechnerorganisation 2 
High Resolution Plotting 
Kegeln 
U-Boot Jagd 
Schiffe vergenken 
6. Marktscheffel Rechnerorganisation 
KA Progran 
7. Berg Monatslohnabrechnung 
Widerstandsbestimmung - 
8. Stroinski Doppel Hires Plotting 
Ohmsche Dänpfung 
Dreiecksberechnung 
9. Grabiak Rechnerorganisation 1 
Bastelprogranmn 
Akustisches Schalt Interface 
10. Mach Programmierbarer Byte Junper 
11. Klaue PLOTTER 
Magische Zahlen 
12. Davertzhofen Inverses Mastermind 
Mastermind 
12. Hillebrandt, Prinfaktorzerlegung 
12. Nöhren KfZ-Kosten 
Kalenderprogramn 
Prinfaktorzerlegung 
Synth. Programmierung 
Perepheriefunktionen 


41 Punkte 


38 Punkte 


26 Punkte 


D n 

ADD Joan Der NND DNS NDOND- OO -—-NDOAN--DOm 
nD 
w 


Punkte 


_ 


22 Punkte 


21 Punkte 


19 Punkte 
16 Punkte 


- {4 


15 Punkte 


pa 


15 Punkte 
% Punkte 


15. 


16. 
17. 


17. 


19. 


20. 
20, 


20. 
20, 
ab. 
25. 


25. 
25. 
25. 


25. 
25. 
31. 


32. 
32. 
32. 
32. 
32. 


32. 
38. 


38. 
38. 
38. 


Alle anderen bisher nicht genannten Autoren erschein-r. 
mit einem Beitrag in der Liste und haben nur je eirer 


Meyer- Pffndenberg 


Pochert 
Bock 


Lütke Uphues 


Weitz 


Ehrhardt 
Pfeifer 


Spiegel 
Warmuth 
de Arras 
Altensen 


M.Huber 


Klenp 
Kropf 


Lelarge 
Wienbeck 
Tetens 


Born 


Holm 
Kirchner 
Mirgel 


Schu 


Weiler 
Beiersdorf 


Lindner 
Moeck 
Müller 


ORDO 11+2° 12 Punkte 14" 


Magisches Quadrat 
Balkendiagramn 1 
Key Assignnent Program 
10 Punkte Gauß Quadratur 
Vierpole 

Bug 3 Simulator 
Formänderung Kragarm 
Rechengeschwindigkeit 
Page Switching 

FORMEL 1 

Memory Spiel 
Paket:Interpolation 
Character Builder 
Primzahlentest 
QTH-Kenner 

Das sind Bar Codes 
Kalenderausdruck 

Raten und Rechnen 
CHIP-Preisausschreiben 
Differentialgleichungzen 
2 Funktionen Plott Proz. 
PBJ-Status 

Diskrete Fourier Transf. 
Inverse Fourier Transf. 
PBJ 

Phasen/Finsternisse 
Flugnavigation 
Primfaktorzerlegung 
UEBE 

FN 

LIN 

Hex-Dez Wandler 

Bubble Sort 
Bruchrechnung 

Test Magnetkartenleser 
Mantisse m der Zahl in X 
Aussagenlogik 

Acht Damen Problen 


N NDWW-D UND AND DIN N DL RNODANJDWNANDDRWEVDH- 


Hex-Dez Wandler 1 
Menory Saver k 
LOGIC z 
Primfaktorzerlegung 2 
Newton Verfahren 2 


Autoren sind alle gemeinsam auf Platz 42. 
SCHWERPUNKTTHEMEN: (jeweils nur ein einziges Mal zenannt) 


11 Punkte 
10 Punkte 


10 Punkte 


Punkte 


Punkte 
Punkte 


Punkte 
Punkte 
Punkte 
Punkte 


NO 08 o © De) 


un 


Punkte 


Punkte 
Punkte 


nn 


Punkte 
Punkte 
Punkte 


Punkte 
Punkte 
Punkte 
Punkte 
Punkte 


Punkte 
Punkte 


DW \) In \ wu 


2 Punkte 

2 Punkte 

2 Punkte 
nur einmal 
Punkt. Diese 


Fotografie Rechnerorganisation Navigation Brettspie. 
Kaufm.Progr. Technische Progranne Maschinentauü Kinematik 
Geodäsie Getriebetechnik Bildschira Geometrie 
Hydraulik Perephericerweiterungen Massenspeicier Heuheiten 
Bar Code Aufb. Wuhrscheinlichkeitsrechn. Telefoncosruter Druck 
Graphik Themen aus PPC Zahlentheori Plottingzs 
Barplott Selbstbauanleitungen Konstrukticr Antennen 
Utility Umwulttechnik Rechnungswesen Kalender 


Adupter / Compiler 


* 
Die beiden Punkte für das Programm ORDO von Meyer-Lindenberg die 
jeweils als !: vermerkt sind resultieren aus einer Stimnzettel- 


Rücklauf orst 
zliedes. 


nm 20.10. wegen längerer Krankheit eines Clubnmit- 
Dis kuihenfolge bleibt jedoch erhalten. L:diglich die 


die punktgleichen Beiträge von Platz 13 haben Jetzt Platz 14! 


PROGRAMMIERHILFEN FÜR an ncenr 


Einfsche Zählschleifen unter Benutzung von ıISG bezw. DSE sind 
im deutschen Handbuch (Seiten 164 ff.) beschrieben. Bei nehr- 
fach ineinander geschaschtelten Zählschleifen tauchen jedoch ge- 
legentlich Schwierigkeiten auf. j 


Es sei folgende (triviale) Aufgabe gestellt: für verschiedene 
Wertepsare (X, Y) soll die Transformation in Polarkoordinaten 
(R, 4) durchgeführt werden. Dabei sollen vor Beginn der Rechnung 
von Benutzer der Bereich (XA bis XE) und die Schrittweite (Dx) 
für X und entsprechend für Y auf Anforderung eingegeben werden 
(sämtliche Werte>D und ganzzahlig). 


In der äußeren Schleife wird sadenn der gesamte Bereich der 
X-Werte und in der inneren Schleife zu jedem X-Wert der gesem- 
te Bereich der Y-Werte durchlaufen. Das Struktogremm zu dieser 
Aufgabe sieht also folgendermaßen aus: 


1. Eingabe XA, XE, DX 

2. 
3. Für X = XA bis XE, Schrittweite DX 

u. 

5. Für Y = YA bis YE, Schrittweite DY 

5. ELTTTE PIC ZEE : 

. 

8. 


In den einzelnen Zeilen soll sich folgendes abspielen (vergl. 
euch den Programmausdruck SCHL mit zugehörigen Nummern): 


1. Auf die Frage "XA #4 XE $# DX" werden diese Werte vom Benutzer, 
getrennt durch ENTER und abgeschlossen durch R/S, eingegeben. 
Das Unterprogramm LBL DD berechnet daraus gleich den Schlei- 
fenzänler XA + XE/3000. + DX/100000 (siehe deutsches Handbuch 
Seite 163). Dieser Zähler wird nach RO1I gespeichert. 


2. Für den Y-Bereich gilt das unter 1. Gesagte. Der Schleifen- 
zähler wird nech ROOD gespeichert. 


3. LBL 01, ISG 01 und GTO 01 bilden Anfang und Ende der äußeren 
Zählschleife, wobei durch ISG 01 jeweils nach dem Durchlau- 
fen der Schleife der X-Wert um DX erhöht wird. 


4. Hier wird der jeweils aktuelle X-Wert angezeigt, wobei ihm 
vorher durch INT die hinter dem Dezimalpunkt liegenden 
Teile von XE und DX abgeschnitten werden. Da der "bereinigte" 
X-Wert für die spätere Rechnung gebraucht wird, wird er nach 
RO3 zwischengespeichert. .. 


5. L8L 02, ISG 02 und GTD 02 bilden Anfang und Ende der inneren 
Zählachleife. Allerdings -und das ist der wesentliche Punkt 
dieser Betrachtung- ist für die innere Schleife (bei mehreren 
verschachtelten Schleifen für alle inneren) ein Vorbereitungs- 
schritt erforderlich: der nach ROD gespeicherte Schleifen- 
zähler muB vor Beginn der Schleife in des Register (hier RD2) 
geladen werden, in dem anschließend die Inkrementlerung bezw. 
Dekrementierung stattfinden soll; denn nach vollständiger 
Abarbeitung der inneren Schleife ist der Schleifenzähler ja 


D 


zerstört, so daß er beim nächsten Aufruf der inneren Schlei- 
fe durcn Abruf von ROO erst wieder regene-iert werden muß, 


Für den Zähler der äußersten Schleife trifft aas i.a. nicht 
zu, da dieser nur einmal durchlaufen „iro. 


6. Hier wird der aktuelle Y-Wert angeze:z3”, entsprechend L. 


7. In diesem Teil wird die eigentliche Funktiznsberechnung 
durchgeführt, in diesem Fall einfacn curen k-F. 


8. Hier werden nacheinander die beiden Erzeznisse mit Text 
angezeigt. 


B1*LBL "SCH 4 H 23 RCL 83 
L* :\ 24 R-P 
82 -xn t xE 25 "R=- 
t DX- 26 ARCL X 
4.4 083 xEQ 88 8 27 PROMPT 
84 STO ei «I 28 “=” 
es "va + YE 29 ARCL Y 
+ DY“ 38 PROMPT 
2.3 06 XEQ 88 ne ISG 82 
87 STO 08 «132 GTO 82 
3. B8°-LEL 91 3.‘ 33 1SG 91 
89 RCL 01 .\34 GTO 81 
18 INT 35 RTN 
4% 11 STO 83 36*LBL 88 
"| ız -x= 37 PROMPT 
13 ARCL 93 38 1 E5 
14 PROMPT zu| 39 / 
15 RCL 88 nl 40 R<>Y 
54 16 STO 82 ti ı EI 
17+LBL 82 ı|\*2/- 
13 RCL 82 -| 43 + 
19 INT 44 + 
"6.1 28 "Y=r 45 END 
21 ARCL X 
22 PROMPT 


Die Beschränkung der Wertebereiche ven A ı72 1 auf nicht-nega- 
tive Größen kann manchmal hinderlich sein. üUrter der Voraus- 
setzung, daß XE”7XA und DX>O ist, «kann ce: Zzreicnh für X 
durch Addition einer geeigneten Konstanrezr zu A und X£& so 
verschoben werden, daß beide Werte>L . . Jsr Änzeige und 
Übernahme des X-Wertes in die Funktions 


5 wiecer rückgängiz 
gemacht werden, denn sie diente ja nur cs” nlerfreien ArJei- 
ten mit ISG. Eine entsprechende Transfarrasrisn und nücktrans- 
formation kann auch die Beschränkung neziz!icn Ganzzahligkeit ı 
umgehen, aber das wird der mathematisch \rzersss.zerte Leser 


sicher selbst herausfinden. 


Klaus Werner “zenzu (11) 


Olaf Gursch (WB) 
'Grüntenstraße 29 b 
1000 Berlin 42 


(ieber Oliver und Mitglieder! 


Ich habe das vorliegende Programmpaket, von dem ich über- 

zeugt bin, daß es noch optimiert werden kann, in den letzten 

beiden Jahren im Urlaub benutzt, Es hat mir die Arbeit', 

d.h. die Verwaltung der Urlaubskasse wesentlich erleichtert, 

Es werden also mit meinem Programm all diejenigen ange- 

sprochen, die auch während des Urlaubs auf ihre Kasse achten 

wollen oder müssen, In der vorliegenden Farm benötigt das 

Programmpaket zwei Memory Moduls Tıso Register). Es läßt 

sich aber auch in einer abgemagerten Version mit nur einem 

Memory verwirklichen. 

Da ich in beidem Jahren des Urlaubs mit dem Auto durch meh- 

rere Länder unterwegs war, ist ein wichtiger Punkt für mich 

gewesen die Umrechnerei mit den Währungen meinem HP zu über- 

tragen. Es entstand ein zweigeteiltes Programmpaket: ' 

1) URLAUB mit den Unterprogrammen: CHANGE ,UMR,RMU,WECHS,EINH. 

2) TANKEN mit den Unterprogrammen: KM,DIST,KMKO. 

Als Ergänzung dazu gibt es das Programm SUM und mit den HP- 

KEY NOTES Vol. 5 No. 1 flatterte das Programm TIMER auf meinen 

Tisch, so daß ich dieses auch noch mit aufnahm. 

Im folgenden Abschnitt gebe ich eine Kurzbeschreibung der 

einzelnen Programme, Die Nummerierung findet sich im Programnm- 

Listing im Anhang wieder, 

1.1 URLAUB: Die Ausgaben werden mit Hilfe des Programmes in 
5 Kategorien eingeteilt: Unterkunft, Ernährung, 
Andere Kosten, Fahrtkosten, Kleinkosten, Die Ab- 
speicherung erfolgt in die Speicher 1 bis 5. Spei- 
cher ß wird als Zwischenspeicher benutzt. Für die 
Benutzung mit anderen Währungen (Ausland) ist das 
Programm UMR als Unterprogramm erforderlich. 


ms ee Das Programm CHANGE berechnet den Wechselkurs 

2 und speichert die Einheit in Speicher 7 und den 

® Kurs in Speicher B. Als Unterprogramm wird WECHS 
aufgerufen. Dies führt aber nur zu einer ver- 
nünftigen Programmausführung, falls vorher in 
den Speichern 18 bis 21 maximal 4 Währungsein- 
heiten gespeichert wurden. Bei Ausführung von 
CHANGE wird dann der aktuelle Wechselkurs für 
die entsprechende Währungseinheit in den Spei- 
chern 22 bis 25 festgehalten. 

1.4 EINH: Mit EINH wird der Austausch der Währungseinheiten 
bzw. Kurse zwischen den von UMR benutzten Rechen 
speichern 7,8 und den Speichern 18-21,22-25 vor- 
genommen, wenn man in ein neues Währungsgebiet 
einreist, 

1.5 UMR: UMR rechnet ausländische Währungen in DM um. 
Hierzu muß die aktuelle Einheit der Währung in 
Speicher 7 stehen, der Kurs in Speicher 8.Befin- 
det man sich längere Zeit in einem Währungsgebiet, 
kann man FLAG fß setzen. Dies verkürzt die Aus- 
führung. Ist FLAG Ad gelöscht, wird jedesmal nach 

„einer Änderung der Einheit gefragt. 


1.5 an 


1.7 Sum: 


2.1 TANKEN: 


2.2 NACH: 


2.3 KM: 


2.4 DIST: 


2.5 KMKO: 


RMU leistet das Inverse zu UMR. Es rechnet 

Om in die in Speicher 7 vorhandene Einheit um, 
Dieses Zusatzprogramm berechnet die Summe aller 
Ausgaben, die mit URLAUB gespeichert wurden. 

Am Anfang kann man einen Höchstbetrag der Aus- 
gaben festsetzen, der dann als Vergleichswert 

dient und für jede Abfrage mit SUM den Restbetrag 
ausrechnet. Bei Überschreiten des Hüöchstbetrages 
erfolgt auch noch eine akustische Warnung mit 

BEEP. 

Mit dem Programm TANKEN läßt sich die Kontrolle 

der Treibstoffkosten sowie des Verbrauchs durch- 
führen.Es erfordert die Eingabe des Literpreises, 
sowie der Treibstoffmenge. In ausländischem Wäh- 
rungsgebiet ruft es ebenfalls UMR als Unterpro- 
gramm auf um die Berechnungen in DM Jurchzuführen. 
Die Treibstoffkosten werden automatisch zu den 
Fahrtkosten addiert (Speicher f4) urıd getrennt 

in Speicher 17 festgehalten.Die Prozramme KM und 
DIST werden aufgerufen um den durchschnittlichen 
Verbrauch mit der letzten Tankfüllung und während 
der gesamten Fahrt zu berechnen. 

Dies ist ein Ergänzungsprogramm zu TANKEN. Sollte 
aus bestimmten Gründen, z.B. sehr teure Tankstelle, 
einmal der Tank nicht voll gefüllt werden, würde 
die Durchschnittsberechnung zu fehlerhaften Er- 
gebnissen führen. Deshalb wird in diesem Fall mit 
Nach an Stelle von TANKEN gearbeitet. 

KM hält insbesondere den Kilometerstand zu Beginn 
der Reise fest und besorgt die Sceic'ıerverwaltung 
der einzelnen Kilometerstände bei d=r Durchschnitts- 
berechnung von TANKEN. 

Hiermit lassen sich jederzeit die bisner zurück- 
gelegten Wegstrecken ermitteln. 

Dieses Programm berechnet die Kosten pro zurück- 
gelegtem Kilometer während des Urlsubs. In Programm- 
zeile 08 findet sich ein additiver Faktor. Dieser 
muß individuell bestimmt werden. Er verücksichtiygt 
die jährlichen Fixkosten (STEUER, VERSICHERUNG, 
WARTUNG, RÜCKLAGE NEUWAGENKAUF ,WERTMINDERUNG). Unter 
Umständen kann man hier die ADAC-TABELLE heran- 
ziehen (ADAC -MOTORWELT 12/80). Man muß dann aber 
die Treibstoffkosten herausrechnen. rür einen OPEL- 
ASCONA 1,61 ergibt sich dann monatl. Aufwand pro 
Kilometer ohne Treibstoffkosten bei 15N00 kn im 
Jahr: 0,25920M/km. 


Speicherbelegung beim Programmpaket: 


Speicher: 


Inhalt: 

Zwischenspeicher 

Unterkunft 

Ernährung 

Andere Kosten 

Fahrtkosten 

Kleinkosten 

Summe der Ausıyaben nach Aufruf von 5umme. 


Speicher: Inhalt: 
ß7 


Währungseinheit 

ds Kurs > 

a9: Inverser Kurs . 

I) Summe der getankten Liter Treibstoff 

11 Zuletzt getankte Treibstoffmenge 

12 Anfangs-Kilometerstand 

13 Summe der gefahrenen Kilometer 

14 Kilometer, die mit der letzten Tankfüllung. erreicht 
wurden 

15 Zwischenspeicher 

16 Kilometerstand beim letzten Tanken 

17 Summe der Treibstoffkosten 

18 1. Währungseinheit 

19 2. Währungseinheit 

20 3. Währungseinheit 

21 4. Währungseinheit 

22 Kurs 1. Währungseinheit 

23 Kurs 2. Währungseinheit , 

24 Kurs 3. Währungseinheit 

25 Kurs 4. Währungseinheit 

26 Höchstbetrag der Urlaubsausgaben 


Für den Benutzer unbedingt erforderliche Kenhtnis der FLAGS: 

Flag Ad: Muß gesetzt werden, um bei längerem Aufenthalt in 
einem Währungsgebiet die Programme zu beschleunigen. 

Flag fl: Wird automatisch gesetzt, wenn das Programm NACH be- 
nutzt wird. 

Da ich keinen Drucker besitze ist das Listen mit der Schreib- 

maschine erfolgt. Alphanumerische Eingaben sind mit '! ! ein- 

geschlossen. 

Im Anhang folgen jetzt die Listings der Programme und dann 

ein Beispiel. Für das Beispiel gebe ich hier die Werte an: 

In Deutschland getauscht: Für 363,230M erhielt ich 2500 ÖS 

und für 103,75 OM erhielt ich 50000 Lire,. Der Start erfolgte 

beim KM-Stand 82691. Getankt habe ich dann wie folgt: 


Liter Preis Liter KM-STAND 
1,32 31,83 83465 
1,489 19.97 Nachgetankt 
18,84 Bs 28,04 83648 
g98f Lire 10,6 83724 


Ausgaben die das Programm URLAUB betreffen: 
Ernährung DM 15.-, Unterkunft 175.-0S,Ernährung 1BA.-Ös, 
Fahrtkosten (Mautgebühr) 178 0S „ Kleinkosten 19,5 BS. 


Viel Spaß beim Benutzen des Programms und während 
des nächsten Urlaubs! 


u ir 
Programa Listing e: 


1.1 URLAUB: 


#1 LBL'URLAUB! 22 CTOc 43 RCLIG 

92 CLST 23 ISG 15 4b X<>Y 

#3 LBL a 24 GTO b 45 ST+ IND Y 
4 "PROGRAMM?! 25 LBL c 46 STOP 

#5 PROMPT 26 GTO INDX 47 CTOa 

f6 ENTER 27 LBL d 48 LBL 91 

#7 stop 28 AVIEW 49 "UNTERKUNFT! 
8 X<=p? 29 PSE 53 CTOd 

9 CTOa 38 DM?=1 51 LBLP®2 

18 6 31 PROMPT 52 'ERNAEHRUNG! 
11 X<Y? 32 ENTER 53 GTOd 

12 CTOa 331 54 LBLB3 

13 CIX 3, X=Y? 55 tANDERE KOSTEN! 
14 FIX 2 35 G6TO e 56 070 d 

15 1,985 36 SFß7 57 LBLß4 

16 STO 15 37 XEQ'UMR! 58 "FAHRTKOSTEN! 
17 LBL b 38 LBL e 59 GTOd 

18 RCLBB 39 CLA 68 LBL#5 

19 RCL 15 4d DM-BETRAG? 61 KLEINKOSTEN 
28 INT 41 FC2C 97 62 cTOd 

21 X=Y? 42 PROMPT 63 END 


1.2 CHANGE: 


Bi LBL'CHANGE! 18 WIEVIEL! 19 ARCL@7? 

ß2 "EINHEIT?! 11 28 -= 

#3 AON 12 ARCLY7 21 ARCLB8 

ß4 PROMPT 13 PROMPT 22 EDM 

5 ASTO 7 14 / 23 AVIEW 

ß6 AOFF 15 STOA8 24 PSE 

#7. WIEVIEL DM?' 16 CLA 25 XEQI !WECHS! 
#8 PROMPT 17 v 26 END 

9 ENTER 18 + 

1.3 WECHS: 

®1 LBL'WECHS! ı8 ST+ dB 19 FS? 19 

#2 18 11 RDN 28 RCL IND 08 
#3 STO 98 12 RDN 21 Fc? 19 

4 RCL$7 13 6T0 a 22 RCB8 

65 LBL a 14 LBL b 23 F52 18 

P6& RCL IND IR 15 RCLBR 24 C:T9 88 

7 X=Y? 16 4 25 Fo? 18 

d8 CTOod- 17 + 26 ST2 IND 98 
9 1 18 STOß 27 RTN 

1.4 EINH: 

d1 LBL'EINH! PROMPT en 

02 SF 18 %£ AOFF en a 

83 "WELCHE WAEHRUNG?! 97 ASTO 97 1 Ko 

4  AON d8 


XEQ'WECHS! 


1.5 UMR:>- 


1 LBL'UMR' 
A2 Fs? 90 

3 GTOa 

ß4 CLA 

5 "ZUR ZEIT! 


#7 ARCL 97 

d8 AVIEW 

#9 PSE 

18 "AENEDERUNG? ZB! 
11 PROMPT 

12 xX#8? 


1.6 RMU: 


f1 LBL'RMU' 

#2 RCL ß8 

03 1/X 

d4 STOo 99 

5 CLA 

f6 "WIEVIEL DM?! 
@7 PROMPT 


1.7 SUM: 


P1 LBL'SUM' 
2 FS? 86 
23 CTOa 
ß4 "'HOECHSTBETRAG?'" 
PROMPT 

STO 26 

SF 86 
LBL a 

1,605 

sTto 15 


-.-.-.999390%9 
D-00000 


d 
sTo 96 
13 LBL b 


2.1 TANKEN: 


1 LBL'TANKEN! 
d2 DM? =f' 
#3 PROMPT 
BL x=97 

sFr 99 

!1L KOSTET?! 
PROMPT 

FS?c 99 

CTO c 

SF 97 
XEQ'UM' 
LBL c 

ENTER 
"WIEVIEL LITER?! 
PROMPT 

ST+ 11 
ST+ 19 


13 


„oo. JB 3 
ın 


Dr 
SOC ONNM WDND BO 0D ION 


PSE 
20 ST+ 94 


kann auch entfallen 


- 
De} 


De 3 


13 
14 


XEQ'EINH' 25 
LBL a 26 
CIx 27 
CLA & 28 
'WIEVIEL! 29 
ve 3ß 
ARCL 97 31 
PROMPT 32 
STO 15 33 
LBL'UM' 34 
ENTER 35 
RCL #8 36 
37 
SToO BB 15 
RCL 99 16 
“ 17 
ARCL 89 
= DM= 
- ARCL X 
- ARCL 97 
RCL IND 15 27 
ST+ 96 28 
ISG 15 29 
GTO b 38 
RCL 96 31 
BISHER AUSGEGEB' 32 
AVIEW 33 
PSE 34 
EN:! 35 
- 36 
ARCL X 37 
[- DM 38 
AVIEW 
ST+ 17 41 
PSE 42 
FS? 91 43 
GTO a 44 
XEQ'KM' 45 
RCL 14 46 
ENTER 47 
199 48 
49 
RCL 11 59 
X<>Y 51 
/ 52 
CLA 53 
AUF 1BBKM:! 5% 
= 55 
ARCL X 56 
-L 57 
AVIEW 58 
PSE 59 
SF 97 & 


PSE 
RCL 26 
X<>Y 


!RESTBETRAG: ! 


ARCL X 

AVIEW 

PSE ; 
X<=9? 

BEEP 

END 


XEQ'DIST! 
199 


/ 

RCL 19 
X<>Y 

/ 


CLA 
'DURCHSCHNITTLIC! 
AVIEW 

'HER VERRKAUCH:! 


ARCL X 
-L 
AVIEW 
PSE 


2 

sto 11 
LbBL a 
RTN 
END 


2.2 NACH: 


ß1 LBL'NACH' 89 KXEQ'TANKEN! 
#2 SF 91 18 cF 91 
83 "NICHT VOLL! 11 END 
4 AVIEW 
B5 PSE 
#6 "GETANKT? =$! 
B7 x=9? 
f8 PROMPT 
2.3 KM: 
d1 LBL'KM! 99 LBL a 17 ST+ 13 
d2 FSs?d8 18 "'KM-STAND?! 18 RCL 15 
3 cTOa 11 PROMPT 19 STO 16 
d4 "START BEI KM?! 12 STO 15 20 CLST 
@5 PROMPT 13 ENTER 21 ARTE 
6 STO 12 14 RCL 16 22 END 
7 STOo 16 15 - 
ds SF 88 16 STO 14 
2.4 DIST: 
1 LBL'DIST! #7 LBL a 13 "GEFAHRENE Ku:' 
#2 FS?Cc 97 8 RCL 16 14 + 
3 CcTOa #9 LBL b 15 ARCL X 
ß4 "KM-STAND?! 18 ENTER 16 AVIEW 
#5 PROMPT 11 RCL 12 17 PSE 
6 GCTO db 12 - ı8 RTN 

19 EN 
2.5 KMKO: 
1 LBL'KMKO' 9 + 17 FIX 2 
ß2 XEQ'DIST! 18 FIX 4A 18 Acı 98 
03 sTo gg 11 '1ı KM KOSTETE" 19 
94 ENTER 12 |- 2d "ANTOZOSTEUN:! 
P5 RCL 17 13 ARCLX 217 
B6 X<>Y 14 |- DM 22 
7 / 15 AVIENW 23 
ds #,2592* 16 PSE 2, 
t siehe Text 2 
b zo 


3. TIMER: s. auch HP KEY-NOTESVol.5 Ko. 


#1 LBL'TIMER! 99 1 18 

2 LBLA ı# 5T+ 98 19 1/X 

3 "SICHER FAHREN! 11 GTOo 88 zB 'il=! 
4 AVIEW 12 LBL B z1 AkCLA 
85 LBL 91 13 KCL dB 22 |-E/ü 
6 sSTo da 14 19908 23 WIESE 
#7 LBL 98 15 / 2, 06T 9 
d8 PSE 16 HR 25 KT. 


17 1,5 26 END 


EINGABE 


FUNKTION 
SIZE 927 


EINGABE DES PROGRAMMPAKETES 


CLRG 
ASN'TIMER'14 


-ASN'URLAUB'13 


ASN'SUM! 14 
ASN'CHANGE'15 
ASN'UMR'21 
ASN'RMU'22 
ASN'TANKEN'23 
ASN'!NACH!24 
ASN'KM' 25 
ASN'DIST! 32 
ASN'KMKO!33 
ASN'EINH!' 34 
ASTO 18 

ASTO 19 
XEQ'KM'(25) 
R/S 


XEQ'CHANGE(15) 
R/S 


R/S 
R/S 
XEQ'CHANGE'(15) 
R/S 
R/S 
R/S 


ANZEIGE 


START BEI KM? 


EINHEIT? 

WIEVIEL DM? 
WIEVIEL OES 

1 O0ES=9,14.DM 
EINHEIT? 

WIEVIEL DM? 
WIEVIEL LIRE 

1 LIRE=2,#8E-3DM 


XEQ'TANKEN' (23)DM?=1 


R/S 
R/S 
R/S 


R/S 


1 L KOSTET? 
WIEVIEL LITER? 
42,82 

KM-STAND? 

AUF 180 KM:8,51L - 
GEFAHRENE KM 374,88 
DURCHSCHNITTLIC 

HER VERBRAUCH:8, 51 


XEQ'URLAUB'(13)PROGRAMM? 


R/S ERNAEHRUNG 
DM? =1 
R/S DM-BETRAG? 
R/S 15,98 
XEQ'NACH"(24). NICHT VOLL 
GETANKT? =8 
R/S DM? =1 
R/S 1 L KOSTET? 
R/S WIEVIEL LITER? 
R/S 14,99 
XEQ'URLAUB'! (13)PROGRAMM? 
R/S UNTERKUNFT 
DM? =1 
R/S ZUR ZEIT: LIRE 
AENDERUNG? # 
R/S WELCHE WAEHRUNG 
R/S WIEVIEL OES 
R/S 25,36 
R/S PROGRAMM? 
R/S , ERNAEHRUNG 
DU? =1 
R/S ZUR ZEIT: OES 
. AENDERUNG? #8 
R/S WIEVIEL OES 


EINGABE 
188 


8 
4588 
112 


522 


83728 


FUNKTION ANZEIGE 


R/S 14,49 

R/S FROGRAMM? 

R/S FAHRTKOSTEN 
DEN? =1 

R/S ZUR ZEIT:OES 
AENDERUNG? 8 

R/S WIEVIEL OES 

R/S 24,63 

sF 98 

XEQ'TANKEN' (23)24? = 

R/S 1% En 

R/S “IEVIEL LITER? 

R/S bb, 
KM=STAND? 

R/S AUT 190 KM:7,82 L 


SEFAHRENE KM 917,09 
LURCHSCHNITTLIC 
GER VERBRAUCH: 7,63L 
XEQ'URLAUB'! (13) EROGKAMM? 
R/S KLEINKOSTEN 


MR DM? =1 
R/3 WIEVIEL OES 
R/S 2,83 
cF dd 
XEQ'EINH'(34) WELCHE WAEHRUNG? 
R/S 2,23 -43 
XEQ'TANKEN! (2352? =1 
R/S 1 L KOSTET? 
R/S “IEVIEL LITER? 
R/S 21,56 

EN STAND? 

R/S 


XEQ'UMR' (21) 


R/S 
R/S 
XEQ'RMU' (22) 
R/S 112, Banu=5 5397580 LIRE 
XEQ'SUM' (14) HOECHSTEETRAG? 
R/S BISHER AUSSEGEB 
El: 284,92 DM 
RESTBETRAL: 295,19 
XEQ'KMKO'(33) STARD! 
R/S 3ZEPAERENE KM:1929,80 
1 X4 KOSTETE:Q, 3783 DM, 
AUTOKOSTEN: 389,32 


mr 


BLEIBT NACHZIFTRAGEN, WAS IHR EUCH LÄNSST GEDACHT HABT, IN 


KLAMMERN 


SIND DIE TASTEN-NUMMERN ANGESEBEIN LAT ZUORDNUNG. 


B1+LBL “PT* 
82 CF 81 
83 SF 82 
e4 SF 21 
5 CF 22 


86 ‚398802 
8? STO 91 
88 -58,90195 


e9 STO 82 
18 42,735 E 


11 STO 03 
12 -188 
13 7 

14 STO 94 


15 FC? 55 
16 GTO 81 


17 ADV 
18 SF 12 
19 Pr 1 


28 PRA 
2ı CF 12 
e2 DIN 


25*+LBL ®B1 
26 “TEMPERRA 
TUR ?" 
27 1 
28 PROMPT 


29 FC?C 22 
38 GTO va 


3ı CF 88 


32 858,01 
33 %<=Y? 
34 GTO 292 
35 RDN 

36 -288,081 
37. x%>Y? 
38 GTO 92 


39 RDN 
48 ADV 
41 XEQ 96 
42+LBL 83 


43 x%<0? 
44 SF 88 


. Haupt-Label, 


Einstellen der 
Flags 


Koeffizient für | 
lineares Glied 


Koeffizient für 
qusdr. Glied 


Koeffizient für 
kubisches Glied 


Koeffizient für 
biquadratisches 
Glied 


ehlt der 
Drucker? 


Zusammenstellen 
nd Drucken des 
einleitenden 
extes 


ingabe-Auffor- 
derung für 
emperatur 


Eingabe drucken 


Einstieg für 
Iteration 


Lia9t t-Wert 
unter 0°C? 


Widerstandsthermometer 


DIN 43 760 / Okt. 80 


45 ENTERT 
46 ENTERtT 
47 ENTERT 


48 RCL 94 
49 * 
58 RCL 83 
sı + 
52 * 
53 RCL 82 
54 + 


55 FC?C 88 
56 <> L 


58 RCL 81 


63 FS? 81 
64 GTO 84 


65 GTO 97 


66+LBL 82 
67 BEEP 

68 "WERT IL 
LEGAL“ 

69 AON 

78 PSE 

7ı AOFF 

?2 GTO IND 
2 


?73+LBL 998 
74 "WIDERST 
AND ?” 


‚50 
?”6& STO 25 
77 PROMPT 


78 FC?C 22 
79 GTO 91 


88 398,266 
81 %<=Y? 
82 GTO 82 
83 RDN 

84 18,491 
85 x%>Y? 

86 GTDO 82 


87 RDN 
38 ADV 
89 XEQ 97 


Stack füllen 
für Horner- 
schema 


Ber. des biqu. 
und des kuh. 
Gliedes. 
Quadr. Glied 
vorbereiten! 


Wird nur quadr. 
und lin. benä- 
tigt? 


Berechnung des 
quadr. und lin. 
Gliedes 


Konstante 
addieren 


War es eine 
Iteretion? 


Ausgabe-Routine 
Hinweis auf 
Eingabeuerte, 

die außerhalb 
des Geltungs- 
bereiches liegen. 
Rückkehr zu 
neuer Eingabe- 
Aufforderung 


Vorbereitung zur 
Widerstands- 
Eingabe 


Iterationsregi- 
ster löschen 
Kennziffer 
setzen 


Erfolgte keine 
Eingabe? 


Überschreitet 
die Eingabe den 
Geltungsbereich 
von DIN 43760 
v. Okt. 80 für 
Pt 100 ? 


Steck ordnen 
Leerzeile 
Eingabe drucken 


Pt100 -200°C s ts 850°C 


R = flt) “und 


99 


STO 88 


91*+LBL 05 


113 


188 
x>Y? 
SF 01 


RCL 92 
+ 


RCL 91 
LASTX 


GTO 83 


114+LBL 84 


115 
116 
117 


118 
119 
128 


121 
122 
123 
124 
125 
126 


RCL 898 
ABS 


127+LBL 986 


128 


129 
138 


131 
132 
133 
134 


135 
136 


“Tor 


FS?C 81 
x<> T 


FIX 2 
RND 
ARCL x 
“ro... 


[7] 
GTO 98 


t= g{Rı) 


Eingabewert 
speichern 
Einstieg für 
Iteration 


Ist Iteration 
nötig? 
(R+< 1oo_Ohm) 


Errechnen der 
Temperatur mit 
linearem und 
quadr. Glied. 
(für Rt< 100 Ohm 
nur Näherung, 
dann Iteration!) 


Ist Iteration 
unnötig? 
Absprung zur 
Iteration 


Früfung des e- 
retionsergebnis- 
ses, Bildung der 
Differenz zur 


Eingabe 


Stroinski, September 81 


366,367-81 


137+LBL 67 
138 "R=" 


139 FIX 3 
148 RND 

141 ARCL X 
142 "Fb OHM“ 


143 i 


144+LBL 03 
145 X<>Y 


146 FS? 55 
147 PRA 


148 FS?C 02 
149 RTN 


158 SF 82 
151 FC? 55 
152 AVIENW 


153 GTO IND 
Y 
154 END 


347 BYTES 
SIZE 986 


TOT.REG. :856 


prisma 


Ausgabe-Routine 
für Widerstand 


Formatieren, 
Runden, ins 
ALFHA-Reg. 
setzen, 

CHM_ anfügen 
hennziffer 
Srtzen 
I|Schlußroutine, 


Ist Drucker vor- 
handen? ALPHA-R. 


Var es eine kin- 
gabe? 
Falls Ergepnis, 

nächsten Durch- 
lauf voroprrei- 

ten! Fehlt Druk- 
ker? Anzeigen! 

Zur zuletzt be- 
nutzten Einjabe- 
aufforderung zu- 


Das Programm benutzt die Formeln und cie 
Kanstanten aus DIN 43 760 . Ukt. LO 


Ist Fehler genü-'Pie Auflösung (gegeben durch die Zeilen 


gend klein? 
Dann Ausgabel 


nächsten 
Iteretion. 
Iterationsregi- 
ster berichti- 
gen! 

Neuer Start 


Ausgabe-Routine 
für Temperatur 


Wurde Iteration 
durchgeführt? 

Wert nach X! 
Formatieren, 
Runden, ins 
ALPHA-Reg. 

DOC anhängen 


Kennziffer 
setzen, 
Schluß-Routinel 


118, 


2.) XEQ PT 


ohne Drucker: 


131 und 139) kann durch passende 

Änderung gröber oder feiner gemacht wer- 
den; die Zeilen 19 und ?54 enthalten syn 
Vorbereitung derltnetische Befehle. 


1.) Programm einlesen bzw. eingeben! 
mit Drucker: 


Pt 2100 


DIN L3 760 / 10. ou 
Anzelge: 


"TEMPERATUR 7" 

Mit R/S-Taste kann Auffurderuny in 
"WIDERSTAND 7" 

geändert werden! Zyklischer vorgang! 


Anzeige des 
Ergebnisses 


4.) R/S-Taste: 


3.) Eingabe vornehmen, R/i-Taste urücken! 
Druck der Eingabe 
Druck des Ergebnis- 
ses 


Anzeige wie vor voriger Eingabel 


5.) Welter bei 3, bzw. R/S-Taste, wenn 


Eingabe gewechselt wiorcen sulll 


B81+LBL "NI” 
e2 CF 81 
8e3 SF 82 
04 SF 21 
e5 CF 22 


06 ‚5485 

a? STO 91 
88 665 E-6 
09 STO 82 
18 2,805 E- 


ı11 STO 83 


ı2 FC? 55 
13 GTO 91 


14 ADYV 
15 SF 12 


22+LBL Bi 

23 "TEMPERA 
TUR ?” 

24 1 

25 PROMPT 


26 FC?C 22 
2? GTO 88 


28 180,01 
29 %<=Y? 
38 GTO 92 
31 RDN 

32 -68,81 
33 xX>V? 
34 GTO 982 


35 RDN 
26 ADY 
37 ZEO 86 


38+LBL 93 


Haupt-Label, 


Einstellen der 
Flags 


Koeffizient für 
lineares Glied 


Koeffizient für 
qguadr. Glied 


Koeffizient für 
biquadratisches 


Zusammenstellen 
und Drucken des 
einleitenden 
Textes 


Eingabe-Auffor- 
derung für 


Erfolgte keine 
Eingabe? 


die Eingabe den 

Geltungsbereich 

von DIN 43760 
Okt. 80 für 


Eingabe drucken 


Einstieg für 
Iterationsver- 
fahren 


39 ENTERT 
48 ENTERT 
41 ENTERTt 


42 RCL 03 
43 * 


*« 
45 RCL 82 
46 + 
47 % 
48 RCL 81 
49 + 


* 
51 108 
52 + 


53 FS? 81 
54 GTO 94 


55 GTO 97 


S56+LBL 82 
57 BEEP 

58 "WERT IL 
LEGAL” 

59 AON 

68 PSE 

61 AOFF 

62 GTO IND 
r4 


63+LBL 98 
64 "WIDERST 
AND ?* 


65 8 
66 STO 94 
67 PROMPT 


se FC?C 22 
69 GTO 81 


vo 223.23 
71 8%<=Y? 
72 GTO 82 
73 RDN 

”4 69,45 
75 x>Y? 
76 GTO 22 


77 RDHN 
?8 ADV 
”93 XER 097 


 Widerstandsthermometer 
DIN 43 760 /Okt.80: 


Stack füllen 
für Horner- 
Schema 


Berechnen des 
biquadr. Gliedes 


Berechnen des 
quadr. 
Gliedes 


Ber. des 
linearenGl. 


Konstante 
addieren 


War es eine 
Iteretion? 


Ausgabe-Routine 


Hinweis auf 
Eingabeuerte, 
die außerhalb 
des Geltungs- 
bereiches 


neuer Eingabe- 
aufforderung 
Vorbereitung zur 
wWiderstandsein- 

gabe-Aufforderunt 


Iterationsregi- 
ster löschen, 
Kennziffer 
setzen 


Erfolgte keine 
Eingabe? 


Überschreitet 
die Eingabe den 
Geltungsbereich 
von DIN 43760 


Stack ordnen 
Leerzeile 
Eingabe drucken 


Ni 100 


838 


-60°C 
und 


sSTO 88 


81+LBL 985 


82 


188+LBL 


181 


182. 


183 


194 
185 
196 


197 
188 
199 
118 
111 
112 


113+LBL 


114 


115 
116 


117 
118 
119 
128 


121 
122 


SF 01 
186 


RCL 82 
. 

RCL 81 
LASTX 


REEL 


“T=" 


FS?C 81 
x<> T 


2 


FIS 
RND 
ARCL X 
“ro .cCH 


8 
STO 93 


st s180°C 


!Eingsbeuert 
‚speichern 


Einstieg und 


Kennzeichnung 
der Iteration 


‘Errechnen der 
| Temperatur mit 
ılinearem und 
|quadr. Glied 
als Näherung 


Mit Näherung un 
exakter Formel 
neues R, errech 
nen, Prüfung de 
Iterationsergeb 
nisses. 


Bildung der Dif- 
ferenz zur Ein- 
gabe. Ist Fehlen 
genügend klein? 
Dann Ausgabel 


Vorbereitung 
der nächsten 
Iteration. 
Iterationsregi- 
ster berichti- 


1.) 
2.) 


Ausgabe-Routine 
für Temperatur 


Wert nach X1 
Formatieren 
Runden, ins 
| ALPHA-Reg. 


3.) 


ı®c_anhängen 4.) 


Kennziffer 
setzen 

zur Schluß-Rou- 
tinel 


5.) 


 . 368,369-81 


Das Programm benutzt die fırle. _7Z ie 
Konstanten aus DIuw 43 725 / urt. zo 


Die Auflüsung (gegeben cLict Cie 
104, 117 und 125) kann Guich Less 
Änderung gröber oder feiner 
den; die Zeilen 16 und ‘20 entraeitien syn 
thetische Befehle. 


Stroinski, September &1 


prisma 


123+LBl 97? 


für „iversteno 


124 "R=" 

125 FIX 3 ‚Forsatieren 

126 RND kuncen, ins 

127 ARCL x REES TR 

128 -H OHM“ BERGEN. 
Lehm anrı len, 

129 1 reinziffer 


13@+-LBL #8 ee 


131 x<>Y 
Bit ING Aenene 
132 FS? 55 ılet vrucrer vor 
133 PRA ıhencen? rirnn-{ 
drucken! _ 
134 FS?C 82 Iuer es eine tin 
135 RTN Icate? Re 
136 SF 82 'Feils cIdelhin, 
137 FC? 55 Huchsien UuIcT- 
138 AYIEN le.f vosiereite. 
Fenlt urocoewer? 
139 GTO IND carn anzeigen! 
Y Zur Zuletzt bEe- 
148 END nutzten Einyate 
eufforcereng 
213 BYTES zurück! 
SIZE 9095 


TOT.REG. :856 


,ETRECFT uRT- 


Zee: 


Programm einlesen bzu. ein 


XEQ NI it Dr_ ker: 
ahne Drucker: j Bann 
Vlu -I Wir 
Anzeige: 
"TEMPERATUR :" 
Mit R/S-Taste kann Auft_izer.r. 
"WIDERSTAND 7" 
geändert werden! Zy+ i.. "ei 
Eingabe vornehmen, R’: 


Dru:: 
JIuen 2%. BENEIEE, 


se 


Anzeige des 

Ergebnis:ıes 
R/S-Taste: 
Anzeige wie vor vori”. 
Weiter bei 3, bzw. R/ 
Eingabe gewechselt ur. 2 


Der "Byte-Jumper" und der "Wolf", 


Wohl jeder, der die "synthetische" Programmierung kennt und nutzt, 
kennt und nutzt auch den "Byte-Jumpor". Manches Mitglied unseres 
Clubs kennt und nutzt auch den "Wolf"-Befehl, den Matthias Grabiak 
(76) in seinen Beiträgen über "synthetische" Programmierung im 
Weihnachtsheft 1980 vorgestellt hat. Mörlicherweise wissen aber 
nicht alle, daß der "Byte-Jumper" und der "Wolf" nur zwei verschie- 
dene Namen für die im Prinzip gleiche Funktion ist, Zwar ist nicht 
jeder "Byte-Jumper” ein "Wolf", aber jeder "Wolf" ist auch ein 
"Byte-Jumper", 

Der "BJ" (BJ = Byte-Jumper) ist eine 2-Byte-Funktion, zusammen- 
gestellt aus einem "TEXT"-Befehl und einer beliebigen anderen 
1-Pyte-Funktion, mit Ausnahme des "Null"-Bytes, Es gibt 16 ver- 
schiedene "TEXT"-Befehle. Es sind die Befehle "TEXT @", "TEXT 1" 
usw, bis "TEXT 15", Daher gibt es auch mindestens 16 verschiedene 
Möglichkeiten, einen "TEXT"-Befehl für die Zusammenstellung zu 
einem "BJ" zu verwenden, 


Die "TEXT"-Befehle sind Bytes mit den Kennzahlen (hex) F@ bis FF, 

Der "TEXT"-Befehl ist ein Byte, das dem Rechner signalisiert, daß 

die im Anschluß folgenden Bytes als Text zu deuten sind, Wenn wir, 
als Beispiel, in den Programm-Speicher die Zeile 


03 ac 
eingeben, stehen in der Zeile nicht 2 sondern 3 Bytes: F2,41,43. 
Das Byte F2 gibt an, daß 2 Text-Bytes folgen. 


Der Entdecker des "BJ", William C. Wickes, gab der Funktion diesen 
Namen, weil sie den Rechner veranlaßt, von einer Byte-Deutung in 
die andere zu springen, 


Nehmen wir das obige Beispiel. Wir haben die Zeilens 


02 X<cyY 

o3TAc 
Wenn die Zeile 3 in der Anzeige steht, wir den PRGM-Modus verlassen 
und im RUN-Modus den "BJ" einsetzen, wird der Zusammenhang zwischen 
dem Byte F2 und den nachfolgenden Bytes zerrissen. Der Rechner 
deutet deshalb die Bytes 41 und 43 nicht mehr als "A" und "C", 
sondern als die Funktionen "-" und "/", Das können wir sehen, wenn 
wir wieder in den PRGM-Modus schalten. Wir sehen jetzt die Zeilen: 


09 - 

04 / 
Wenn wir die Zeile 3 mit der "Backarrow"-Taste löschten, würde 
der Programm-Pointer zur Zeile 2 zurückspringen und wir könnten 
im Speicher sehen: 


02 XoOY 

o3r”c 
Der Querstrich am oberen Rand der Anzeige in der Zeile 3 zwischen 
dem hochgestellten "T" un dem "C" ist der Display-Ausdruck für das 
"Null"-Byte, 


Der "BJ", den Mr. Wickes entdeckte, bestand aus den Iytes Fi und 
41. Deshalb wurde er später auch als "Standard-Fi1-BJ" bezeichnet, 
als man entdeckte, daß yan auch alle anderen "TEXT"-Defehle zum 
Zusammenstellen eines "BJ" verwenden kann, 


I. 


Vom "F3-BJ" an aufwärts, bezeichnet man den NJ in der anglo-ame- 
rikanischen Sprachwelt auch als "PRGM-Mode-NJ", als PPrefix-Maskor", 
oder als "Byte-Masker", Mit "masking" (maskieren) sollte der gleiche 
Vorgang umschrieben werden, den Matthias Grabiak meinte, als er 

dem "Wolf"-Befehl seinen Namen gab, weil diese Funktion Dytes 
"friDt" . 


Die von Hagen Klemp (73) im Prisma '81 auf den Seiten 235 und 236 
angesprochenen Befehle "Wolf 1" bis "Wolf 9" könnte man auch als 
"F7-BJ" bis "FF-BJ" bezeichnen. Hagen nennt sie "Wolf 1" bis "Wolf 9" 
weil sie 1 bis 9 Bytes "fressen", 


Was kann man mit dem "BJ" anfangen? Nun, wer Lust zum Probieren hat, 
wird sicher vielfältige Möglichkeiten für sich entdecken. Ich selber 
benutze die "BJ" für 3 verschiedene Anwendungen: 1.) Zum Zugriff auf 
die Status-Register, 2.) Um die überflüssige "1" vor Jen Exponenten- 
Zahlen zu entfernen, 9.) Um "synthetische" Text-Zeilen zu erzeugen, 


Zur Zeit verwende ich 3 verschiedene "BJ" nebeneinander. Einen "F3-BJ 
einen "F7-BJ" und einen "F8-BJ", 

Nehmen wir einmal an, wir nehmen für jeden "BJ" als Postfix, also 

als 2, Byte, das Byte (hex) 59. Das ist die Funktion "IN", bzw. 

der Buchstabe "pP". Jeder "BJ" ist zwar eine 2-Nyte-Funktion, aber 
wenn wir ihn im PRGM-Modus einsetzen, ohne manipulieren zu wollen, 
werden in die Programm-Zeile mehr als 2 Byte-Stellen eingefügt, 


Beispiel 1: Wir setzen den "F3-BJ" ein: 


02’ p” 
Das Postfix-Byte steht immer an 2. Stelle, ein "Null"-TSyte wurde 
zusätzlich eingefügt. 


Beispiel 2: Wir setzen den "F7-BJ" ein: 


5 "Null"-Bytes wurden zusätzlich eingefügt. 
Beispiel 3: Der "F8-BJ": 


6 "Null"-Pytes wurden zusätzlich eingefügt. 


Die Prefix-Bytes "FJ", "F7" und £ "F8" bedeuten ja, «aß im Anschluß 
noch 9, 7 bzw. 8 Text-Zeichen folgen sollen. Da tatsächlich aber 
immer nur 1 Zeichen folgt, werden die übrigen Stellen mit "Null"- 
Bytes aufgefüllt, 


Wenn wir mit dem "F3-BJ" im PRGM-Modus ein "STO M" erzeugen wollen, 
müssen wir einen "Dummy" einsetzen. Als Dummy kann jeler J-Pyte- 
Befehl dienen. Beispielsweise "GTO 15" bis "GTO 99", oder "XEQ AR" 
bis "xrQ 99", oder "1 E" (einmal auf die EEX-Taste drücken). "1 FE" 
unfaßt zwar eigentlich nur 2 Bytes, aber eret nach dem "Packen", 
Vorher bosteht "1 E" aus’den 3 Bytes Aß,49,27. Ich bevorzuge den 
Dummy "1 1%", weil er durch Druck auf eine einzige Taste erzeugt 
worden kınn, 


oa2ır " (99,49,27) 
03 STO IND 17 91,91) 
ol UDN 75) 


Dor Tnımmy "1 E" hat die Aufgabe, Raum zu schaffen für den Einsatz 


x 
des "F3-BJ".. Diese Aufgabe hat er durch die Eingabe bereits erfüllt. 
Jetzt wird er gelöscht und durch Jen. "HJ" ersetzt, Sobald der — 
"BJ" in der Zeile 2 steht, reißt er den Prefix 91 an sich und zer- 
stört damit den Zusammenhang zwischen den beiden Dytes "STO" und 
"IND 17". Das 2. Byte wecheält in der Bedeutung von "IND 17° zu 
"STO", weil es als "IND 17" nicht isoliert im Programm-Speicher 
stehen kann. Da auch ein "STO" nicht allein stehen kann, reißt 
es das folgende Byte 75 an sich und in Zeile 3 steht jetzt "sSTO M", 


o2Fpr 
03 STOM 


Die "BJ"=-Zeile 2 kann gelöscht werden. 


Da der "F7-BJ" die gleiche Arbeit ohne den Einsatz eines Dummys 
machen kann, könnte man ihn als praktischer ansehen. Als Beispielı 


02 STO IND 17 
03 RDN 


wir gehen zur Zeile 1 und setzen den "F7-BJ" ein. Jetzt sieht das 
Programm so ausı 


02T"P7 "og 
03 STO M 


Die Zeile 2 kann wieder gelöscht werden, 


Nehmen wir an, wir wollen eine Zeile mit 3 "Null"-Bytes erzeugen, 
die im ALPHA-Register angehängt werden sollen (APPEND). Bei der 
Benutzung des "F3-BJ" müssen wir dafür folgendes kleine Programm 
eingeben; 


82 xeq 87 (Ed,g7) 
O1E B8,49,27). 
Oh T-AAA F4,7F,41,41,41) 


Der gewählte Buchstabe "A" steht hier nur stellvertretend als Bei- 
spbel. 

Zuerst löschen wir die Zeile 3 und setzen den "BJ" ein. Jetzt sieht 
das Programm so aus: 


... 


02 xEQ #7 (Ed,f7) 
03’"p3 F3,#9,59,F4) 
04 CLD 7 

05 - 41 

06 - 41 

07 =- 41 


Das Byte Fh (TEXT 4) wurde gefressen, die Bedeutung des Bytes 7F 
wechselte von "+-" zu "CLD" und aus den A's wurden die "-"'!s. Die 
3 "-"_Zeichen können wir entweder einzelnp oder durch DEL #3 
gemeinsam löschen. Dafür müssen wir natürlich auf der Zeile 5 
stehen, Jetzt gehen wir zur Zeile 2 und ersetzen wieder den dort 
stehenden Befehl durch den "F39-BJ". Nun haben wir folgendes Pro- 
gramm vor uns: 


027- Pa F3,#8,59,F3) 
03 _LN ) 


re ee 


« 


Beim Eraetzen des "XEQ #7" durch den "F9-BJ". wurde das 1. Dyte 
aus Zeile 3 "gefressen" und damit die anderen Bytes dieses Strings 
freigesetzt. Aus dem "P" wurde "LN" und das Byte F& übernahm die 
nachfolgenden Bytes wieder als Text-Zeichen, 


Bei der Verwendung des "F7-BJ" gibt es zwar auch Aufwand, aber der 
ist nicht ganz so groß. Hier heißt das Programm: 


02 pAAA  (FR,T7F,41,41,41) 
Ohne irgendetwas löschen zu müssen, gehen wir zur Zeile 1 und setzen 
sofort den "BJ" einı 


02T-p "7 og a 38,59, Bd.00.#d,09,F4) 


03 CLD 

ob - 41 
05 - 41 
06 - 41 


Auch hier ist wieder das Byte F4 "eingefangen" und die übrigen 
Bytes freigesetzt worden. Die 3 -'!s löschen wir, gehen wieder zur 
Zeile 1 und setzen wiederum den F7-BJ ein. 


02" pr" F7 08,58, 06.09.48, 98, F7) 
03 LN 58 
OUT F4,7F, 88,88.) 


Bis jetzt war noch bei keiner Manipulation vom "F8-BJ" die Rede, 
Dieser kommt jetzt zu Ehren, Wir wollen einmal aus einem "1 E" 
ein "E", oder aus einem "1 E2" ein "E2", oder aus einem "1 E-3" 
ein "E-3" machen, 


zu Beginn erzählte ich, daß der Befehl "1 E" zwar an sich ein 
2-Byte-Befehl ist, aber bei der Eingabe und vor einem "Packen" 

noch ein "Null"-Byte vorweg enthält. Diese Tatsache bedingt, daß 

beim Einsatz eines F9-BJ ein 2-Byte-Dummy statt eines -Byte-Dummys 
verwendet werden muß, 2-Byte-Befehle sind zum Beispiel "STO 16" 

bis "STO 99", oder "RCL 16" bis "RCL 99". Wollen wir ein "il" erzeugen, 
benötigen wir folgendes Eingangsprogramm; 


02 STO 99 
o31E 


Den Befehl in Zeile 2 löschen wir und ersetzen ihn durch den F9-BJ 


02’”"PiE 
03 E 


Die Zeile 2 kann wieder gelöscht werden, 


Beim Einsatz des F7-BJ brauchen wir zwar wieder keinen Dummy, 

können ihn aber auch nicht ohne weiteres einsetzen, weil er immer 
nur 1 Byte, das 1. Byte,frißt. Darum ist es in diesem Fall notwendig, 
zu "packen". Dafür gibt es 2 Möglichkeiten. Wir können GTO.. aus- r 
führen; das wäre aber nicht sehr ratsam, wsiit weil wir damit auch 
das Programm verlassen und erst einmal zurückkehren müssen, Die 

2., hier anzuratende Möglichkeit ist, die Funktion PACK auszuführen, 
Das "Null"-Byte wird dabei mit weg-fepackt und wir können getrost 
den F7-BJ einsetzen, Die dabei entstehende Zeile wird anschließend 
natürlich wieder gelöscht, 


’ 
Da das Packen manchmal recht lange dauert, bediene ich mich hier 
lieber des F8-BJ. Ihn kann man einsetzen, ohne packen zu müssen, 
weil er gleich 2 Bytes "frißt", 


Es gibt noch eine Möglichkeit, durch Einsatz des F7-BJ und ohne 
packen ein z "E" zu schaffen. Dazu gibt man einı 


02 STO 27 


Wenn wir jetzt auf Zeile 1 den F7-BJ einsetzen und er den Prefix 
STO "frißt", wechselt die Bedeutung des Postfix 27 ((hex) 1B) zum 
"E", Dieser Trick funktioniert aber nicht für "E2" oder "E-9" 
(als Beispiel). 


Wer sich den NOP-Befehl F@ (TEXT $) erzeugen möchte, kann dies 
ganz bequem, in dem man 


02 STO IND T ((hex) 91,Fß) 


eingibt. Wird auf Zeile 1 der F7-BJ eingesetzt, wird das Byte 91 
"gefressen" und das Byte Fß freigesetzt, Der F3-BJ kann das natür- 
lich auch, nur muß hier wieder vorher ein 3-Byte-Dummy eingesetzt 
werdon, 


Ganz allgemein ist bei der Verwendung des F3-BJ darauf zu achten, 
daß vorher ein 3-Byte-Dummy eingesetzt werden muß, der bei der 
Verwendung eines F7-BJ nicht erforderlich ist. 


Wir können nicht nur Befehle wie "RCL M" erzeugen, sondern auch 
solche wie "RCL IND M", Den Prefix "RCL" gewinnen wir aus dem Post- 
fix "IND 16", und den Postfix "IND M" gewinnen wir aus dem Byte F5. 
Dieses Byte, das auch die Bedeutung "TEXT 5" hat, liefert uns der 
Rechner automatisch, wenn wir eine Gruppe von 5 Alpha-Zeichen in 
den Programm-Speicher eingeben; Beispielsweise "CCCCC", Wenn wir 
also ein "RCL IND M" erzeugen wollen, sieht unser Eingangsprogramm 
so aus: 


x 
... 


02 _STO IND 16 

03 'CCCCC 
Wir gehen zur Zeile 1 und setzen den F7-BJ sin, Danach haben wir 
dies Programm vor unst 


oa pr u 

03 RCL IND M 

o4 

05 / 

06 / 

07 / 

08 / 
Die BJ-Zeile 2 und die Funktionen "/" in den Zeilen 4 bis 8 können 
wir löschen. 


Im Folgenden eine Liste der Postfix-Funktionen, aus denen wir Pre- 
fix-Funktionen gewinnen können, 


Postfix wird Prefix Postfix wird Prefix 


IND 16 RCL IND 17 sSTo 
IND 18 ST+ IND 19 ST- 
IND 20 STx IND 21 ST/ 
IND 22 ISG IND 23 DSE 


Inn 24 VIEW IND £& EREG 


Postfix wird Prefix. Postfix wird Prefix 


IND 26 ASTO IND 27 ARCL 
IND 28 FIX IND 29 ScI 
IND 30 ENG IND 31 TONE 
IND 40 SF InD 41 cF 
IND 42 FS?C IND 49 FC?C 
IND 44 FS? InD 45 FC? 
IND 78 xo 


Hier eine Liste der 1-Byte-Funktionen, die wir für den direkten 
Zugriff auf die Status-Register verwenden können: 


Funktion wird Status-Register 


a 

5) 

zZ 
vsaaoereBFrowozzZ 

T 


Wenn wir indirekt über ein Status-Register arbeiten wollen, benö- 
tigen wir dafür ja einen "TEXT"-Befehl. Die "TEXT"-Befehle in der 
folgenden Liste bedeuten deshalbı TEXT 5 = Eingabe einer Gruppe 
von 5 Alpha-Zeichen; TEXT 6 = Eingabe einer Gruppe von 6 Alpha- 
Zeichen; usw. 


aus wird 

TEXT 5 IND M 
TEXT 6 IND N 
TEXT 7 IND O 
TEXT 8 IND P 
TEXT 9 IND Q 
TEXT 10 IND * 
TEXT 11 IND a 
TEXT 12 IND b 
TEXT 193 IND ec 
TEXT 14 IND d 
TEXT 15 IND e 


Für die Tasten-Zuordnung einer normalen Rechner-Funktion haben wir 
den Befehl ASN. Dieser Befehl nützt uns aber leider nichts, wenn 
wir einer Taste eine "synthetische" Funktion zuordnen wollen. 

Darum haben findige Köpfe das "KA"-Programm erfunden. "KA" bedeutet 
"Key Assignment", zu deutsch "Tasten-7Zuordnung”". Inzwischen gibt ea 
melırere unterschiedliche Versionen dieses Programms. Bnpfehlen 
möchte ich das "MK"-Programm. "MK" bedeutet "Multiple key Assign- 
ment". Dieses Programm erlaubt uns nicht nur die normale Zuordnung, 
sondern auch die Zuordnung unter der Kontrolle eines eigenen Pro- 
gramnms, 


Um oine Taste mit einem BJ belegen zu können, müssen wir dem Pro- 
granın mitteilen, welche Bytes verwendet worden sollen und welche 
Tnste bologt werden soll. Jedes der 256 Bytes im Rechnor hat eine 
"uoxadozimale" und eine equivalente dezimale Konnzahl. Für die 
Kingabe in das "KA"- bzw. "MK"-Programm bonötsgen wir nun die dezi- 
nale konnzahl. Die Aufstellung aller verwendbaren Bytes und die 
dazngehörigen Kennzahlen—finden- 


dazugehörigen Kennzahlen finden wir in der HPhIC-Byte-Tabelle, 
Jeder, der. sich mit "synthetischer" Programmierung befaßt, sollte 
sich deshalb eine solche Tabelle besorgen. 


Für die Belegung einer Taste müssen 3 Zahlen in das Programm ein- 
gegeben werden: 1. Der Prefix, 2, der Postfix, 3. der Tastenkode, 
In meinen Beispielen habe ich einen F9-, einen F7- und einen Fd- 
.BJ verwendet. Die Prefix-Zahlen dafür sind: F3 = 243, F7 = 247, 

F8 = 248, Bei allen 3 BJ-Beispielen habe ich einheitlich das Post- 
fix-Byte 5ß verwendet. Das Byte 5@ ist dezimal 89. 


Die "KA"-Programme und das "MK"-Programm können beim Karten-Copy- 
Service bezogen werden, Mindestens für das "MK"-Programm existiert 
eine mehrseitige Bedienungsanleitung. Wer meiner Empfehlung folgen 
und das "MK"-Programm haben möchte, schicke bitte mindestens 4 leere 
Magnetkarten an den Service. Es empfiehlt sich, einen selbst adres- 
sierten, frankierten Umschlag mitzuschicken, Der Umschlag sollte 
Größe DIN C 4, mindestens aber DIN C 5 haben, Das Freiporto sollte 
DM 1,40 betragen, Der Service ist über 2 Adressen zu erreichen, 

die im Prisma '81 auf den Seiten 239 und 240 zu finden sind, 


Niels Nöhren (81) 
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"Hilfemittelr synthetischen. Programmierung. 
’ 


'Mancher, der sich mit syrithetischer Programmierung beschäftigt, 
kennt das LB(Load Bytes)-Programm. Viele kennen das KA(Key-Assign- 
ment)-Programm. Viele wissen auch um die Existenz des PPC-ROM's. 


Der U,S.amerikanische Anwender-Club PPC hat AJafür gesorgt, daß 

in das ROM von beiden Programmen je eine qualitativ besonders hoch- 
wertige Version hineinkommt. Um seinen Mitgliedern schon vor Aus- 
lieferung des ROM's die Möglichkeit zu bieten, diese Programme 
benutzen zu können, wurden sie in Form von Bar-Kode zusammen mit 
einer guten Benutzer-Anweisung im PPC CJ V8N2P34-40 abgedruckt. 


Die Programme und die Anleitung wurden vom PPC-Mitglıed Clifford 
Stern geschrieben. Bevor die Programme in der vorliegenden Form 
gedruckt wurden, wurden sie vom PPC-Mitglied Keith Jarett in ei- 
nigen Punkten modifiziert. Clifford Stern ist ein Könner au[ dem 
Gebiet der symthetischen Programmierung. Keith Jarert jedoch hat 
ein so tiefes Verständnis für die inneren Zusammenhänge der syn- 
thetischen Programmierung entwickelt, daß man ihn geradezu als 
Genie einstufen könnte, Soweit die Quell-Informationen. 


Da nicht alle Clubfreunde die amerikanische Sprache verstehen, 

oder zumindest glauben, nicht genügend Kenntnisse zu besitzen, 

habe ich mich bemüht, die Anleitung zu übersetzen, so güt es mir 
eben möglich war, Dadurch können alle Interessierten ‘lie Programme 
nutzen. Außdrdem habe ich noch eine Byte-Tabelle hinzugefügt, 

weil die zur synthetischen Programmierung gehört, wie das Amen in 
die Kirche. Wer das beigefügte Listing nicht abtippen möchte (das 
dürfte auch ein wenig schwierig und langwierig werlen), kann sich 
von unserem Karten-Copy-Service beschriebene Magnetkarten zuschicker 
lassen. 


Wichtig! Verlangt nicht einfach die beschricbenen Karten, sondern 
schickt Blanko-Karten hin. Außerdem sollte es sich von selbst ver- 
stehen, daß ein "SAFU" (selbst adressierter frankierter Umschlag) 
mitgeschickt wird. Weder die Magnetkarten, nach die briefumschläge, 
noch das Porto können vom Club spendiert werder, 


Für das LB-Programm sind 4 Karten erforderlich. Für Jas MK(KA)- 
Programm ebenfalls 4. Wer beide haben möchte, kommt mit 7 Karten 
aus, Das liegt daran, weil die Programme in 3 Gruppen aufgeteilt 
wurden. Gruppe 1 besteht aus Unterprogramm-Routinen, die von beiden 
Hauptgruppen, LB und MK, gemeinsam benutzt werden. Gruppe 1 (DC) 
paßt auf 1 Karto. Gruppe 2 (LB) und 93 (MK) passen auf je 3 Karten, 


Interessiertc schreiben bitte an: 


Walter Pieperhoff oder Ralf Pfeifer 
Walb. Osth, Wallstr, 10 Rubensstr, 5 
4770 Soest 5000 Köln 50 
Tel. (02921) 28 95 Tel. (0221) 35 2Uu 


Niels Nöhren (81) 
02.09.1981 


HP 41 C ROM-Version BYTE-LOADER- und KEY-ASSIGNMENT-Mikramn 


Zu den am meisten benötigten Hilfsmitteln in der synthetischen 
Programmierung gehören das LB- (Load Bytes) und das MK- (Make 

Key Assigrments) Programm. Mit dem Programm LB können wir jede ge- 
wünschte Sequenz Bytes direkt in den Programm-Speicher laden, ohne 
Byte-Jumping, oder andere Tricks anwenden zu müssen, Dieses Pro- 
gramm beinhaltet 2 non-prompting (aufforderungslose) Versionen (L- 
und -B), die es uns gestatteh, unter der Kontrolle eines eigenen 
Programmes, Bytes zu laden. Mit dem MK können wir jede gewlnschte 
Funktion einer beliebigen Taste zuordnen. In diesem Programm sind 
ebenfalls 2 Versionen (ik und +K) enthalten, die die Zuordnung un=- 
ter Programm-Kontrolle gestatten, 


Beide Programme enthalten Sicherheits-Vorkehrungen, damit nicht 
belegte Teile des Speichers überschrieben werden und informieren 
den Benutzer, wieviele Register verfügbar sind. LB erlaubt Fehler- 
korrekturen; MK schützt vorhandene Zuordnungen, überprüft auf 
nichtexistierende oder benutzte Tasten usw. 


Die Programme sind in 3 Gruppen aufgeteilt; jede mit einem eigenen 
END. Die 1. Gruppe (DC-Gruppe) enthält Unterprogramm-Routinen (DC, 
2D, OM und VA), die von beiden, von LB und MK verwendet werden, 
Die 2, Gruppe (LB-Gruppe) enthält die Routinen LB, L-, und -B zu- 
sammen mit den Unterroutinen XD und QR, die von LB, nicht aber von 
MK benötigt werden. Die 3. Gruppe (MK-Gruppe) enthält die Routinen 
MK, 1K, +K und die Unterroutinen LF und E?. Es können alle 3 Gruppen 
geladen werden. Sollen LB oder MK allein verwendet werden, muß DC 
auf jeden Fall mit geladen werden, Wichtig! Nach dem Laden jeder 
Gruppe muß GTO.. ausgeführt werden, damit am Ende jeder Gruppe ein 
END gebildet wird und vor LB oder MK muß auch ein END stehen, 
Sollen die Gruppen in einen leeren Speicher geladen werden, ist 
anzuraten, DC als 1. Gruppe zu laden, . 


Benutzeranweisungen für LB: 


1, Vor LB muß ein END im Programm-Speicher stehen, Der SIZE muß 
012 oder größer sein. 


2. Wir gehen zu dem Punkt im Programm-Speicher, an dem die Bytes 
eingefügt werden sollen (muß nicht am Ende des Programm-Speichers 
sein) und geben das Folgende im PRGM-Modus ein: 


LBL "++" + 4 + 20. + + + XEQ "LB”" 


(Die +'s bereiten den Raum im Speicher für das Einfügen der 
Bytes vor und werden außerdem zur Raumüberprüfung gebraucht, 
deshalb verwenden wir keine ENTER oder etwas anderes an Stelle 
der + Instruktionen.) Damit genügend Raum für n Bytes vor- 
handen ist, sollte die Anzahl der "+!s" "n!+6" betragen, wo- 
bei "n'!" das kleinste Vielfache von 7 größer oder gleich "n" 
ist. (Z.B., 13 "+'!s" sind erforderlich zum Einfügen von 1-7 
Bytes, 20 "+'s" für 8-14 Bytes, usw.) Man kann auch einfach für 
jedes Byte ein "+" plus 12 extra "+'!s" programmieren, Überflüs- 
sige "+!s" werden automatisch durch Null-Bytes ersetzt. 


2.1. Der Speicher braucht nicht gepacked zu werden, 


3. Steht das Programm noch auf XEQ "LB", so verlassen wir den 
PRGM-Modus und drücken R/S. (Es kann von jedem Punkt aus 
zwischen LBL "++" und XEQ "LB" gestartet werden. Man kann LB 
auch vom Tastenfeld aus starten.) Nach ein paar Sekunden 
stoppt das Programm mit der Aufforderung "#f#1 OF m?", wobei 
"m" die maximale Anzahl der’ Bytes darstellt, die geladen werden 
können, aufgrund der Anzahl "+'s", die programmiert wurden. 


3.1. Ist die angezeigte Zahl "m" nicht groß genug, führen wir GTO 
"++" aus und fügen mehr "+'!s" ein, Haben wir von vornherein 
nicht genug "+'s" programmiert, wird der Rechner "SST, MORE 
+'s3" auffordern, Nach Ausführung von SST sind wir bei LBL "++" 
und können mehr "+!s" einfügen. Danach kann neu gestartet werden. 


4. Wir geben das dezimale Equivalent des einzufügenden Bytes im 
Nicht-ALPHA-Modus ein, oder die Hex-Zahl des Bytes im ALPHA- 
Modus. Nach jeder Eingabe drücken wir R/S. Um das dezimale oder 
Hex Equivalent eines zu ladenden Bytes zu ermitteln, ziehen wir 
die Byte-Tabelle zu Rate. Dezimel oder Hex Eingaben können ge- 
mischt werden, Jede Eingabe wird nach ihrer Art richtig ver- 

arbeitet. Für die Hex Eingabe geben wir aber nur 2 und wirklich nur 
2 Ziffern ein, 


5. Um das Byte-Loading zu beenden, drücken wir R/S ohne vorheriger 
Eingabe. Wenn so viele Bytes geladen wurden, wie geladen werden 
konnten, endet der Prozess automatisch, Jetzt erscheint die 
Aufforderung "SST, DEL O00p", "p” wird eine Zahl zwischen 1 und 
7 sein. Wir führen SST aus, gehen in den PRGM-Modus (wir sehen 
LBL "++") und führen DEL 00p aus. Dies vernichtet LBL "++" 
und die restlichen "+'!s", 


6. Hinter der kreierten Zeile stehen möglicherweise noch "+!s", 
gefolgt von XEQ "LB". Sollen weitere Zeilen geschaffen werden, 
können sie stehen bleiben, ansonsten gelöscht werden. Im 
X-Register steht eine Zahl "p,00q". "p" war die zu löschende 
Zeilenzahl vor der kreierten Zeile, "q" ist die zu löschende 
Zeilenzahl hinter der kreierten Zeile, 


Te Wenn wir einen Fehler in der Eingabe bemerken und bereits R/S 
gedrückt haben, brauchen wir nur XEQ 03 auszuführen. Oder, 
wenn der Rechner im ALPHA-Modus steht, können wir irgendeinen 
Buchstaben eingeben und R/S drücken. Die jeweils letzte Eingabe 
wird damit rückgängig gemacht, So kann man alle Eingaben, eine 
nach der anderen, rückgängig machen. Dies gilt, solange LB 
noch nicht verlassen wurde. Eine negative Eingabe hat den 
gleichen Effekt. Dies ist wichtig für Benutzung von LB unter 
Programm-Kontrolle, 


8. Sollten wir vergessen haben, welches die letzte Eingabe war, 
so werden wir nach XEQ 01 daran erinnert, Ist das Byte-Loading 
bereits beendet, haben aber LB durch SST noch nicht verlassen, 
so hat XEQ 01 die gleiche Wirkung wie XEQ 03. 


Warnungen: (a) Es liegt in der Verantwortung des Benutzers, dafür 
zu sorgen, daß genug Raum vorhanden ist, um eine Multi-Byte-Zeile 
beenden zu können, Wenn wir beginnen, eine Text-Zeile mit einer 
Länge von 15 Zeichen zu kreieren und der Vorgang wird beendet, ohne 
daß die letzten beiden Zeichen untergebracht werden können, dann 
müssen wir damit rechnen, daß einiges aus einem anderen Programm, 
sogar ENDs verschluckt werden. (b) Während des Byte-Loadings darf 
weder gepacked noch der SIZE verändert werden. (c) LB Jarf nicht ver- 
lassen werden, ohne die Beendigungs-Prozedur (Punkt 5) durchgeführt 
zu haben, insbesondere,. wenn Fehler korrigiert wurden. (d) Während 
des Byte-Loading dürfen wir sowohl den Stack als auch die Register 
00-05 benutzen, aber nicht die Register 06-11, weil die von LB 
intern verwendet werden, 


Beispiel zum Gebrauch: Nehmen wir an, wir wollen eine Text-Zeile 
kreieren, die so aussiehtiTr "xp (das eind 4 Zeichen, die wir 
anhängen (Append) wollen, mit den Hex-Kodes 00, 01, OC und 40), 
und diose Zeile soll eingefügt werden nach dem TONE 9 im folgenden 


Programm ı 
LBL "TEST" TONE 9 AVIEW END 


Wir gehen davon aus, daß dieses Programm das 1, Programm-Speicher 
ist. u 


1. Wenn wir auf der Byte-Tabelle nachsehen, stellen wir fest, daß die 
Bytes folgende Kennzahlen haben; 


FB5_ 7F 00 01 0C 450 (hex), oder 
2415 127 0 1 ı2 64 (dezimal). 


2. Wir gehen zu TONE 9 und, im PRGM-Modus, tippen ein: 
LBL "++" (13 +'3) XEQ "LB" 


3. Wir verlassen den PRGM-Modus und drücken R/S. Nach ein paar Se- 
kunden sehen wir die Aufforderung "##1 OF 77”. 


4. Wir geben ein: 245, R/S, 127, R/S, O0, R/S, 1, R/S, 12, R/S, 6%, 
R/S, (Jetzt müßte "447 OF 7?" zu sehen sein). Als Alternative 
könnten wir im ALPHA-Modus eingeben: F5, R/S, 7F, R/S, 00, R/S, 
01, R/S, 0C, R/S, 40, R/S. Oder wir können die dezimalen und Hex 
Eingaben mischen (nur darf der Modus nicht zwischen der Eingabe 
und R/S gewechselt verden). Die Hex Eingaben werden langsamer ver- 
arbeitet, weil sie in das dezimale Equivalent umgerechnet werden 
müssen, 


5. Wir drücken R/S in beiden Modi, ohne vorher eine Eingabe gemacht 
zu haben, um den Prozess zu beenden, Wir sehen die Aufforderung 
"SST, DEL 006". Wir drücken SST (die Zahl 6,002 in X verdient 
Beachtung), gehen in den PRGM-Modus und führen DEL 006 aus. Nach 
Druck auf SST können wir die kreierte Text-Zeile sehen. Der 
Bruch-Anteil ,OO2 in X bedeutet, daß nach der Text-Zeile noch 
2 Befehle zu löschen wären (+, XEQ "LB"). 


Anweisungen für L- und -Bı: Diese Routinen gestatten das Byte-Loading 
unter Kontrolle eigener Programme, Beispiele sollen hier nicht ge- 
geben werden, aber generelle Regeln! 


i. Wir programmieren XEQ "L-" in dem Programm, das das Byte-Loading 
kontrollieren soll, Dieser Befehl initialisiert den Prozess und 
kehrt zum Kontroll-Programm zurück. 


2. -B produziert die Bytes und orientiert sich an einer Zahl, die 
in X stehen muß. Es müssen dezimale und dürfen keine Hex Zahlen 
sein. Es wird immer nur 1 Byte zur Zeit produziert. 


3. Um den Prozess zu beenden, muß die Befehlsfpige CF 09, XEQ "-B" 
im Programm stehen. Danach erscheint "SST, DEL 00p"”, 


4, Bevor das Kontroll-Programm gestartet wird, überprüfen wir auf 
SIZE 012 und schaffen dort Raum im Speicher, wo die Bytes geladen 
werden sollen, in dem wir wie üblich programmieren: 

LBL "++", eine Reihe von "+!s", XEQ "LB". 

5. Wir verlassen den PRGM-Modus und starten das eigene Programm, 

anstatt durch R/S den Byte-Loader zu starten, 


6. Die Ausführung wird wie gehabt beendet mit der Aufforderungı 
"SST, DEL 00p", so daß das Weitere wie beim normalen Byte-Loading 
abläuft, 


7. Soll unser Programm ein falsches oder unerwünschtes Byte korri- 
gieren, so geschieht es, in dem eine negative Zahl nach X gegeben 
und "-B" ausgeführt wird. 


Warnung: "-B" darf nicht aufgerufen werden, ohne daß vorher erst 


"L-* aufgerufen wurde. Einige Flag und andere Sicherheitsvorkehrungen 
werden durch "I=-" aktiviert, weil "-B" allein für sich ausgeführt 

zu MEMORY LOST führen kann, oder zumindest andere Programme beschädig 
oder vernichtet, s 


Anweisungen für MK: 


1. 


3. 


5 


Wie bei LB muß vor MK ein END im Programm-Speicher stehen 
und der Size muß 012 oder größer sein. 


Wir starten durch XEQ "MK". Das Programm überprüft das Key- 
Assignment-Register von oben bis unten und zeigt in einer 
PSE an, wieviele Register noch frei sind. Wenn wir diese Zahl 
verdoppeln, wissen wir die mögliche Anzahl von Zuordnungen. 


Wenn "NO ROOM" angezeigt wird, müßten wir entweder einige Zuord- 
nungen löschen, oder den SIZE reduzieren. Anschließend kann durch 
R/S neu gestartet werden. Es gäbe auch noch die Möglichkeit, an- 
dere Programme zu löschen, oder das ROM-Programm PK aufzurufen, 
um das Key-Assignment-Register zu packen, 


Nachdem die Anzahl der freien Register genannt wurde, fordert 

MK "PRE/POST/KEY" auf. Wir geben das dezimale Equivalent für das 
i. Byte (Prefix) ein, drücken Enter, das 2. Byte (Postfix), En- 
ter, und den Tasten-Kode. Dann starten wir die Zuordnung mit R/S. 
(z.B. 159, Enter, 26, Enter, -81, R/S; um TONE 26 auf die geshif- 
tete Taste in der Zeile 8, Spalte I zu legen.) Wenn die Belegung 
richtig vollzogen wurde, fordert MK zur nächsten Eingabe auf, 
(Die Zuordnungen werden nicht gezählt, müssen also nicht paarwei- 
se eingegeben werden, wie bei anderen KA-Programmen.) Der Stack 
wird vor Eingabe-Aufforderung gelöscht, damit der Prefix Null 
ist, falls versehentlich nur Postfix und Tasten-Kode eingegeben 
werden, 


Wenn eine Null für den Tasten-Kode eingegeben wird, oder R/S 
ohne Eingabe gedrückt wird, zeigt der Rechner die Anzahl der 
noch freien Register an, um dann wieder zur Eingabe aufzufordern,. 


Wenn wir keine Zuordnungen mehr machen wollen, können wir entwe- 
der den Rechner ausschalten, oder an irgendeinen anderen Punkt 
des Programm-Speichers gehen. Bei MK ist keine Beendigungs-Pro- 
zedur notwendig. 


Die Anzeige "KEY TAKEN", gefolgt von dem PROMPT "KEYCODE?" be- 
deutet, daß die gewählte Taste bereits belegt ist. Entweder 
löschen wir die vorhandene Belegung, oder wir wählen einen an- 
deren Tasten-Kode und drücken R/S um die neue Belegung zu voll: 
ziehen. "NO SUCH KEY" gefolgt von "KEYCODE?" bedeutet, daß ver- 
sucht wurde, eine nicht vorhandene Taste zu belegen. 


Nach Jeder Fehler-Anzeige steht der ursprüngliche, falsche Ta- 
sten-Kode in X, so daß er wieder verwendet wird, wenn R/S ohne 
Neueingabe gedrückt wird. Bei einer neuen, richtigen Eingabe 
wird die Belegung vollzogen. Bei einer Null als Eingabe, werdenl 
wieder die noch freien Register angezeigt und anschließend zur ! 
neuen Gesamt-Eingabe aufgefordert. 


Die Anzeige "DONE, NO MORE" bedeutet, daß die letzte Belegung 
getätigt wurde und jetzt kein Raum mehr für neue Belegungen vor- 
handen ist. Falls trotzdem neue Belegungen gemacht werden sollen, 
müssen wir wie bei Punkt 2,1. handeln, 


Nach jedem Stopp wegen einer Fehler-Anzeige (Punkt 2.1., 6. oder 
7.) oder, falls der Rechner aus- und wieder eingeschaltet wurde, 
überprüft er das key-Assignment-Register, um sicherzustellen, 
daß eine neue Belegung ohne Überlappung oder Lücke geschieht. 


(Durch den Test von Flag 20 wird entschieden, ob die Register 
überprüft werden müssen, Ist das Flag gelöscht, werden die Re- 
eister überprüft.) 


Warnung: (a) Falls zwischen 2 Tasten-Belegungen gepackt, oder der 
SIZE geändert werden muß, schalten wir den Rechner aus und wieder ein 
(oder löschen Flag 20), um dem Programm zu signalisieren, daß die Re- 
eister Überprüft werden mlissen. (b) Es darf nichts in die Daten-Re- 
gister 09, 10 oder 11 abgespeichert werden, oder der Zustand der 
Flags 07, 09, 10 oder 20 zwischen 2 Belegungen gewechselt werden, 

Wie bei LB werden von MK die Register 06-11 intern benutzt. R 06, 

R 07 und R 08 enthalten den Prefix, Postfix und Tasten-Kode für die 
zuletzt eingegebene Belegung; R 09 enthält den Index für die indirekte 
Speicherung der nächsten Belegung und R 10 enthält den Inhalt des c- 
Registers. Wenn Flag 10 vom Benutzer gesetzt wurde, enthält R 11 die 
1. Belegung eines Tasten-Belegungs-Paares. 


Anweisungen für IK und +K: Das Folgende ermöglicht es, Tasten-Belegungen' 
unter Programm-Kontrolle zu machen, 


1. Der SIZE muß 012 oder größer sein, 


2. Wenn wir unter Programn-Kontrolle eine einzige Belegung machen 
wollen, müssen wir dafür sorgen, daß der Prefix in Z, der Post- 
fix in Y und der Tasten-Kode in X steht, bevor "1K" als Unter- 
programm (xEQ "ıxK®) aufgerufen wird. Wenn die Belegungseingabe 
einen Fehler enthält, wird das Programm mit einer Fehler-Anzeige 
anhalten, vorausgesetzt, wir haben nicht Flag 25 gesetzt, bevor 
"IK" aufgerufen wurde, Wurde Flag 25 gesetzt, wird bei einem 
Eingabe-Fehler die Belegung nicht durchgeführt, Im ALPHA-Re- 
eister kann nachgelesen werden, um welchen Fehler es sich ge- 
handelt hat. 


3. Sollen mehrere Belegungen durchgeführt werden, wird für die 1. 
"1K" und für jede weitere "+K" aufgerufen, Vor jedem Aufruf 
müssen die entsprechenden Daten in Z, Y und X stehen, "+K" tut 
das @leiche wie "IK", aber es überprüft nicht die Register 
(wenn Flag 20 gesetzt ist); dadurch erfolgen die Belegungen 
wesentlich schneller. Ist jedoch Flag 20 gelöscht, überprüft 
"t+K" genau wie "1K" die Register, (Nach einer Register-Über- 
prüfung ist Flag 20 jedoch stets gesetzt.) Ist das Kontroll- 
Programm so umfangreich, daß es unbequem wird, "1K" für die 1. 
und "+K" für jede weitere Belegung aufzurufen, dann kann "+K" 
für alle Belegungen verwendet werden. Es müssen nur jedesmal 
Flag 07 gesetzt und Flag 20 gelöscht werden, bevor "+K" aufge- 
rufen wird. (Flag 07 verhindert das PROMPT. 


4, "1K" und "+K" können auch vom Tastenfeld aus gestartet werden, 
nachdem die entsprechenden Daten in den Stack gebracht wurden. 
Wird "+K" ausgeführt, wird es die PROMPTing-Version verwenden, 
falls vorher "MK" ausgeführt wurde (Flag 20 ist gelöscht), 
oder die non-PROMPTing-Version, falls "1K” vorher ausgeführt 
wurde (Flag 20 ist gesetzt). 


Warmung: Wir dürfen "+K" nicht allein benutzen (ohne daß vorher 
"MK" oder "IK" ausgeführt wurde) ohne sicher zu sein, daß Flag 20 
gelöscht ist und wir mlissen den Zustand von Flag 07 überprüfen, 
um sicher zu sein, daß die richtige Version abläuft. Die gleiche 
Warnugg (Flag 20 muß gelöscht sein) gilt, wenn der SIZE geändert 
wurde, Tasten-Belegungen manuell ausgeführt oder gelöscht wurden, 
das Key-Assignment-Register gepacked wurde oder die Inhalte der 
Register 09-11 verändert wurden, 


Verwendete Unterprogramme ı Das Folgende ist eine kurze Beschrei- 
bung der Routinen, die von "LB" und "MK" verwendet werden. 


DC (Decimal to Character): Wandelt das in X stehende, dezimale 
Equivalent eines Bytes in das entsprechende ALPHA-Zeichen 
um und hängt es im ALPHA-Register an (APPEND). 


2D (2 Bytes to Decimal): Ermittelt das dezimale Equivalent der 
letzten beiden Bytes eines ALPHA-Strings in X. Das dezimale 
Equivalent des vorletzten Bytes verbleibt in X; das des letzten 
Bytes kommt in M zu stehen, 


OM (Open Memory): Erzeugt einen neuen Byte-String und tauscht den 
ursprünglichen Inhalt des c-Registers gegen diesen aus. Da- 
durch wird der Curtain (Grenze zwischen Daten- und Programn- 
Register) auf die Adresse 010 (hex) bzw. 16 (dezimal) gesetzt 
und die absolute Adresse desZ -Registers auf 1IFF (hex). Die 
Adresse des „END, wird nicht verändert, Dies erlaubt, Werte 
direkt in das Key-Assignment-Register und die Programm-Register 
abzuspeichern, Ein Programm kann während dieses Zustands 
ruhig gestoppt werden, ohne daß MEMORY LOST geschieht; globale 
Label sind weiterhin aufrufbar, Der in X stehende ursprlüng- 
liche Inhalt des c-Registers kann wie ALPHA-Werte abgespeichert 
und wieder abgerufen werden, (Warnung: Dieser Wert darf nicht 
verloren gehen, da er benötigt wird, um,durch das Rückspeichern 
ins c-Register, den Curtain wieder auf die alte Adresse zurück- 
zubringen, Wenn OM allein für sich verwendet werden soll, muß 
irgendwo über diesem Programm ein END im Speicher stehen, 
damit nach der Ausführung dieser Routine man durch zweimal BST 
zu der X)c-Instruktion zurückkommen kann, durch die der 
Curtain auf die alte Adresse zurück gebracht werden kann. OM 
ist eine von den sehr machtvollen Routinen, die Vorsicht und 
Sorgfalt in der Handhabung verlangen. ) 


VA (View Alpha); Zeigt den Inhalt des Alpha-Registers an, genau 
wie AVIEW. Wenn der Drucker angeschlossen und eingeschaltet 
ist und Flag 21 gesetzt ist, wird der Inhalt auch ausgedruckt. 
Ungleich zu AVIEW, hält VA das Programm niemaäs an. 


XD (Hex to Decimal): Wandelt einen 2-Digit Hex-Wert (in Form von 
2 Zeichen in Alpha) in eine dezimale Zahi um, die in X zu stehen 
kommt. Benutzt QR als Unterroutine, 


QR (Quotient and Remainder): Ersetzt die Werte aus Y und X durch 
(Y - Y mod X)/X (der Quotient) und Y mod X (der Rest). Ver- 
ändert nicht den Inhalt des Alpha-Registers, solange dieser 
nicht länger als 14 Zeichen ist. 


LF (Locate Free Register): Überprüft das Key-Assignment-Register 
und gibt folgendes aus: X = aaa,eee, wobei aaa und eee die 
Adressen (relativ zur Curtain-Adresse 16 dezimal) sind des 
Anfangs und des Endes des Blocks freier Register zwischen 
dem Key-Assignment und dem „END. im Programm-Speicher; 

Y = c-Register-Inhalt für Curtain auf 16 (erzeugt durch oM). 
.Benutzt OM und E? als Unterroutinen, 


E? (.END. Finder): Ermittelt die absolute Adresse des Programa- 
Registers, welches das „END, enthält und plaziert die Adresse 
(in dezimal) in X. Benutzt 2D als Unterroutine. 


Synthetische Instruktionen, die in LB, MK und den Unterroutinen 
verwendet werden, 


Programm Zeile Synthetischer Kode (hex) 


DC 74 Textı F5 IF FO 01 69. 01 
LB 80 3 Byte GTO 10: DO 00 0A 
LB 111 TONE 87ı 9F 87 

LB 124 3 Byte GTO 09: DO 00 03 
LB 164 3 Byte GTO 00: DO 00 00 
LB 172 TONE 83: 9F 53 

LB 173 3 Byte GTO 00: DO 00 00 
LB 199 TONE 54: 9F 36 

LB 219 3 Byte GTO: DO.00 08 

LB 223 3 Byte GTO: DO 00 0A 
MK 15 3 Byte GTO 07: DO 00 07 
MK 62 3 Byte GTO 01: DO 00 01 
MK 96 3 Byte GTO 08: DO 00 08 
MK 109 3 Byte GTO 08: DO 00 08 
MK 122 3 Byte GTO 09: DO 00 09 
MK 135 Textı F9 2A 2A FO 

MK 165 3 Byte GTO 09: DO 00 03 
MK 178 TONE 83: 9F 53 

MK 180 3 Byte GTO 01: DO 00 01 
MK 193 TONE 83: IF 593 

MK 202 3 Byte GTO 01: DO 00 01 
MK 212 Text: F8 2A 10 2A 00 00 2A 2A FO 


Weitere Clubtreffen geplant tt 


Auch in Siegen und Bremen sollen neue Ortsgruppen gegründet werden: 


Siegen: Gerhard Schalk (481), Jägerstr. 9, Post Siegen 32, 5900 Niederschelderhütte 
Tel. 0271 / 381829 


Bremens Jürgen Hüneke: (419), Gerhard-Rohlfs-Str. 70, 2820 Bremen 70 
Tel. 0421 / 650125 


Interessenten melden sich bitte völlig unverbindlich zur Terminabsprache !111 


DIES TEELIRRERSIELDENZIEIEZII EEE III ES III SERIE IE EI ZIELE SEE EIER EEE 


Was bedeutet das ??? 


Zwei Mitglieder wunderten sich über seltsame Programmbefehle, z.B. auf Seite 263/4-81. 
Zur Klarstellung: steht im Programmlisting 2.B. als "Befehl" F2 053 6) „ so let dies 
der Hexcode der jeweiligen Programnmzeile. 


Elektronik-Bastler gesucht _! 


Zum Erscheinungszeitpunkt dieses Infos haben wir hoffentlich beroits den ersten Osbornei 
zur Verfügung. Gesucht wird ein Elektroniker, der von den Schnilistellen des Osborne 
(IEEE und RS, siehe im Osborne-Bericht) ein Interface zur Fotozatzuuuchine von Rolf 
Hansomann, Limburger Str. 15, 6242 Kronberg 2 (M.Nr. 500) gegen Bezahlung erstellt. Wer 
Interesse verspürt, melde sich bitte bei Rolf I!!! 


Unterprogramm-Gruppe DC (Decimal to Character). Wird benötigt 
von der Programm-Gruppe LB (Load Bytes) und der Gruppe MK 


(Make 


key Assignments). Erschienen im PPC Calculator Journal, 


Jahrgang 8 (1981), Heft 2 (März/April), Seite 34-38. 


81+LBL "DC* 


02 
83 
84 
05 
06 
87 
88 
89 
18 
11 
12 
13 
14 
15 
16 
17 
18 
19 
29 
21 
22 
23 
24 
25 
26 
27 
28 
29 
39 
31 
32 
33 
34 


INT 
256 
MOD 
LASTX 

+ . 

ocT 
<> d 
FS?C il 


‚sFr 12 


FS?C 18 
SF ii 
FS?C 89 
sF 18 
FS? 87 
SF 89 
FS? 86 
SF 88 
x<> d 
x<>c 
RCL N 
Prupnn 
x<> I) 
R<>Y 
STo N 
8x<> tr 
ru” 
sTo 
RDN 
x<> 
Rx<> 
STO 
RDN 
RTN 


n/w > 


35+LBL 2D” 


36 
37 
38 
39 
42 


41 
42 
43 
44 
45 
46 
47 
48 
49 
ET.) 
51 
52 
53 
54 


... 
x<>Lc 
REIN 


ASHF 


”»tro,o"'7,®0 
<> c 
REIN 
x<>Lc 
.r-0+ßB"” 
RCL C 
INT 
+ 
RCL 
[ 
ST+ 
x<> 
RCL 
INT 
HMS 


wm v4 


55 * 


56 RCL ] 
57 + 

se Ei 
59 ST L 
68 * 

61 X<> ıLC 
62 RTN 


63+LBL "-OM* 
64 RCL c 

65 STO L 

66“ "tee, ++- 
67 XD CL 

68 X<> d 

69 CF 08 

ee CF 81 

?ı CF 82 

?’2 CF 03 

73 X<> d 

74 "Mei«” 

75 %>C 

?6& STO \ 
77 "Iue" 

73 RC>N 

?9 cıua 

88 <> c 

81 RTN 


82*+LBL VA” 
83 SF 25 
34 PRRA 
e5 SF 25 
86 FS?C 21 
87 CF 25 
88 AVIENM 
89 FC?C 25 
99 SF 21 
91 END 

cAT 1 


END 
288 BYTES 

45 = 
F?7F08870068 
8998 

44 = 
F47F880085 
66 = 
F67F80089888 
CT) 

74 = 
FS1FF9016901 


Programm-Gruppe LB (Load Bytes). Bnötigt Unterprogramm-G: 
Load . -Gruppe 

DC (Decimal to Character), Erschienen im PPC Valculator Jour- 

nal, Jahrgang 8 (1981), Heft 2 (März/April), Seite 34-39. 


Blatt 1 von 2, 


B1l°LBL 986 
82 STOP 
83 GTO "++" 


84+LBL "LB” 
95 FS? 58 
66 GTO 929 
87 "DEC/HEX 
INPT“ 
88 KER "VA" 
a9 CF 08 
18 GTO 13 


11+LBL "L-” 
12 cLA 

13 XEQ “YA” 
14 CF 08 

15 RCL a 

16 STO C 

17 RCL b 

18 FS? 08 
12 GTO 14 
28 STO \ 

2ı sF 88 


22*LBL 13 
23 REL 11 
24 CLST 

25 STO 86 
26 SIGN 

27 ENTERt 
28 ENTER+ 
293 Rt 

38 GTO -++r 


31+LBL 88 
32 RCL b 

33 FC? 88 
34 GTO 14 
35 CLD 
36 x<> 
37 STO 
38 x<> 
39 <> 


Tzuom 


48+LBL 14 


52 
53 
54 
5 
56 
57 
58 
59 
68 
61 
62 
63 
64 
65 
66 
67 
68 
69 
L4-, 
7ı 
?2 
73 
4 
5 
76 
7 
’8 
79 
89 


81. 


82 
83 
34 
85 
86 
87 
88 
89 


sTto 97 
XEQ "OM* 
8%<> c 
sTo 18 
CLST 


98+LBL 96 


9 
92 


sro 11 
cLA 


93+LBL 97 


94 


ASTO 88 


41 


s8 
St 


sTto c 
“Punenk“ 


REIN 


:xXEQ "2D” 


2 

Pd 

INT 
LASTX 
FRC 
5ı2 

* 


95 X<>Y 
96 ISG 86 


97*LBL 15 
98 SF 09 
993 FS? 88 
188 RTN 
181 CF 22 
182 CF 23 
183 FIX 08 
194 CF 29 
185 "#7 


186 
197 
108 
199 
118 
111 
112 
113 
114 
115 
116 
117 


ARCL 86 
-r OF “ 
ARCL 97 
.r-?° 
xEQ "VA 
TONE 7? 
STOP 
FS? 48 
GTro 14 
FC? 22 
GTO 19 
GTO 88 


113+LBL 14 


119 
128 
121 


FC? 23 
GTO 19 
xEQ "XD”r 


122+LBL 88 


123 
124 
125 
126 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
148 
141 


142 
143 
144 
145 
146 
147 
148 


x<o? 
GTO 83 
ENTERT 
cıLa 
ARCL 28 
KEQ "DC 
RCL 86 
x<=0? 
GTO 18 
7 
MOD 
x=z09? 
GTO 97 
R<>YV 
RCL 89 
RCL 18 
R<> c 
RCL CL 
STOo IND 
zZ 
R<>YV 
<I> oc 
Rt 
RCL 88 
DSE 89 
GTO 86 
ISG 99 


149+LBL 28 


150 
151 
152 
153 


154 


155 
156 
157 
158 


cF 89 
cıL* 
R<>V 
RCL 87 
FRC 

E3 

* 

ROFF 
FIX 8 


Ei Pepe ei LB (Load Bytes). Benötigt Unterprogramm-Gruppe 
DC 


Decimal to Character). Erschienen im PPC Calculator Jour- 


nal, Jahrgang 8 (1981), Heft 2 (März/April), Seite 34-39. 
Blatt 2 von 2, 


159 


168 
161 
162 
163 
164 


"SST, DE 
L 08” 

ARCL % 

FIX 3 

xEQ VA“ 

BEEP 

GTO 88 


165+LBL 61 


166 
167 
168 


RCL 86 
x>8? 
GTO 89 


169+LBL 198 


170 
171 


172 


173 


-SST, MO 
RE +'S” 
KEQ "YA" 
TONE 3 
GTO 98 


174+LBL 983 


175 


176 
177 
178 
179 
188 
181 
182 
183 


“+CORREC 
TION*“ 
xERM “VA” 
TDNE 6 
FC? 09 
GTO 81 
DSE 66 
GTo 14 
ISG 86 
GTO 18 


184+LBL 14 


185 
186 
197 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 


RCL 86 
7 

MOD 
x=0? 
ISG 99 
GTO 14 
RCL 11 
x=Y? 
GTO 13 
STO 98 
RDN 
sro 11 
GTO 89 


198+LBL 13 


199 
2908 
201 
282 
203 


TONE 4 
6 
ST- 86 


GTo 15 


284+LBL 14 


2805 
206 


cur 
ARCL 88 


287 
2088 
209 
218 
zıi 


ARCL 108 
cıL% 
KIN 
sto t 
ASTO 988 


212+LBL 89 


213 
214 


RDN 
GTO 15 


zı15°+LBL "-B“ 


216 
217 
218 
219 


FC? 88 
GTO 15 
FS? 99 
GTO 88 


228+LBL 19 


221 
222 
223 
224 
225 
226 
227 
228 
229 
238 
231 


RCL 86 
x<=0? 
GTOo 16 
CHS 
ISG *% 
? 

MOD 
x=8? 
GTO 14 
cuR 
ARCL 83 


232+LBL 11 


233 
234 
235 
236 


DSE % 
GTO 11 
BES Zus 


237+LBL 14 


238 
239 
248 
241 
242 


RCL 69 


243+LBL 12 


244 


.245 


246 
247 
248 
249 
259 
251 


STO IND 


CLx 
DSE 2 
GTO 12 
RDN 
x<> cc 
RDN 
GCTO 28 


252+LBL XD” 


253 
254 
255 


-koa” 
RcCL C 
E2 


256 XEQ@ "AR”- 
257 29 
258 ST- 2 
259 - 

268 ,9 
261 ST=« Z 
262 * 

263 INT 
264 X<>Y 
265 INT 
266 16 
267 «* 

268 + 

269 RTN 


279+-LBL "QR" 
271 RC>Y 
272 STO ) 
273 X<>Y 
274 MOD 
275 ST- ] 
276 LASTX 
277 ST/ ]I 
278 CLX 
279 <> ] 
2882 xX<>DY 
231 END 

caAT 1 


185 = <CHEX> 


253 = <HEX> 
F37’F99308 


Programm-Gruppe MK (Make Key Assignments), Benötigt ı Unterprogamn- 
Gruppe DC. (Decimal to Character). Erschienen im PPC Calculator 
Journal, Jahrgang B (1981), Heft 2 (März/Aprit), Seite 34-40. 


Bäatt 1 von 2, 


B1+LBL “MK“ 
82 CF 25 
83 RCL 11 
84 CF 87 
85 SF 89 


86+LBL 91 
87 ZEN "LF” 
83 STN 89 
e9 E 

18 + 

11 X<>Y 
-12 STO 18 
13 ASTO 11 
14 DSE Y 
15 GTO 97 
16 SF 28 
17 FC?C 89 
18 GTO 13 


19*+LBL 82 

29 RCL 99 

2ı INT 

22 LASTX 

23 FRC 

24 E3 

25 * 

26 xX<C>Y 

27 ,5 

28 FC? 18 

29 SIGN 

323 - 

31 - 

32 "REG FRE 
E: “ 

33 RCL d 

34 FIX 1 

35 ARCL Y 

36 STO d 

37 XEO -VA* 

38 TONE 6 

39 PSE 


48+LBL B3 

41 "PREtPOS 
TtKEY“ 

42 CLST 

43 xXE@ “VA” 

44 TONE 7 

45 STOP 

46 GTO 14 


47+LBL "1K” 
48 CF 20 
49 SF 67 


S58°*LBL "+K“ 
SjleLBL 14 


52 
93 
54 
55 
56 
57 
58 
59 
68 
61 
62 


sTo 88 
RDN 
sTo 87 
RDN 
STO 86 
cr 09 
RCL 18 
SIGN 
FS? 28 
x=0? 
GTO 81 


63*+LBL 13 


64 


RCL 988 
INT 
x=9? 
FS? 97 
FC?C 208 
GTO 232 
x<8? 
sr 89 
ABS 
sto 2 
44 
ABS 

2 
%v? 
DSE 

Rt 

sTo 

Ei 
sT/ 
MOD 

3 


«* 
ENTER? 
CF 88 
LASTX 
FS? 89 
ST+ Y 
Rt 

INT 
x=9? 
x>Yr? 
GTOo 88 
Rt 

+ 

ST+ zZ 
x<>Y 
xer? 
CLX 
x=9? 


. SF 88 


. mr 


185 
186 
197 
198 
189 
118 
111 
112 
113 
114 
115 
116 
117 
i18 


119*+ 
128 
121 


122. 
123 
124 
125 
126 
127 
128 
129 


130+ 
131 
132 
133 
134 
135 
136 
137 
138 
139 
148 
141 
142 
143 
144 
145 
146 
147 
148 


+ Pi 

36 
x>0? 
GTO 08 
FC? 089 
RCL ” 
FS? 99 
RCL e 
FC? 88 
GTOoO 14 
sTo € 
re“ 
x>Lc 


LBL 14 
x<> d 
FS? IND 
Y 
GTO 89 
SF IND Y 
x> d 
FC? B8 
GToO 14 
sto c 
ARCL 18 
KI>N 


LBL 14 
FC? 89 
STOo 
FS?C 89 
sSToO e 

...- 
FS? 10 
ARCL 11 
x<> zZ 
RCL 987? 
RCL 86 
xEQ DC“ 
xEQ "DC" 
xEQa "DC” 
FS?C 16 
GTO 14 
.re+>+- 
ASTO 11 
SF 18 


149+LBL 14 


156 
151 
152 
153 
154 


155 
156 


RCL 99 
RCL 18 
K<> cc 
RCL L[ 
sTo IND 
r4 
R<>DYV 
x<> c 


Programm-Gr@Be MK (Make Key Assignments). Benötigt Unterprogramm- 
Gruppe DC (Decimal to Character). Erschienen im PPC Calculator 
Journal, Jahrgang 8 (1981), Heft 2 (März/April), Seite 34-40, 


Blatt 2 von 2. 


157 CLST 

158 cıa 

159 FC? 18 

168 ISG 989 

161 SF 28 

162 FS? 0? 

163 RTN 

164 FS? 28 

165 GTO 83 

166 "DONE, N 
O MORE“ 

167 SF 09 

168 GTO 14 


169+LBL 97 
178 "NO ROOM 


171 CF 20 
172 CLST 


173+LBL 14 
174 FS?C 25 
175 RTN 

176 xXEQ YA” 
177 TONE 7? 
178 TONE 3 
179 STOP 

188 GTO 81 


181*+LBL 88 

182 "NO SUCH 
; KEY“ 

183 GTO 14 


184+LBL 99 

185 xX<> d 

186 "KEY TAK 
EN” 


187+LBL 14 
188 CF 89 
189 CF 28 
198 FS?C 25 
191 RTN 

192 XEQ "VA- 
193 TONE 3 


194 PSE 

195 "KEYCODE 
>. 

196 CLST 


197 RCL 88 
198 XEQ "VA 
199 TONE 7? 
288 STOP 

281 STO 08 
282 GTO 981 


203+LBL "LF“ 


284 
285 
286 
297 
2983 
209 
218 
zı1 
212 


213 
214 
215 
216 


xEQ "E?” 
17 
E3 
z 
177 
+ 
xXEQ -OM* 
moon 


ENTERTt 
DSE T 
GTo 14 


CHAT 1 
LBL"’MK 
LBL’IK 
LBL"’+K 
LBL'LF 
LEL’E? 
END 
535 BYTES 
135 = 
F32R2AFO 
146 = 
F47’F800908 
2ı2 = 
F?’2RA1982A9888 
za2n 


217+LBL 88 
218 %<> IND 
T 
219 %=\? 
228 GTO 14 
221 R<> cc 
222 "r68” 
223 STO \ 
224 ARCL X 
225 RDN 
226 RCL \ 
227 x%<> IND 
T 
228 ISG T 
229 GTO 89 


239+LBL 14 
231 ROLL 
232 ARCL X 
233 RC>.N 
234 SF 19 
235 X%=Y? 
236 DSE T 
237 CF 18 
238 X<> 2 
239 X<C> c 
249 Rt 

241 RTN 


242*LBL -E?* 
243 RCL c 
244 xEQ -2D- 
245 16 

246 MOD 

247 1.ASTX 
248 xXt2 

249 « 

258 RCL L[ 
251 + 

252 cıa 

253 END 


BE BH- 
[nr Zur 


ln er ae FR 141 «|12 »- 113 $ 
GRAD er ee BEEP CLA ASHF PSE ne OFF PROMPT | ADV 
02 06 07 08 09 13 14 15 
18 aj19 ä 19 £|ı9 m 
" a ee 
164 S|ı65 x lıss © |167 m 7 
XROM XROM XROM XROM SPARE 
36 37 38 39 47 
18 olız ılın 2 0. 4 ww 6 |jıı3 7 | ® 1 : es <|189 =jıW > 
SPARE |6TO 00|GTO 01 To 03 GTo 05 IGTo 06 | To 0 Bl GTO 09 GTO 11|CTO 12|6T0 13 
48 43 so 52 54 55 56 58 60 61 62 
m elım alımı slıs clıw n 18 F|19 G| 28 H 2 iz K|20 Ll2s m|2s n|2e 0 
N 
Pres GLOBAL | GLOBALI GLOBAL |IGLOBAL|GLOBAL Eeraaie GLOBAL |CGLOBAL GLOBALIGLOBAL IGLOBALI GLOBAL| X < > LBL 
65 66 67 68 71 72 74 75 76 ” 78 79 
210 a2 T 214 vlas ulzs X]2ır viaa zZ a a2 ı|22 + 
-610 6To To GTo GTo GTO GTo cTo GTO cTo cTo cro 
80 81 82 _ 84 86 87 88 89 90 92 93 9%. 
au ’I253 al2% 8|27 c 229 234 3125 “l2% ı1|27 m|28 n|29 o 
xEcQ |xe Ixmm I|xm xea |xea |Ixea Ixea |xea |xe 
17 98 99 | 01 100 E l06| F 107 |c 108| u 109 | ı 110 | s Auı 
214271245 1246 v|2407 w z| 21 w 27 > 25 + 
0 2 ar 4 1 5 |TEXT 6 |TEXT 7 en a 1 TEXT 15 
x lo} 


| XEQ 


TABLE 2-1. IHE HP-4lL DYIE IABLE 


Io I ı I 2 73 Ta Ts Te | 7 | ee | 9 | A | 8 | € | D | 


a ;sSI eis Tr Lu © A| Io) ce | | 12 »| II «< 
ILB LBL O3|LBL O4| LBL OS|LBL O6 LBL O7jLBL O8|LBL 09 | LBL 10 LBL 11] LBL 12 0 
D 04 u 05 06 07 08 09 10 1 12 13 
A) NT 

a1 A & 

5 

21 

7% 


SE _ 
8. 


2 4585| 301 8 
6 8 9 n 
22 24 25 26 
Bein | a c|la II 2 -|IdJ + 
RCL O5| RCL 06| RCL OABCL O8 |RCL O9 |RCL 10 | RCL 1 
37 38 39 
T ‘ 
2) 


“0 "2 


ziL- 


sr3 


ı ul W a BE DR 2) [ee De 
“’Ii7 2|%2285|)9 ee g|1ti ejıız € ie 165 ı |1& 3 J1er Kiss 2 JI9 mjIie m 
1/x ABS FACT x07 x>0? iN1+X |X<0? X=0? FRC D-R R-D IMS HR RND 
sr Pe, | [ee aopiex an) a zoz |» 2o2 o 105 |e 106 |r 107 | 1og [m 10a |r duo 
Cy c [ [2 


= 
Em 
[z} 
6 


16 € |17 w|sıe vlı9 wl120 = 12 z m 17 + 
Rt RDN LASTX | CIX A=Y? SIGN MEAN 
\ b 
L “"ıiinxloj)|r + Z b 4“ _|e e 
4 


HEULEFT PACKARD ANWENDER-CLÜ 
GL IVCER 2 RIUTSCHLI. { 


ACHTUNG : Das Löesungsbuch Nr, 4 Statik 1 ist fergig ! 
Ir. dem Bus“ sırd 17 Prograsee aus den Fachgebieten : 
Stahitetenzuu „ Holzbau ,„ Stahlbau , allgemeine Statık und 
Sewichtzernittlungen beschrieben. 

T 
Yun den Clubmituliedern 
Sisus Dact.zelt 
Weilgun) Treutwean 
Walter Tıeperhofif 
sind folgende Frogramme in das Loesungsbuch sufgenommen worden ! 
Syunetrischer Zweigelenkrshmen 
Lsstverteilung fuer vierseitig geläayerte Platten 
Knicklassngen eines zweifeldrigen Druckstabes 
Mehrtoiliy gespreizter Hölzdruckstäb 
Einzellast auf kreuzweise gespannte Flatte 
Geduebelte Röhmenecke 
Betunstahlgewichte 
Lsgermötten - Gewichte 
Traegeraufläager 
Rsndspannung bei rechteckigen Querschnitten 
Eın- u. zweireihiger „ einfacher Winkelanschluss 
Fundawentbölken fuer beliebig viele Einzellasten 
2 Feldgerbertraeger 
3 Feidgerbertrasger Gelenke i. d. Innenfeld 
3 Feldgerbertraueger Gelenke i. d. Aussenfeld 
Cınzelfungsment 
Anschluss I - Profil an Stuetze (geschweisst) 


Jed=s Programm setzt sich zussamen aus 

1. der Frogromubeschreibung 

2. einen lsıspiel 

3. dem Listisg 

BESTELLSCHEIN ! 

An : Walter Pieperhoff „ Walb. Osth. Wallstr. 10 „ 4770 Soest 


Ich bestelle : 
nal Loesungsbuch Statik 1 73 Seiten 70,- DM 
SSagssssssrnen chne Magnetkarten 


mal Loesungsbuch Statik 1 73 Seiten 100,- DM 
SersssrZere mit Magnetkarten 


Preise inkl. Nebenkosten 
Ich habe den Tetrag auf das Konto Nr. 3522372 der 
elarichnizdee Stadtsparkasse Soest BLz 41450075 ,„ veberwiesen. 


V. - Scheck liegt bei. 


(zutreffendes bitte Ankreuzen) 


z. Hd.: Ulli Devertzhofen, Ostenbergstreße 97/8, 4600 Dortmund 50 
Postscheckkonto-Nr. 2080 27-432, PschA Essen 


Liebe Clubmitglieder, 


Viele von Euch bitten bei ihrer Zubehör-Bestellung um "umgehen- 
de, sofortige, dringende" Lieferung. Diese Wünsche kann ich lei- 
der nur selten erfüllen. Natürlich kommt es vor, daß ich eine Be- 
stellung noch am Eingangstag erledigen kann, allgemein sind ge- 
wisse Wartezeiten jedoch unvermeidlich. Dies hat vornehmlich zwei 
Gründe: 

- ich muß mit der Weiterleitung der Bestellungen warten, bis die 
Sammelbestellmengen erreicht sind. Andererseits wären unsere 
günstigen Preise nicht möglich. 

- ich kaufe bei verschiedenen Händlern ein, so daß es an der Re- 
gel ist, daß ich die benötigte Ware "scheibchenweise" geliefert 

bekomme. Allerdings kann ich bei der Auslieferung an Euch nicht 
ebenso verfahren, da dies mit sehr viel höheren Kosten verbunden 
wäre. 


Ich bitte um Euer Verständnis, wenn einige Wochen vergehen, bis 
Ihr das gewünschte Zubehör erhaltet. Sollten sich einmal größere 
Fristen ergeben (2.B. 6 Wochen und mehr), so werde ich die ent- 
sprechenden Besteller kurz benachrichtigen, zumal ich aus Kosten- 
und Zeitgründen keine Eingangsbestätigungen mehr verschicke und 
man nach einigen Wochen verständlicherweise zu grübeln beginnt, 
ob Bestellung und Geld überhaupt angekommen sind. 

Schließlich wird Eure Geduld dadurch belohnt, daß Ihr Euer Zube- 
hör zu sehr günstigen Preisen bekommt. Apropos: die Preise blei- 
ben kankurrenzlos, selbst wenn ich sie zum 1.10.81 geringfügig 
erhöhen nuß(te). Da mittlerweile der überwiegende Teil von Euch 
auch DIN A4-Einlegeblätter bestellt, wozu größere und teurere 
en nötig sind, steigt auch der Unkostenbeitrag um 
Zum Abschluß: jetzt gibt es auch Tastenfeldschablonen zum Selbst- 
beschriften. Einen Bestellzettel findet Ihr unten. 


An: Ulli Davertzhofen, Ostenbergstraße 97/8, 46 Dortmund 50 
Name: Mitgl.-Nr.: 


Anschrift: .C ) 


Ich bestelle: 
mal 40 Magnetleerkarten ,„ je DM 19.00 = DM 


Stück Kartentaschen(Spiralheftung), je DM 9.50 = DM 
Stück Einlegeblätter(Klarsichtfolie,DIN Au, 

für Je 15 Karten) , je DM 2.00 = DM 
Stück Tastenfeldschablonen ,„ je IM 3.00 = DM 


+ psuschaler Unkostenbeitrag(Verpackung,Porto) = DM 4,50 


x 


Gesamtbetrag 
( ) Ich habe den Betrag auf Pschk 2080 27-432 ‚Essen überwiesen. 
( ) Verrechnungsscheck liegt bei, 


ee 
R Sr. ei. 
krläuterungen zu "GLS" 6520 Ertengen 


Das vorliegende Programm dient dazu, n lineare Gleichungen 
mit n Unbekannten zu lösen. Die kooffizienten dieser sind 
in einer Matrix angeordnet (Abb.1). Das Brogramm dient nur 
der Lösung. eines Gleichungssystens, auf Berechnung der De- 
terminante und Inversen wurde verzichtet, um Speicherplatz 
zu sparen, Hierdurch unterscheidet es sich z.B. vom ähn- 
lichen l’rogramn "4Axlı" im Solution-Book: High level Math; 
dieses benötigt 102 (I) Prograumregister und löst damit 
ausschließlich 4x4-Gleichungssysteme, während "GLS" je nach 
Anzahl der angeschlossenen Module bis zu 15x15-Matrizen 
lösen kann; es benötigt 45 Programmregister und n(n+1)+9 
Datenregister. Die Rechenzeiten für n=2...11 sind aus Abb,2 
ersichtlich. 


ay an an bi 2 3 4 5 6 7 s 
ay 02 an bz Cu 20” 37” 1'703” 1’37” 2’ 21” 
au an a; by 8 9 10 9 

317” u’2ayh” 5'50” 7'29” Abb.2 


Abb.1 


Algorithmus 

Zur Anwendung kommt der sogenannte Gauß-Algorithnmus mit 

Totalpivotisierung, der wahrscheinlich nicht allen von Euch 

bekannt ist. Dieser sei an einem Deispiel erläutert: 

Gegeben sind Ale drei Gleichungen 2x, + 3 =5 ,„ X +X,+ Xj=0, 

6x7+ 7x,+ 2x,=7, in Matrixform:(1). au ist das sogenannte 
Pivotelement, a, soll durch Multiplika- 


2930 ‚5 tion der 1.Zeile mit einer gesuchten Zahl 
1 1 1'0 s und Aldition er I, zur 2. Zeile zu OÖ 
D gemacht werden, ebenso ayı (man darf ja - 
67 2:7 (1) Gleichungen aidieren). Die gesuchten Zahlen 
® sind -0,5 bzw. -3; daraus ergibt sich fol- 
29305 gende Matrix (2). Da Zeilen (Gleichungen) 
0 -0,5 1 -2,5 mit beliebigen Zahlen mulipliziort wer- 
' : den dürfen, folet Natrix (3). Jetzt wird 
o-2 28 (2) ax als Pivotelement rewählt und das Ver- 
y fahren wiederholt; diesmal sollen ay und az 
293 .0'!5 zu O0 gemacht werden (4), entsprechend folgt 
o0ı1-2 5 (5). Wenn nun die Diagonalelemente any ...ay 
n alle 1 und die übrigen lilemente der "homo- 
o 1-1, 4 (3) genen" Matrix (des linken Teils, 3x3) 0 sind 


stehen rechts von oben nach unten die Lö- 
ı 0 3'-5 sungen des Gleichungssystems, also ist x,=-% 
1-21 5 %= 3, X)=-1. Der Rechner geht im Prinzip 
l genauso vor, er dividiert allerdings die 
0 0 11-1/ (4) Zeile, die das livotelement enthält, durch 
dieses, wodurch die Diagonalelemente nlle 1 
10 0-2 werden. Noch ein Ilinweis, falls ein l’ivot- 
elenent O ist: der ıtechner geht "lann auf Pi- 
votsuche, d.h. er tauscht so lanreo Zeilen 
o0 1-1 (5) aus (Lbi #9), bis er ein Pivot ZB refunden 
hat. Falls das Gleichunsssysten keine ein- 
deutigre Lösung lıat, versagt das Prosramm, 


Mathe-Freaks sei deshalb compfohleon, 


sirh nach der Errebnis- 


anzeige durch XEQ A die Matrix anzusehen, ob sie die Gestalt 
von (5) hat oder nicht. Anderen empfehle ich tie Prüfroutine 
Lbl 14 „ Diese wird an das Programm angehängt, zusützlich 

werden folgende Befehle eingefligt: nach Zeile 149 Xr& 14 und 
nach Zeile 187 KCL BI _ X<=Y? 


Bedienung des Programms it 


GTO 16 Ru. 


Tastenfolge Anzeige Koxmentar 
XEQ "GLS" RANG? 
3 R/s al.ı Koeffizienten 
2 R/S al.2 
$3 R/S a1.3 
pe n/s bi 
5 w/S a2,1 
... b3 
7 Rr/s READY 
( xXEQ A al.1=2, dA Überprüfune der richtigen 
.a1.2=3,dppB Werteingabe; während Anzek- 
Ba ge ("SE) Wertänderung mög- 
READY ) lich. 
R/S X1=-2, Bd Ef£ebnisse 
R/S xX2=3, 800g 
R/S X3=-1,d0B 
Listing Lb1 14 
Lb1 14 9 RCL dh 183 / + 2 +« 165 / + 5To gı 


1E-5 - RCL 9 


» ISG dı CLo 
PxOMPT . 


5To SB LBL ı7 
ISG Bd 6To ı7 


CL IND BB s CL IND fi 
#T®  LBL 16 "NO SOLVE" 


Garantien für dieses Programm kann ich n:türlich nicht über- 
nekuen, aber über regen ZLspruch würde ich wich schr treuen, 
vielleicht gelingt es jemand, das Progra2z zu kürzen? 


Happy Prorramminr! 


19 


29 


39 


up 


54: 


Listing "GLS" 


LBL "GLS" 
er pp 
CF 29 
"RANG?" 
PROMPT 
STO 83 
GTO H8 
LBL A 
sr $ 
LBL #8 
FIX $ 
RCL #3 
u >% | 


STO dd 
"REAUY" 
PRONFPT 
GTu Y2 
LBL #9 


56 


69 


79 


8ß 


99 


188 


118 


FS? 
gro #9 
PROMPT 
STO IND 5 
LBL 198 
FIX $ 

1 

ST+ 85 
RTN 

LBL @9 
"Lat 

FIX 4 

KCL IND 85 
HND 


ARCL X 

AVIEW 

PsE 

STO IND 85 
19 


+ 

sTo 91 

LBL 15 
RCL IND gs 
STo 6 


m 


12 


138: 


148 


159 


168 


LUL #7 
RCL IND gı 
sSTo #7 


168. > 2%2 Liebe Clubmitglieder! 


FIX g 
ARCL P6 lie Heaktion auf das Bubble-Sort irogramm 
"par war zwar nicht ganz so groß wie bei SURT3, 
178 FIXU aber einige abdruckreife Programme habe 
ARCL IND 85 ich doch erhalten.Herzlichen Dank! 
PROMPT Ein paar Seiten weiter werdet Ihr eine 
ISG 85 Optimierung aes DEZ-HEX Programmes vor 
CLD prienu 216/51. Dort fehlt nach Zeile 11 
ISG #6 ein CLA. Zum Schläß noch eine Frage: 
CTO 193 WER kanı mir das Barcode-Heft für die 
STOP Frogrammsamnlung "Höhere Mathematik" leinef? 
LBL 93 ansonsten viel Spaß mit den Programmen und 
RCL $5 schreibt mal wieder, 
188 INT Euer Andreas 
sTo #6 
NCL ß2 
INT etBL “Bor & 
RCL X Bez FT: 
ee Kin 
ur 
RCL 89 SIZE 688 !!tı 1 3 
1 EINGABE: AAN,EEE R/S. KCO5 . ! 
f MÖBEL AAA=ÄNFHNTSPEG. vu > 
198 = EEESENDREGISTER EU Pau 
8 69 RCLINdY 
t DAS PROGRANHM VERWENBET [) RCL NY + 
ha NUR STÄCK Und LAST X-REw 1 Kar? 3 
LASTX HACH BEN SORTIEREN STEHI 23 % Re 
RCL #3 DIE HOECHSTE ZAHL IM BROT x 
1 KLEINSTEN REUISTER. MAOINDZ RI 
+ BEI ALPHA-DRIEN ER- 15 SF 66 ı 008 
+ SCHEINT DALPHA DATA< 1eeLBL 83 2 u ia, 5; 
1-23 IT Rt ı=5 
286 / 18 ic x 3.2, 
+ Biına a9. 
sTo 97 @ COPYRIGHT or Ani 25,5 
LBL 11 H.Klenp 8/1981 2 KL L > 
RCL InD 96 6152 REN 20 2 
X<> IND #7 ac 72» 
STO Ind %6 laeey 2 EnD nal 
ISG #6 drogrammına Erd #7 5t!E5 
CLD Ins. (arad.) Hasen Kiens (13) 
ISG 97 Dianastr. 25 
218 cro ı1 1866 derlın 23 
1 
ST+ 88 z 
GTo 15 
214 END 


p.8.:Nähere Informationen zum Bortierer 
finden sich in CHIP 7/81 


Programm: UNIVERSAL -. BASISUMWANDLER 


wandelt Zahlen aus einem beliebigen System in Zahlen 
eines anderen beliebigen Systems um. 


Besondere Eigenschaften: 
- beliebig viele Stellen und Nachkomnastellgn 
- Genauigkeit der Nachkommastellen bis 10 ” 
- beliebig große Basis (von der Rechnergenauigkeit 
begrenzt) 
- hoher Ein - u. Ausgabekonfort 
- typo. Rechenzeit:15s, maxiyOs 


Anleitung: 


Programm starten mit XEQ "BU" 
Abfrage Bi / B2 beantworten mit Eingabe der 
Eingabebasis, ENTER, Ausgabebasis, R/S 


"NR.?" Eingabe der umzuwandelnden Zahl, 
Es kann unter 3 Eingabemodi gewählt werden: 


1.) Eingabe ins X-Register, R/S. Anwendbar für alle 
Zahlen ohne Ziffern größer als 9 

2.) Eingabe ins Alpha-Register. Auf ALPHA schalten, 
Zahl eintippen (bei Ziffern SHIFT nicht vergessen, 
die Buchstaben A-I können für 10-18 verwendet werden), 
R/S. Anwendbar für alle Zahlen ohne Ziffern 
größer als 18. 

3.) Eingabe einzelner Digits in dezimalform ins X-Reg 
Nach Eingabe jeder Stelle A drücken. Bei Nach- 
kommastellen: vor der ersten Nachkommastelle 
SF 00 ausführen. Nach Beendigung der Eingabe: R/S 
Ansendbar für alle Zahlen. 


Bej Modus ] können max 10 Ziffern, bei Modus 2 max 14 
Zeichen eingegeben werden. 


Zwei Ausgabemodi stehen zur Verfügung: 


1.) Noraal - u. Hex-codierte Form im Alpha-Register 
für Ausgabesysteme mit Basis 2 - 19 . (Ausnahme: 
tei Ausgabebasis = 10 auch im X-Register) 
Maximal können 15 Stellen ausgegeben werden. 

2.) Einzelne Digits werden in dezimalform durch 
Schrägstrich / getrennt über Alpha- Register 
ausgegeben, maximal 24 Zeichen. 


Ausgabemodus 2 stellt sich automatisch ein, wenn 

-- Eingabemodus 3 gewählt wurde 

-- Ausgabebasis größer als 19. 

Sollte nach Eingabe 3 Ausgabe I gewünscht werden, muß 
an Ende der Eingabe CF 03 ausgeführt werden. 


Für den Fall, daß bei Ausgabe 2 die 24 Zeichen des 
Alph&e-Registers nicht ausreichen, kann man Programnm- 
schritt 140 durch STOP ersetzen (oder ACX mit Druckcr) 
und die Stellen einzeln auslesen. 


Michael Fiedler Viel Erfolg, 
in Fuß:roben 12 BR 
6257 Hünfelden V.‘.0.0 


Nach erfolgter Ausgabe, kann mit R/S zur nächsten kingabe 
gegangen werden, wenn Ein u. Ausgsbebasis gleich bleiben. 


Anm.: einige synthetische Befehle werden verwendet. 


BieLaL "Bu* S6oLBL A 189 F&L u: 1ö4eLBL 98 
e2 cr el 57 SF 03 t19 E99 82 165 RL 83 
03 cf 02 58 6T0 89 111 AREL X 166 RiL &6 
ea CF 29 SYHLBL 02 127978 167 NO 
5 "Bi t B2 7” 60 1.81 113 610 9? 168 Sid a3 
06 PRONPT 61 STO) 1 163 3 2-8 
97 ST0 82 62 HM" 115 RCL 02 18 Kar? 
BE 18 GFLBL At IE IK 171 STC 05 
e9 x=Y? 64 21 17: 1T2e.bi & 
18 SF 82 65 RCL ] 12 FR 6 1r2 BcL 08 
II RCLZ | 66 LOG 119 9H9 , 14 i 
12 ST0 &i 67 RMD 126 INT 175 x? 
12 xy? j 68 X? 1 i 176 STC Bi 
14 SF 61 \ 69 CT0 01 122 + 177eLbL 63 
15eLBL 84 i 78 SF 08 123 1X 178 PACRPT 
16. cK 88 neo | 124 STO 86 179 ETO 04 
76 ze 125 179 16G+L2_ 6ı 
18 $10 03 73 38 126+LBL 95 Tr 
{2 -1 74 - 127 Re 66 182 Fs? #7 
28 STO 59 5 123 1 183 "+. 
21 CF 92 7x 179 3:7? 194 KIEL 82 
22.0 23 77x97? 138 °H.* 12: 517 62 
23 "HR nt ZB DIE X u. BL RCL 2 BE IS € 
24 PROMPT ?9eLBL 89 132 517 9 187° Em 
e5 AOFF se rs? 08 133 RL 83 
26 F5? 23 81 6710 01 134 PCL 98 
.22 60 80 82 PCL 6t 1357 
28 F9? 61 83 ST 175 Int Are 
29 ST0 83 94 RDN 17 76 iBi'Ei 
38 FS? O1 85 Str 03 138 ARCL X ES AT ET 
31 6T0 08 86 5TO 83 139 #9? 82 «EhR. Ba e ge 
220 I g7eLBL Ei 148 °+,* 
33 STO 88 93 RCL 8! 141 F99 03 
34eLBL 87 89 RCL 98 142 610 @ 
35 RDN 98 YıX 143 9 
36 STOY Nr 144 KOY 
37 FIX IND ®9 Ka 145 17? 
38 156 08 31 146 156 Y 
39 AOFF 94 ST- 08 147 ADFF 
46 END SeLBL 87 148 138 
4x7? 96 FI? & 149 + 
42 CT0 07 97 sıor 158 XO T 
43 CA 28 FCL\ 151 REIN 
44 ARCL % 99 CF 25 152.°H6° 
45+LBL 08 188 Kar? 153 1.1 
46 1.81 181 CTO 82 154 879 \ er 
47 510 ] 102191 BE 155 "FO 
48 "ker 183 0 z© 156 RAN 
652 188 Cıh 57 BCUN 
Sb RCL } 195 19 158 “ih 
st x.r? 16 RtL 82 15% PDK 
52.610 ca 10? KY° 166 STO N 
I 1a ©6003 1£: PEN 
54 ST 88 DER 162 STO £ 


55 cto 8 163 Ante. 2 


Oeborne_1_- Info 1,81..____;_ vom 22.10.81 nn Mine Gewähr. 


Lieber Osborne-Interessent ! ’ 


Es gibt viele, viele Personalconputer auf dem Markt. Bald zuviele, üm eine eindeutige Kauf- 
entecheidung zu treffen. Oft mit zuviel "Spielkram” und zu sehr beschränkten Möglichkeiten 
in der praktischen, professionellen Anwendung. 

Hier will der weltbekannte Computer-Vater und Fachbudhautor Adam Osborne muın für Abhilfe 
sorgen. Mit dem OSBORNE1 I Er übertrifft alle derzeit auf dem Markt befindlichen Personal- 
computer in Leistung, Flexibilität und universellen Einsatzmöglichkeiten des Standardgerätes. 
Das Preis-/Leistungsverhältnis gar ist kaum noch vergleichbar. Doch wollen wir zunächst ein- 
mal Adam Osborne selbst zu seinem Produkt hören, das sich durch strikte Verwirklichung eines 
langersehnten, konsequenten Konzeptes auszeichnet 


"Wir brauchen keine noch leistungsfähigeren und damit teureren Milkcrocomputer. Wir brauchen 
.einen großen Preiseinbruch. Wir brauchen einen Mikroconmputer, der durch Nutzung bestehen- 
der Technologie auf einem wesentlich niedrigeren Preisniveau angesiedelt ist." 


"Wir brauchen einen Mikrocomputer, der eine Vielzahl von Aufgaben zuverlässig erfüllt, oh- 
ne wie die derzeitigen Mikrocomputer durch eine Vielzahl notwendiger oder möglicher Peri- 
pherieeinheiten zu einem großen System anzuwachsen. Denn gerade das treibt die Kosten in 
die Höhe I" 


"Wir brauchen einen transportablen Mikrosomputer." - "Natürlich kann man auch einen Apple 
II in einen Stahlkoffer packen (ohne Monitor wohlgemerkt !) und in 15 bie 20 Mimuten in 
Betrieb setzen. Warum keine aktenkoffergroßen, jederzeit betriebsbereiten Mikrocomputer 7’ 


"Wir brauchen einen Mikrocomputer, der hochwertige, profeesionelle Standardsoftware he» 
mitzt. Mit sehr vielen Anwendungsmöglichkeiten !" 


"Der OSBORNE1 Mikrosomputer wurde geschaffen, um diese Anforderungen zu erfüllen. Und die 
Osborne-Computer-Gesellschaft wurde gegründet und finanziert, um den Absatz des Osbornei 
zu unterstützen." 


Soweit Adam Osborne, der geistige Vater des Osbornei, 


Wie sieht dieser Traumrechner mın aus ? Er widerspricht allen bisherigen Design-Studien, 
sieht er doch aus, wie ein metallener Aktenkoffer: An der Oberseite ein Tragegriff - und 
sonet nur ein silbernes Metallgehäuse. Doch dann kommt die freudige Überaschung: Die Unter- 
seite unseres "Koffers" können wir aufklappen und das Gerät vor une auf den Tisch legen: Die 
abgenomrene Unterseite stellt sich als Standard-ASCII-Tastatur mit abgesetztem numerischen 
11er-Tastenfeld. heraus. Insgesamt also 67 Tasten. Die Frontseite des Gerätes soll folgende 
Skizze verdeutlichen Monitor 


Diskettensta- Diskettenstation 2 
tion 1 
Disketten- Diskettenfach ? 
fach 1 


Interface und An- 


schlüsse 
Standardmäßig verfügt der Osborne 1 über folgende HARDWARE: 
- 2Z-80A CPU - 64 kByte RAM, davon 60 k für den Bemitzer frei 
- prof, Tastatur mit 1ler-Block - 2 Diskettenstationen 5.25 für je 102 kByte 
- RS-232-C-Interface - 2 Fächer für Diskettenaufbewahrung 
= IEEE/488-vollinplement. Interface - eingebauten 5"-Monitor mit 52x24 Zeichen, auto- 
- separates Moden-Interface matisch über 128 Spalten scrollends 128 x 24 1! 
«- Interface für externen Monitor - Anschluß für ext. Batterie/Akkusatz 


Wer von dieser Komplettausstattung begeistert ist, soll sich erst einmal ansehen, was ohne 
Aufpreis als Standardsoftware mitgeliefert wird: 


- CP/M Diek Operating Systen 2 


- WordStar Textverarbeitungsaystem der Spitzenklasse 
= Mailnerge Adreseverarbeitungssystem, ermöglicht u.a. auch Standard-/Rundscohreiben mit 


WordStar 


- Supercalo für dutzende kaufsännische und mathematische Anwendungen (entspricht Visicalc) 
- MBASIC Strukturiertes Miorosoft-BASIC - Interpreter 
- CBASIC wie MBASIC - Compiler 


Als weitere Hardware ist gegen geringen Mehrpreis erhältlich: 


- 12" externer monitor 52 x 24 Zeichen 

- 12° externer monitor BO x 24 Zeichen 

- Akustik-Koppler (z.B. für Telefonübertragungen oder Bandspeicherung) 

- Batterie-/Akkusatz für bis etwa 5 Std. netzunabhängigen Betrieb 

- Double-Density Diekettenstationen (doppelte Kapazität) - sehr empfehlenswert | 
- Double-Density, Double-sided Diskettenstationen ( vierfache Kapazität) 


Im übrigen war der Osborne 1 bereits im deutschen Fernsehen zu bewundern: Im Bericht von de; 
Schachcomputerweltmeisterschaft, wo er für Aufsehen sorgte. 

Und wann sorgt er in Deutschlands Wohnziummern für Aufsehen ?? Ein erstes Demogerät erhalte : 
im November, offizietler Auslisferungnbeginn wird Anfang 1982 sein, 


Und der PREIS ? Haben Sie auf 11.000,-- bis 13.000,-- DM geschätzt 7 Das wäre heute marktüb- 
lich I Doch weit danebens Der Listenpreis beträgt exakt 1795,-— US$. Für Deutschland kommen 
Versicherung und Transport dazu, eo daß man ( 1 USf'= 2,20 DM) noch unter 4500,--IM komt I 
Allein die Software kostet heute soviel - vereinzelt sogar noch mehr ! 


Außerdem werde ich zudem in der lage sein, das Gerät unter Listenpreis zu liefern !I Natürl: 
eanz seriös und mit voller Garantie I Bei Interesse bitte ich um Rückantwort mit nachstehen 
Vordruck und einer 60 Pfg.-Briefnarke I 


Mit freundlichen Grüßen 


Oliver Rietschel, Postfach 373, 2420 Eutin - bitte vorerst keine Telefonanrufe I 


An dem Osborne 1 bin ich sehr interessiert I Ich bitte daher darum, 


( ) mir weitere Informationen sobald möglich zu Übersenden, mit genauen Preisangaben, Lie- 


ferzeiten, Fotos ( liegen etwa zum Jahreswechsel vor ) 


( ) mich völlig unverbindlich als Kaufanwärter festzuhalten (Lieferzeitvorteil für Käufer. 
Kalkulationsvorteil für Verkäufer, dadurch Preisvorteil für Käufer) 


Vor- und Nachnamet 


Adresse: 


Telefons Datums 


Er nr rauen 


Für weitere Mitteilungens $ 


'Hasso Schumacher (443) 10.10.1981: 
Falenbek 61 
'2000 Hamburg 73 


Lieber Oliver, ! i 
nachstehend, wie versprochen, ein Kurzbericht von meiner 3wöchigen | 
USA-Reise, die mich nach New York und Houston, Texas, führte, teils 
privat, mehr aber geschäftlich. - In NY blieb ich fast ausschließ- 
lich nur in einem der 5 Boroughs (Stadtbezirke), nämlich Manhattan. 
In der 5th Avenue zB. gibt es allein Dutzende Geschäfte mit Radios, 
Koffern, Tepeten, Ansichtskarten und Taschenrechnern, immer in die- 
ser für uns etwas seltsamen Zusammenstellung. Aber nur wonige Ge- 
schäfte dieser Art führen HP-Line, und wenn, dann nur den 41C(CV), 
selten Zubehör. Computer Shops gibt es ebenfalls sehr viele, die 
aber führen wieder kaum TR; am häüfigsten fand ich 'Radio Shack's, 
fast immer mit dem Hirmeis 'Computer Corner','Computer Shop! o.ä., 
welche ausschließlich den TRS in allen Versionen führten.- Also j 
achlug ich nach in den 'Yellow Pages', dem Brachenadressbuch (es | 
gibt deren 2: Privat und Commercial, die sind unterschiedlich um- 
fangreich) nach Geschäften, die HP-Line führen. Ich wählte 2 aus: 
Manhattan Office Products Inc in der 43rd Street. Das Geschäft lag 
in der 21.Etage(!), hatte vollständiges 41C0-System aufgebaut, auch 
zum Ausprobieren. Prospekte u.Preislisten lagen zur Mitnahme bereit. 
Gleich wurde ich gefragt, ob ich Hilfe benötigte. Auf meine Frage, 
ob sie ein Kassetten-Interface für den 41 hätten, holte er jedoch 
seinen Chef, der Jedoch ebenfalls stirnrunzelnd den Kopf schüttelte 
und noch nie davon gehört haben wollte (Company policy ?!).Als ich 
nach vorhandenen Lösungsbüchern, Modulen u.ä. fragte, bedauerte man. 
Das andere Geschäft lag ganz im Süden von Manhattan, direkt hinter 
der Kirche am Trinity Place 95 (Super Business Machines Co.Inc), 

ein Ladengeschäft zu ebener Erde. Auch hier war man sehr hilfsbe- 
reit. Auf meine obligate Frage nach „. kam sofort die Antwort: In 
diesem Herbst noch erwarten sie eine Speichererweiterung von 16 k(!} 
und ein Kassetten-Interface! Von HP? Nein, von PPC. Na also. Er 
hatte davon gehört! PPC-Literatur ist ihm bekannt, aber sie ist nibt 
im Geschäft erhältlich. Aber alle Handbooks, Solution Books etc. 
waren da. Ebenso stand ein HP 85 da mit einem Demo Programm (eine 
Kopie anbei) und - brand new! - der neue HP 125. - HP zibst, am 
Pensylvania Plaza No ] (dicht am Madison Square Garden) konnte ich 
erst nicht finden, also rief ich an: Sie haben dort nur ein Office, 
keinen Shop. Also unterließ ich einen Besuch dort.-In Houston - 
eine riesige Stadt von mehr als 60 km Durchmesser (!) fand ich in 
dem Teil der Stadt, in dem ich mich aufhielt (Down Town und Bell Air] 
wieder nur Tandy mit dem TRS. - Man sieht: :es gibt drüben auch nicht: 
wehr für den HP 41 als hier; ich hoffte eigentlich, auf dem US-Markt 
wäre schon mehr Zubehör zu finden als in 'Old Europe! „. .. 


Beate Grüße! | 
Hrsıo 


Vielen Dank für diesen Bericht, Hasso I Vielleicht eifern Dir andere Mitglieder 
nach ihren Reisen einmal nach, so daß es in prisma nicht mır Prgr. zu "lenen" 
gibt|! Zu den SEM-Auskünften: Das gemeinte Kassetteninterface wird von Clubnit- 
glied Helmit Jansen (283) gebaut. Ein PPC-Interface existiert neines Wiuuens kein 
eigenes. Die genannte Speichererweiterung ist das "Page-Switching"”, das Hann- 
Günther seit einem Jahr durchführt. Über beides wurde bereits ausführlich berichtet 


Unter den von HP geplanten Peripherieinheiten befindet sich meines Winuens wir 
weder eine 16k-Erweiterung für den 41c(v), noch ein Kassetteninterface. Auch 
in "Old Europe" sagt HP nicht mehr und nicht weniger als drüben .„... n’mlich 
faet nichts. Doch wenn neue Geräte kommen - in prisma wird es sofort zu losen 
sein | 

’ Oliver (1) 


zSrzgerzem: 


PTPTTILUNG : 


Fslf Pfeifer 


Rebensstr. 5 Waib, 

309 Kaeln SO 47709 Soest 

Tel. 0221/352034 Tel. 029237 
SSISSTZUITSPSISEISSTITEISZEISTESFOSZSISESSTISSISZSSESTSTITSS ERS STITIETTD 
YErNaSdene Progranne Liste NE: 4 


123. LOL*ROM" springt absolute Arassat i.00) im 
174. LEL"’SUG“ ersetzt Xten Buchstaben i Alpha 
LEL"CS" speichert erz. Code aus X i.Reg.ind Y u.YHl 
136. LEL*CR* hiait Code aus Reg. ind. Yu. Yrl nach X 


135. 


AARTEHLOFYSLERVIC! 


sus der Standardprogrammsammlung ? 


137. 
1339. 
117. 
140. 
141. 
142, 
143. 
144, 
145. 
146. 


UN Lehrgang 

Kalenderrechnung 

Wortratespiel 

Arithmetik - Lehrgang 

Hexsdezimal - Dezimsl - Umwandlung 
Finanztechnische Berechnung 
Nullstellenbestiunung 
Kurvenanpassung 

Vektor - Operationen 

Black - Jack (17+ 4) 


sus Prisma 4/1991 


147. 
148. 
147, 
150. 
151. 
152. 
153. 
154. 
155. 
116. 
157. 
159. 
157. 
160. 
151. 
161. 
162. 
153. 
184. 
155. 
166. 
157. 
123. 
189, 
170. 
?i. 
172. 
173. 


Bei Bestellungen : 


Texteingsbe Hans - Guenter Goetter 


VEBE FRCM (verb. Arithm. Lehrgang) Bear 


KEWTON - Verfahren (Mathematik) 


Lineare Regression m.Fehlererk. (hair 4.902.207781) 
FPrinfasxtorzerlegung Hauke Trentens aealu/en) 


Frimfaktorzerlegung Juergen Moeck 


Load Eytes (Lacd Dezim. Codes i.d. Frgsp.)(3/215/813° 


Differentialgleichung (Mathen.) 
Faktor - Finder (Mäthem.) 
Flotten v. 2 Funktionen 


Balkendisgramaplotter (8.247/01) 
Beesliet! 
Gar Alpha (Druckt Alpha - Dats - Codes) 


Brite Frint (Druckt Garcodes) 


ORDO (Spiel) (5. 


Hindernisfahrt (Spiel) (5.263/81) 
(5.265791) 
MK Multiple Key Assignment (5ynth.) (5.228752) 
LO GByte - Loading - Frogramm (Synth.) 


Tower of Hanci (Spiel) 


Load Bytes ($5.216/01) (Synth.) 
123 Toene (Statuskäarten) (Synth.) 


Vektorrechnung (5.278/81) (Msthenm.) 


Gleichungen 4. Grades (5.273/61) 
Frimzahlenprogramm (5.237/01) 
Star Treck (Spiel) (5.295’61) 


Fruefziffernprogranm verbessert (Malhen.) 15.290/81) 
Fruefen logischer Gesetze (5.292/81) 


Automobilkosten (5.295/91) 
A0S fuer UFN - Rechner (5.300781) 


sich den Namen angeben . Crfoderliche la 


Beachtet unbedingt die übernächste Seite (405) 


Walter KARBRLNET 
0: 


(5.234/915 


SESSESZISeIgLETEZTESZ. SEBEEBETFTZESTEBERBELZSSSEID 


‚artahl d. Karsen 


mu 


m Down mm Wera t)rortarai)tD 


mm t)WDWr ee Wwi)r er 


ae 


rJ (7 


bitte nicht nur die Nr. des Frogramms sondern 
rtenanzahl und 
frankierten ; adressierten Briefumschlag zuschicken. 


KASSETTEN - INTERFACE 

Ich habe zwischenzeitlich am Kassetten-Interface weitergearbeitet 
und dabei die folgenden Punkte herausgefunden, die halfen können, 
die Zuverlässigkeit des Interfaces sehr zu steigern. Da diese 
Verbesserungen in frühen Ausgaben des Handbuches nicht erwähnt 
sind beziehungsweise in frühen Interfaces nicht implementiert 
sind, seien sie hier zum selber-nachrüsten aufgeführt. Es besteht 
aber auch die Möglichkeit, mir Interfaces zuzuschicken; ich 

werde sie dann kostenlos auf den nachfolgend geschilderten, 
neuesten technischen Stand bringen. Voraussetzung dafür ist, daß 
am Gerät - und hier insbesondere an der Pin-8elegung - nichts 
verändert worden ist. Nach Mitte September gelieferte Geräte 
beinhalten die hier geschilderten Verbesserungen bereits von ' 
Hause aus. 


Lie untenstehende Zeichnung zeigt die Verdrahtungsanweisung für 
das IC "74123" (oder *74L5123"). Die beiden Verbindungsleitungen 
zwischen Pin 3 und der positiven Versorgungsspannung sowie zwischen 
Pin 11 und der positiven Versorgungsspannung sollten nachträglich 
eingelötet werden, . 


1  2cıem2B 2A 
& r 
+ + AN 


15 % 3 2 9 


D Die Praxis hat gezeigt, daf die Tonbanaqualität einen erheblichen 
Einfluß auf die Anzahl der Fehllesungen des Kassetten-Interfaces 
hat. Es sollte deshalb nur erstklassiges Bandmaterial verwendet 
werden. Sehr gut bewährt hat sich zum Beispiel eine Tonbancakassette 
der Marke "Maxell UD 60". Sorgfältige Messungen haben gezeigt, caN 
dieses Bandmaterial entschieden weniger "Urop-Quts" erzeugt, als 
die großen Marktführer und die Billigfabrikate. 


DO Es hat sich herausgestellt, daß die beiden Spindeltrimmer wesentlich 
weniger empfindlich auf Verstellen reagieren als erwartet. Es kann 
deshalb folgende Empfehlung gegeben werden; Sollte Ihre Interface- 
Tonbandgeräte-Kombination gegan Fehllesungen anfällig sein (was 
entweder auf ein "Altern! des Interface-Oszillators oder auf senr 
schlechten Gleichlauf des verwendeten Banagerätes zurückzuführen 
ist) ‚ so sollten Sie die beiden Spindelpotentionmeter etwas in 
Richtung auf höheren Widerstandswert (siehe hierzu auch obenstehernce 
ee verstellen. Dadurch wird zwar die maximal übertragbare 
Baudrate (und also auch die maximale Abtastgeschwindigkeit von Barczczj 
leicht abgesenkt, andererseits aber die Sicherheit gegen Fehllesunger 


gesteigert. 


D Ein vierter Punkt sei der Vollständigkeit halber vermerkt; er rat 
keinen Einfluß auf das Funktionieren des Interfaces, gehürt aber zur. 
"Guten Stil der Digitalen Schaltungstechnik’; 

Alle nicht benutzten Eingänge des ICs "7400" (oder "74L500") und ces 
ICs "7408" (oder "74LS08" oder *74H0E") sind mit einem festen TTL- 
Potential - also entweder mit der positiven Versorgungsspannung ocer 
mit Masse -— zu verbinden. 


Ulrich Jansen (263) 


Magnetkartencopyservice ! 

Mit dieser so lobenswerten Einrichtung unseres Clubs wird zunehmend Mißbrauch geirie- 
ben. Täglich gehen allein bei Walter durchschnittlich zwei Briefe zit 4o bis Ico Yzr- 
netkaRten ein und der Bittes Einmal alle Programme bitte I Resultat: Ralf und Walter 
haben täglich mind. eine Stunde zu tun und der erste Kartenleser ist verheizt. Suog--ui, 
für die keiner geradesteht - Privatschaden. Daher müssen wir Gegenmaßnahmen ergrei- 

fen: Zusätzlich zu dem selbstadressierten, frankierten Rückunschlag und den 
Magnetkarten sind beizufügen: 


59 PFGI JE MAGNETKARTE_ zum Ausgleich des entstandenen und entsteher.- 


den Schadena !! 


Zuschriften, denen dieser Betrag fehlt, werden mit unbeschrifteten Karten zurücr- 
geschickt. Damit aber nicht für jedes kleine Programm ein oder zwei Mark bezahlt 
werden müssen und weil an diesem Zustand nur die Großbesteller schuld sind, gil* 
folgende Regelung: 


Jedes Quartal hat jedes Mitglied ein Programm beliebiger Länge frei ! (also 4 p.a.) 
Die Einhaltung dieser Regel wird genauestens überprüft. Daher und zur gleich- 
mäßigen Arbeitsverteilung wenden sich bitte Mitglieder mit ungerader Mitglieis- 
mummer nur an Walter, solche uit gerader Mitgliedemumner mır an Ralf. 
So bedauerlich diese Regelung ist, ich muß um strikte Einhaltung bitten ! 

Oliver (1) i.A. des Copyservices 


DIVERSE ASTRONOMISCHE: PROGRAMME 


e ie i s ‘ E 
für HP-41C: SIZE OlO, 847 Bytes = 121 Prgm-Speicher (= + 2 RAMs), 411 Prym-Schritte. 
USER an, Drucker auf MAN (arbeitet auch ohne Drucker) ; der Zeitzähler sollte nur 


ohne Drucker laufen. SF 28, CF 29; vor dem Aufzeichnen des Prgm auf Magnetkarte 


11 sctzen. 
‘ 


Flag 


Bei allen Programmen außer Sternzeitzähler wird die Eingabe rechtsbündig ohne Kenn- 


zeichnung, dle Werteausgabe linksbündig mit Kennzeichnung gedruckt. 


$ Programme, für die keine Zelteingabe nötig ist. 
1 Programme, die weder Datum- noch Zelteingabe erfordern. 


Für alle nicht gekennzeichneten Programme enthält die Datum- (= Start-)Jroutine 
Konstanten, die vor Rechenbeginn auch dann abgespeichert werden müssen, wenn ke 
Berechnungen (z.B. beim Eichen des Zählers) durchgeführt werden. 


ine 


Bei Berechnungen im Äquator- oder Polbereich können sich Schwierigkeiten (z.B. bei 


einer Division durch cos 900 = O0) ergeben. In diesen Fällen wird die Rechenrout 


ine 


nit Flag 25 zu Ende geführt, damit die gesetzten Flags zuverlässig gelöscht werden, 
und am Schluß der Berechnung "FEHLER" angezeigt. Die im X- und ggfs. im Y-Register 


stehenden Ergebnisse sind dann nicht brauchbar. Die Schiefe der Ekliptik stimmt 


mit den im "Explanatory Supplement to the American Ephemeris* gegebenen Werten und 
Bespielen überein, nicht aber mit den Werten im Astronomical Almanac (Abweichungen 


um wenige Sekunden; warum, ist unbekannt). 


Das Prgm arbeitet von I. 03. 1900 bis zum 31. 12. 1999. Der Nullpunkt der Kalender- 
routine ist der 29. Oktober 1899. Für Berechnungen ab I. Ol. 2000 müssen die Kon- 


stanten auf den 29. 10. 1899 umgerechnet werden. 


Die Ergebnisse stehen in der Relhenfolge im Stack (l. Ergebnis im Y-Register, 2 
Ergebnis im X-Register), daß ggfs. ohne Neueingabe damit weitergerechnet werden 


kann. Sie werden als ®9.'" bzw. als h.ms mit folgenden Kennzeichnungen ausgegeben: 
REKT = a = Rektaszension (h.ms) LNGE = X = ekliptikale Länge 
DEKL = 6 = Deklination BRTE = ß = ekliptikale Breite 
HOHE = h = Höhe über Horizont STDA = t = Stundenwinkel 
AZIM = Az = Azimut ST2ZT = 8 = Sternzeit f 
205 = z = Zenitdistanz POSA = PW = Positionswinkel 
ätitiE = Winkelhöhe KENT = Winkelentfernung 


Eingaben mit t: mit ENTERt eingeben; a als h.ms O bis 24 Stunden, alle anderen 


Werte als 9.'" 0Pbis 3600 bzw. 00 bis 909 eingeben, lediglich bei B 6 werden die 


Eingaben im Längennaß gefordert. 


I. Datum für alle nicht mit 1 gekennzeichneten Programme eingeben ... 
Monat und Jahr zweistellig (Jahr ohne Jahrhundert), also z.R. 

15. Januar 1962 = 15.0182. Nach der Frage "ZEIT?" 

1I. für alle nicht mit $ oder 1 gekennzeichneten Programme die Uhr- 
zeit (für Sternzeit-Zähler einige Minuten Vorbereltung einplanen) 
eingeben Und . au. uun was ana Sn Ken Ba ae nn a 
Angezeigt wird die Sternzeit 8. Bei Sommerzeit vor der Eingabe 
eine Stunde abziehen. 

Die Uhrzeit kann jederzeit neu eingegeben werden mit . ... 2... ... 


A KoORDINATEN-UMWANDLUNGEN: 


1. Äquator- in Horizontkoordinaten umrechnen: 

h und Az (von Süd über West) berechnen; eingeben (ash.ms) ... ats 
2. Horizont- in Äquatorkoordinaten umrechnen: 

a und 5 berechnen; eingeben (Az Süd über West) ... .-: ... .. Azth 
3.$ Äquator- in Ekliptikkoordinaten umrechnen: 

A und B berechnen; eingeben (ach.ms) » fe. 202 nen wre nen nun at 
4.5 Ekliptik- in Äquatorkoordinaten umrechnen: 

a und 6 berechnen; eingeben .. 22. een une wen ner ern nen are At 


XEO 


ZEIT 


FOtHOR 
HORTEQ 
EOtEKT. 
EKLIEO 


l 


B Verschi | PROGRAMME : 


na 
. 


Zenitdistanz z berechnen; eingeben (a = h.mE): ... “en nu 00: 
Stundenwinkel t berechnen; eingeben (a = h.US): .. eu. nu cr. 
Gestirnshöhen: Für Auf- bzw. Untergang ist für die Gestirns- 
höhe h nicht O0, sondern wegen der Refraktion -.3 zu Setzen, 
bei Sonne und Mond wegen der Größe der Gestirne -.51. Höhen 
unter dem Rorizont sind negativ. "FEHLER" zeigt an, daß die 
gefragte Höhe nicht erreicht werden kann. 

a) Zeitpunkt für den Aufstieg auf eine bestimmte Höhe h über 
dem Horizont; Eingabe (a = h.mS) .. „2. zu. zen 000 020 0. 
nach Aufforderung "HOEHE?" die Gestirnshöhe h eingeben ... h 

b) Zeitpunkt für das Absinken auf eine bestimmte Höhe über 
dem Horizont; Eingabe (a = h.mS) .. vun nen see nee een ne. at 
nach Aufforderung "HOEHE?” die Gestirnshöhe h eingeben ... h 

Kulminationszeit und -Höhe eines Gestirns; Eingabe (a = h.us). atö 

Positionswinkel (von Nord über Ost) und Winkelerntfernung 

zweier Sterne voneinander berechnen: zuerst die Koordinaten 

des ersten Gestirns eingeben . ... » Sega were „u... Qytör 

Nach der Aufforderung "2. EINGABE” die Koordinaten den 

zweiten Gestirns eingeben ... z.2 220 zur vun men nen nee. Aat6z 

töhe des tatsächlichen Horizonts über dem mathematischen 

Horizont in Winkelmaß berechnen; Eingabe . ... ».. “a... nr... dhtE 

&h = Höhenunterschied zwischen Beobachtungsort und dem die 

Sicht begrenzenden Geländ.punkt, E = Luftlinienent[ernung 

zwischen diesen beiden Punkten (eine topografische Karte 

leistet gute Hilfe). Die Erdkrümnung ist wegen der wohl 

meist im Verhältnis geringen Entfernungen nicht berücksich- 

tigt. Auf gleiche Maßeinheiten achten! 


C STERNZEIT-ZÄHLER: 


1. 


1. 


1. 


oo 


vun 


1 


zähler: Der Drucker sollte nicht angeschlossen sein, da der 

Zeitzuwachs auf Rechner ohne Drucker abgestimmt ist. Bei aı- 
geschlossenem, aber abgeschalteten Drucker arbeitet der 2Zäh- 
ler wegen der "VIEW*-Anzeige ohnchin nicht. 


Zähler einschalten ... 220 vor ven 00n wen 000 aan nee een er nee 
In der Anzeige steht "AN" und Flag 1 ist gesetzt. 
Den Zähler starten mit ... 2... 00 nun aee ee en .. 


und im"Leerlauf" mindestens eirmal durehläufen lassan, dumit 
das Prgm den Weg GTO 20 + LBL 20 speichern kann. 

Den Zähler wieder anhalten mit ... 2.2 zee eure ne nun en 
Datum (wenn nicht schon eingegeben? ggfs. s. Schritt 2 und. 


Startzeit eingeben (einige Minuten Vorbereitung einplanen) ... ... 
Nach Anzeige der Sternzeit 6 die Rektaszension a als h.ns cin- 
geben -.- . Dee er ee ee ee nen B 0. iM 


Vor der Zählroutine hält der Rechner an. Nun R/S der ss 
drücken, bis erst "GTO 04" und dann “NULL” zu schen ist. Wenn 
die cingegebene Startzeit ereicht ist, die Zählroutine Starten 
WIE I aa a Be en a meysie. 2a 

Da die Anzeige Sternzeit ist, Erik: sie Riche mit der Uhrzeit 
überein! 

Zu gegebener Zeit den Zähler stoppen mit . ... 

zähler wieder ausschalten ... -.. 2.0 2.0. . B se lee 
Mit dieser Routine kann der Zähler beliebig e ein- und susger 
schaltet werden; entsprechend steht in der Anzeige "AN" urıd 
Flag Ol ist gesetzt bzw. in der Anzciye "AUS" und Flug Ol ist 
gelöscht. 


'zDI 


Tt 


'TAl 


KU 


PA 


HOi 


ZH 


[Ab 


C Sternzeit-Zähler. (Fortsetzung) 


2.5 Eichen des Zählers. Hierzu nuß der 
Zähler nicht eingeschaltet sein, 
doch die Datum-Routine muß zuvor 
Zum Abupeichern von Konstanten ge- 
laufen sein (wenn auch nicht unbe- 
dingt mit Datum-Eingabe).. j 

Bel SCHE ie en een 
Zur Kontrolle ist Flag 4 gesetzt 

2.2 Den Zähler starten mit ... ».. +. 
und mindestens einmal durchlaufen 
lassen (s. Schritt 1.2) 

Den Zähler weder anhalten git ... 

2.3 Zur Zählroutine gehen mit ... ... 
R/S oder SST drücken, bis erst 
"LBL. 05" und dann "NULI." erscheint. 
Dann die Zählroutine starten nit . 
und gleichzeitig eine normale 
(nicht Sternzeit-) Stoppuhr star- 
ten (ein Start der Zählroutine 
mit XEQ 05 wäre gegen die Stopp- 
uhr zu langsam). 

2.4 Einige Minuten nach dem Start die 
zählroutine stoppen mit .. ... 2... 
und gleichzeitig die Stoppuhr an- 
halten. 

Sollte 0.0003 oder 0.0001 in der 
Anzeige stehen, zweimal SST drük- 
ken. 

2.5 Die Stoppuhrzeit in den Rechner 
eingeben (die vom Zähler gemesse- 
ne Zeit steht noch in der Anzei- 
ge) und . 222 Sue mne a0 nee use 
Flag 4 ist gelöscht. Damit ist 
die Eichung des Datenspeichers 

i beendet. f 

2.6 Für eine Kontrolleichung wiederholt man die 
Schritte 2.1 mit 2.5. Nur Schritt 2.2 kann 
ausgelassen werden, wenn nicht inzwischen auf 
PRGM geschaltet oder PACK ausgeführt wurde. 

2.7 zur Eichung des Programn-Speichers notiert man 
den Zeitzuwachs, der in der Anzeige steht, und 
geht im PRGM-Schaltung zu Zeile 049 (GTO.049), 


löscht den alten Wert (303583 E-9) und gibt die 


neue Zahl ein. Nach PACK und dem Neubelesen der 
Magnetkarten (mit gesetztem Flag 11) ist die 
Eichung beendet. 

2.8 Nach jedem Eingriff in das Programm, der mit 
einer Änderung des Abstandes LBL O4 > LBL 20 
verbunden ist, muß neu geeicht werden. 


D ÄNDERUNGEN FÜR ÜRTSWECHSEL: 
Die ortsspezifischen Konstanten (geografische 
Länge und Breite) sind £ür den jeweiligen Benutzer- 
rt einzugeben, und zwar 
A in h.ms bei Prgm-Zeilen 266 und 337 
» in 9.1" bei Prgm-Zeile 074, A, Zeile 274, 329. 


Im vorliegenden Progranm sind die Wert« Für-Neuburg 
an dec Donau gespeichert: A =-O h 44m 4) s 
{#-119 10° 45"), @ = 480 4a' 20”. € 


AUq2UOTS_AUOTN e 
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FORMELN: 


GST = Greenwich-Sternzeit um 0.00 Uhr UT am gegeLenen Tag 

GSTıepe = Grennwich-Sternzeit am Kalender -Nullpu:r” 5.02 Uhr = 2,473 489 169 h 

do = Tage seit dem Nullpunkt der Kalenderroutine = zeit 2%. 10. 1899 

e = Schiefe der Ekliptik am gegebenen Tag 

Cısoe = Schiefe der Ekliptik am Kalender-Nullpunkt = 239452 317 25 

$ = geografische Breite (südliche Breiten negativ) 

A = geografische Länge (östlich von Greenwich negativ; 

I, = Länge des Zeitzonenmeridians (östlich von Greer=ich negativ) = A h.ms auf 
Ganze gerundet. 


R = Verhältnis Sonnentag/Sterntag = 24h ; 23® se? 451 = 1,002 737 909 


d = Tag, m = Monat, J = Jahr, T = Uhrzeit, 6 = 
Gz = ganzzahliger, nicht gerundeter Teil einer D=z 
Bt = Bruchteil einer Dezimalzahl (Nachkommateil) 
h.nms = Angabe in Stunden, Minuten, Sekunden 

©,'" = Angabe in Grad, Bogenminuten, Bogensekuri«r. 


{Verkonmateil) 


Szstins arbeitet mit 
Bci Ortswechsel 
Gera ,chzanweisung 
„in Nouburg an der 


Der Nullpunkt der Kalenderroutine ist der 29. 10. 

den gegebenen Konstanten vom 1. 03. 1900 his zum 5 
sind die ortsspezifischen Konstanten (pP, A) It. F 
zu ändern. Das vorliegende Programm enthält die Kor.zzar. 


Donau. BR 
e 
Zeit- und Winkelroutinen: 
q 0 + - 6ST j 
= Zosa5: NT ZLTBFERSEN. ; ji = 38T * (Trink A; 
Po 36525’ 2 R Az; Sternzeit 6 i Dar: 


Stundenwinkel t=9 - a; a=8-t; =art; 
GST = 24473 489 169 + 2400,051 262 * D, + 25 80€ - 22° iu? 
e = 230452 317 25 - 0,013 012 5 * Do; < 24 Sturien = 24 + Et 


LBL_DIV (Kalenderroutine): 
do = Gz (365,253) + Gz (30,60') + d; m.33 - 11,55 =c2. +12 undj - 1; 


a’ =m+ 13 und jJ' =)5J - I wennm $ 2, sonıstm' = 2 «!._äj'=j 


LBL FQ+HOR S 
a pda E = + 2 EL: = Pr 
LBL Z1s sinh cos z sin p sin 6 cos 9 ccs & ccs t; z 90 h; 


cos 6 sin t sin y ezs ä cest - cos sin 6 
ee ei cos 2 = — —— 7 2-72 -- 71 2 — 


sin Az = 
cosh „, ws h 


LBL NWOR#EQ sin & = sinpsinh - cos ypcosh cs 32; 


sinEe cos h sin Az das sin 2 c: 
cos 6 


LBL EQtEKL sin ß = sin 6 cos e - cos 6 sine sin a 


cos B cos e sin‘ - sin sin 


eos & cos A 


sina= =; ı1ısa= 5 = 
. cos & = os 6 « 
LE KKIAEQ sin & = sin B cos e + cos f sine sin k 
cos 6 cosa cos ! zıs e sına + .ınd sine 
wos A = sini=- Pe; IE RS BE BR AL EN 
cos B cos £ 


Quadrantenkontrolle: 1BL HORIL 


guadrant 
I °- 
11 90 - 180 
ı1I [180 - 270 
IV 270 - 360 


Vor een nene 


tan ZHHE = a 


onen een nen. 


LBL KULM Höhe = 90 - 9 + 6 


LAN. TI/TAB 


sin h - sino sin 6 h h 
„BIN N. sin W BIN 2 en R =. 
Sant cos p cos 6 ’ et u 15 a 


tan (62 - 64) 


ZAENT = - 62 - ; POSA 
cos AENT cos (a; a2) cos (63 64); cos POSA = tan ZENT 


Speicherbelegung: 


s 2 202 
_.. |.ü 2 _&_& N 6 66% een 
R 00 a Rz oa L\ a a a a erster Eingabewert 
ROO| art tra = - art art =, = Zwischenwert 
R O1 & h 6 B 6 - [) 6 zweiter Eingabewert 
R O2 Az [ B [} = - = h zweites Ergebnis 
R 0) {0} 9 € € o ” [2 [0 Konstanten 
Weitere Verwendung von R 00 mit R 03 und een rer rer nee ne ... 


LBL 20 Zeitverzögerung für die Zuhl- 
routine, damit etwa in 1- 
Scekunden-Schrit.ten gezählt. 
wird. 


F 01 Zähler {SF = AN, CF = AuS) 

F 04 Eichen 

F 05 Steuerung EQ+HOR, ZDIS und EKLIEQ 

F 06 Steucrung ZDIS, Tt, zweite Anzeige 

F 07 Steuerung kOtHOR und FOtEKL 

F08 Steuerung EKT4FQ, EQ+EKL und Qua- 
drantenkcutrolle 

F 25 Unterdrücken von Aritlmetikfehlern 
und Fehleranzeige in der Endanzeige 


übrige Speicher: ° LBLs: 
R 00 "Zwischenlager” für a bei HORtEQ ! LBL 00 a und t aus ®, für die An- 
R 01 Zähler für Eichung . zeige, für Eichen, 
R02, Ban Pe ; LBL 01 Formeln zur Koordinatenum- 
R 03 kceinc'weitere Verwendung . wandlung, Zähler ausschal- 
R 04 R = 1,002 737 909 5 ten, Sternzeit 
R 05 erst 36525, dann do/36525 ! LBL 02 Abspeichern der Eingaben, 
R 06 Zwischenspeicher für Datum, dann : von @ und von der Beschrif- 
i GST (dezimal) je tung zum zweiten Ergebnis 
R 07 Uhrzeit (dezimal) » LBL 03 < 24 Stunden bzw. > O Std. 
R 08 Text für zweite Anzeige . LBL 04 Zählroutine 
R 09 Zeit.zuwachs für Sternzeitzähler © LBL 05 Eichen der Zählroutine 

(dezimal) : LBL 06 e berechnen 

! LBL 07 Zeit + Winkel 

Flags © LBL 19 Anzeige 


sr 2 
RCr 2 
03 STOr 
Q4LEL "DIY- 
05 FIX 4 

85 VIEN X 

87 STO 66 
18 » } 
111,9 

L Kor 3 


20 36525 
21 STO 85 
02 LASTX 
23 FRÜ 


27% 

30 RCL 66 
+ 

32 IKT 

33 KCL 65 
34 / 

35 ST0 #5 

36 2406.051262 

77 + 


Nur dann sinnvoll, wenn vor 
dem Belesen der Magnetkarten 
‘Flag 11 gesctzt wird 


Datumroutine 


m.) 
-m-I12und j -1 


Gz (365,25j') 


30,6 m’ 


—do_ 
36525 


33 2.473489 69 — GSTıaso 


3 
40 RÜL 85 
4 xt2 
42 25506 E-9 
43% 
4+ 
45 XER 63 
46 STO 96 
47 1.082737963 
48 STO 0% 
49 303533 6-9 
sa 5T0 83 
51 "ZEIT? 
52 PRONFT 


SIeLEL "ZEIT" 
54 VIER X 

: 55 HR 

"56 510 07 
9 
5a STO #0 
59 XEG Mu 


GST 


ggfs < 24 Stunden machen 
R 


Zeitzuwachs für Zihler 


Sternzeit für den Beobarcht.. Or 


68 *STZT“ 
ci cry 19 


sare € 

63 Sf 5 
64 FIX 4 
65 ASTo 68 
66 VIER Y 
67 NIEAX 
69 CLUB 

69 HR 

76 STO Bi 
?U REN 

?2 HR 

23 $T0 66 
?4 48.442 
75 HR 

?6 ST) 83 
ZT RIN 


QGeLBL "2DIS 
79 SF % 


6ArLBL "EOTHOR 


Anzeige Sternzeit 


Eingahewerte abspeicheen 
Fehlerusterdrückung 
falls vorher geeicht wur). 


Eingabewerte drucken 


} zweite Finyabe speichkere 


| erste Eing.be Speichern 


$@ speicher. 


81 “HÖHE” Beschriftung 2. Ergebais 
82 YERB2 Eingabewertw abspeicheen 
83 "AZIM Beschriftung 1. Ergebnis 
94 SF 85 Vorzeichen und Anzeige 
85 XER 64 
86 6T9 97 

B7LEL "ERLtEI® 
89 SF 65 

BIeLEL °PORTER" 
RE? Yeschrittig 2. Ergebit. 
I aa Bl Einyabou oo ab.peich- re: 
92 FEKT  Beschriftang L. Ergebnis 
93 65? 65 
94 CT0 BE 
95 Ci Bl 
I+LEL 28 
97 C10 94 Zeitver-jerun) für Zähler 

96 +LBL "ERTEHL" 
99 “ERTE- Beschriftonrg 2. Eryeiniz 
109 EB  Eingal- werte abnpeinbestz 
191 "IhUE“ Beschriftung 1. FEryeni.d. 
t62+LEL 97 
183 SF 87 Berechnu:. ‚erdle stunsern 
184 15 ER 
185 ST» 66 }s a 
186 F5? 65 
197? TO 81 
189+LEL BE 
189 SF 83 
118 9% jr Vere:rlwitlienung 

t tt R£L 86 korsoln: 


u12- 
113 STO 89 
114 96 
115 
116 BÜL 65 


117 .0136125 


113 ® 
119 - 
128 - 
121 STO 03 


122 L EL 81 
123 REL 61 
124 SIR 
125 RÜL 83 
125 SIH 
127 « 

128 RÜL A 
129 005 
199 RÜL 09 
131 005 
132 ® 

133 RCL 83 
134 c05 
5+ 

136 F5? 85 
137 CH5 
138 - 

139 FC? 86 
148 CT Al 
141 ACOS 
142 CF 8? 
143 *2D15° 
144 670 19 


145eLdi #1 
146 ASIh 
147 TO 82 
43 RCL 9 
149 15 
159 REL 88 
151 SIH 
152 * 

153 RÜL 02 
154 COS 
155 / 

156 RLL 9 
157 05 
155 RTL dA 
153 05 
169 * 

161 RCL 83 
162 SIN 
163 * 

164 RCL 83 
165 COS 
166 RCL BL 
167 SIN 
168 ® 

163 FS? 65 
74 CHS 


23.45231724 


sin. (90 - a) = cos a und 


cos (9% - a) = sina 


90 - € 


» durch e ersetzen 


Koordinaten-Umsandlungen: 
s. Berechnungsformeln 


Zenitdistanz? 
nein? dann weiter berechnen 


Anzeige Zenitdistanz 


Fortsetzung Koordinatenberechnuny 


zweite Ergebnisse: 


EQ+HOR: Az 
HOR+EQ: 6 
ED+EKL: B 
EKL+IEQ: 6 


me 
172 KL. 
InsE5 
174 008 
175 7 
176 FSX 06 
177.X0Y 
178 AcuS 
179 KOY 
189 xX(0? 
181 SF 08 
192 CLX 
183 368 
184 KOY 
195 FS?C 86 
186 - 
187 SF 86 
183 FS% 87 
189 CT0 19 —— 
19 15 
117 
192 FS?C 65 
193 6T0 19 
194 STO 08 
195 KXEQ 88 
196 CTO 19 


Quadrantenkontrolle 


für 2. Anzeige 
EOtHOR: Az 
EOtEKL: A, 


Winkel + a h.ns 


EKL+IEO: a 


HOR+EQ:- a 


197ABL "54° 
198 23 
199 VIEN X 
290 HR 

281 STO 88 
82 "STD 
203 xEQ 08 
244 FC? 8 
205 GTO 19 
296 STOP 
207 GTO 84 


um Fehler-Anzelge zu 
verneiden 
Ergebnis-Beschriftung 


Nicht Zeitzähler? Dann 
zur Anzeige 


203+LBL 85 
289 8 

219 STO 1 
2aıı FIX 4 


Vorbereitung zur 
Zählereichung 


2i2eLBL 84 
213 RCL 99 
214 HNS 
215 Hr5t 
216 156 Bl 
217 FIX 4 
218 VIE X 
219 CTU 28 


Sternzeitzähler 
Zeitzuwachs (dezimal.) 


Zähler zum Eichen 
wird übersprungen 


Zeitverzögerung 


228+LBL °Tt° 
zaı SF &6 


222+LBtL TAB“ 
223 XEA 82 
224 "HOEHE?” 
225 PROMPT 
226 VIEW X 


Eingabewerte abspelchern 


Dritte Finyabe anfordern 


4 


28 


Zr 


226 HR 
229 SIH 
239 "ZEIT" 
231 RCL 63 
232 SIN 
273 RCL 81 
234 SIR 
2355 + 

236 - 

237 PCL 03 
238 (05 
239 FtL 61 
248 (05 
241 8 

242 7 

243 MACOS 
244 15 

245 / \ 
246 FS% 86 
247 CHS 

248 RCL 08 
249 + 

258 610 81 


25teLbl "KULh* 


252 °HUHE“ 
253 KEQ 62 
254 "ZEIT" 
255 9 

256 RCL 83 
257 - 

258 RCL 81 
29 + 

266 STO 82 
261 SF 86 


“262 RÜL 08 


263eLbi 81 
264 24 

265 + 

266 -.4443 
26? HR 

263 + 

269 RCL 66 
278 - 

271 XE9 63 
er2 RcL 84 
273 7 

274 1 

275 - 

226 KEQ 83 
277 C10 19 


ZTEHLEL "Pa" 
&?4 °sERT“ 
zea YEQ 92 
"2. EIKÜABE* 
282 FFONPT 
263 VIEN Y 
264 VIEH X 


| 


} 3. Eingabe (Höhe h) 


Ergebnis-Beschriftung 


cos 6 


winkel + Zeit 


Aufstieg? 


a 

>Zeit 

Beschriftung 2. Ergebnis 
Eingabewerte abspeichern 
Beschriftung 1. Ergebnis 
%°- 9 

6 


2. Ergebnis (Höhe) 
für Anzeige 2. Ergebnis 


GST 


< 24 Stunden 
R 


A 


< 24 Stunden 
Anzeige Zeit 


Beschriftung 2. Eryebnls 
Eingabewerte alıspelchern 


Koordinaten für 2. Gestien 


2. Eingabe Jrucken 


25a 
205 “FIsc“ 
7 
238 SIO 2 
229 RIM 
256 HR 

291 ST- 6 
292 15 

293 ST 08 
294 FCL 66 
295 (05 
296 PLiL 62 
257 KL 01 
292 - 

233 &TC 61 
3ea (0% 
3a * 

zu2 KE5 
363 ALoS 
384 ST 02 
385 RiL #6 
346 TA 
397 PLL 01 
388 SIN 
389 / 

IH See | 
311 TAN 
312 SF 25 
313 KCL 82 
314 TAN 
35 7/ 

316 STO 96 
37° 

3i6 WET 
319 SF 
%s 36 
321 FeL @8 
322 ACUS 
323 F5? 66 
324 - 

325 SF e&£ 
326 GTö 19 


327eLBL 66 
28 KCL 67 
329 -1 

350 + 

321 FÜL 
332 * 

333 24 

324 + 

355 FOL 86 
3% + 

337 -.4543 
2ıE HR 

339 - 

354 FCL 66 
34 - 

342 ST0 && 


Beschriftung för 2. Ergelı 


63 abspeichern 


a2 
a4 = a2 


a » Winkel 


ea - & 


2. Ergehnis (AENT) 


tan (a4 - 2a) 


„ tun (2 bi 


(a - IW) > 0? 


Dann 360° - PW 
für 2. Anzeige 


Zeit 


GST 


Zeit unl.eor 24 Std. 


ma vermindern bzw. über O bringen AROLEL 89 - - 
5. ser Kns- Zeitdiff 
"346 LASTK 482 HR ‚ze erenz berechnen 
und daraus die Differenz 
37 7 493 RCL 0 für den 2 
‚3 eitzuwachs be- 
345 FRÜ 47 stimmen 
424 485 CHS 
70 ® 486 ST+ 89 
BIrRıNn 487 RCL 64 Zeitzuwachs zur Zählung 
489 ST+.89 wieder in Sternzeit um- 
un u Bi Sr Ri BEER ge Anzelge Zeitzuwachs 
354 "cHHE“ 411 „END. Bi 
355 VIEN Y be SERIE 
356 VIEW X 
357 CLd 
38 / LBL"DIV E+ 
359 ATAR LBL"'ZEIT E- 
LBL"ZDIS 10% 
368 LEL 19 Anzeige LBL'ERTHOR 1/% 
1 CF 0 LBL’EKLIEQ x2 
362 HR5 LBL’HÜRTER y* 
363 AND korrigiert 59' 60" auf volle Be te £ 
364 HR Bogengrad LBL’S4 LOG 
365 HNS : LEL’Tt LN 
36 "H° LEL"TAB e* 
36? ARLL X LBL"KULN Rt 
368 F5? 25 wenn Fehlerflag nicht gelöscht, LEL'PA % 
369 AYIEN Ergebnisse anzeigen LEL'HÜRI SIN 
378 FS’C &6 . i LEL"ZHLR x2y 
371 CTO 68 zweite Anzeige? LBL'EICH cL£ 
322 FC? 25 ‚END, 847 BYTES 
373 "FEHLER" 
374 AdV 
375 FC% 25] Wenn Fehlerflag gelöscht, 
376 PRIFFT | "FEHLER" anzeigen 
377 Star 
T78+LEL a8 ö 
379 FS? 25 
388 PSE 
381 ELA 
382 AriL 09 Bisschriftung für 2. Anzeige in a 
383 RCL 62 2. Anzeige ins X-Register holen 
384 ST 19 
385 LBL "ZALR” 
385 “Aly;“ 
37 FS°C Al 
389 PRÜAFT 
389 SF #1 
339 "AN° 
391 PRÜRFT 
392eLBL "EICH 
AREHA Werner Loibl (224) 
394 CT0 08 lienstraße 47 
395 RCL 64 Zeitzuwach r Eich i re 
396 ST 09 } Ks en zu ung in 8858 Neuburg 
17 SE 0 malzeit umrechnen, (0 84 31) 17 18 & 
\ 398 Cı$ ‘ 


399 RTH 
m 


Dieses P. vandelt ei- 
ne Bezimalzahl in ei- 
ne Dualzahl um. Die 
Zahl darf nicht grö- 
Ber als 16.777.215 
sein. Andernfalls 
mıd die Zahl in Zei- 
le 15 entsprechend er- - 
höht werden (für je 6 er Kagel Ze . 
Bits von 3,006 auf 3,omn). Das Prgr. arbeitet mit und ohne Printer. Falls die Eingave- 
aufforderung gedruckt werden soll, mıß vor Zeile 013 ein PRA eingefügt werden. 

Ist die Zahl größer als 16.777.215, so muß ab Zeile 45 die ARCL-Aufforderung bei d«r 
höchsten Adresse beginnend, nach jeder 4.ARCL angezeigt cder gedruckt werien. Lies Kann 


PRORPT 
3,086 STO 01 
ARCL X 


=’ 


d1+LBL °3/8* 
CF 29 FIX 8 CF O1 CAR 


ASTO 83 ASTO 84 
ASTO 85 ASTO& 3 
% 


18+LBL 08 


1,886 STO 02 
cT0 83 156 02 CIO 91 


156 01 CTO 89 
ARCL IND 81 ASTO IND 94 


cın FC? BL RIN 
ARCL 84 ARCL 83 AYIEN 


END 


$T7 88 RCL 88 X? 


XEQ 84 ST- 9 2 
ARCL 86 ARCL 05 


21eLBL 81 
3IeLBL 03 
RCL 08 2 NOB 


sr ol 


35LBL 84 


sc“ 


$To 81 
La 


mithilfe des DSE-Befehld erfolgen. SIZE 007. Gerhard (472) 
DER 


PER ist der Name eines Programmes zur Berechnung des Periodensystems der Elemente, Ich 
hatte Johannes Christian Lotter ansich versprochen, es in dieser Ausgabe zu veröffent- 
lichen. Dann habe Ich ea jedoch in die Januarausgabe 1982 genomnen, weil es derwaßen gut 
ist, daß es in diese Renommee-Nummer gehört. Hoffentlich ist zir niemand böse - das Prgr. 
ist spitzennäßig - und im Januar gibt es die Stricheodes dazu gleich nit !!!!! Oliver(1) 


MEER IE ME NEE ME MIELE BEE DE UNE TREE BES DENE BES BRCOE DO) ZU SRH GT BR CH BESTE TUN ER SE I AS SEN A BEI BE EI SO ISSUE TREUE BE 2 BEINE U EEE SE EEE EEE TE 


Wer hat Interesse an der Entwicklung einer Universalschnittstelle für den 41 ? Die Orts- 

gruppe Dortmind möchte für die Entwicklung dieser Schnittstelle eine Projektgruppe ins le- 
ben rufen. Wer diesbezüglich Informationen liefern Kann oder uns aktiv unterstützen möchte, 
wendet sich bitse an Karsten Beierlein, Breierspfad 83, Z60c Deortmund-Wambel MitglNr. 93 


SceemErEOSTTOUBEDCOESS DE ZU Sm ED DXGEAEXBWDOZEREIEN KENN ESTERENCSASGOGEZERES SIEZErCOoemzucmcmm 


Mithilfe der folgenden Kurzroutine lassen sich alle 11 Anwenderflags 00 - 10 auf konven- 
tionelle Weise löschen: „01 LBÜOO CFINDX ISGX <STow Holger Haarmann (643 
Zwei Fragen von Stefan (695) 

Ist es nicht möglich, ein Interfacekabel (mit Buchse und Stecker) zu bauen, mit dem man 
den Kartenleser an den Rechner anschließen kann, so daß er nicht mehr zwei Buchsen ver- 
deckt und vier Peripherieeinheiten angeschlossen werden «önren ? 

Antwort: Die Lösung hoffen wir im Jamuarinfo zu bringen: Bauanleitung für den Port-Extender 


Ist es möglich, den Drucker-Buffer zu verdoppeln. Mich hat es nämlich schon oft geärgert, 
daß man selbst in Breitechrift mır 1/2 Zeile selbsterstellter Sonderzeichen drucken kann ! 
Antwort: Diese Eigenschaft mıß hardwaremäßig impliziert werden. Beim HP-82143A ist dies 
nicht ohne weiteres möglich. 


DAS WAR'S 


Ja liebe Mitglieder, mit der Seitenzahl 415 klingt das Janr 1981 für uns aus, Ein kurzer 
Rückblick zeigt: Die 1980 von mir aufgestellte optimistische Erwartung, 300 bie 4oo Seiten 
Clubinfos herauszubringen haben wir übertroffen ! Das damals in der Planung bestehende Fi- 
nanzloch in Höhe von über 50 % der verplanten Mittel wurde dank vieler hundert neuer Fit- 
glieder gestopft. Weitere Errungenschaften brauche ich hier wohl nicht aufzuführen, 
Ähnlich sieht es mın für 1982 auas Bei 1000 Mitgliedern können wir knapp 50% der geplan- 
ten Leistungen durch Beiträge deoken. Doch: Wer wagt, der gewinnt ! Hoffen wir, daß wir 
unseren Club auch 1982 weiterentwickeln und ebensoviel neue Mitglieder wie 1981 werben 
können. Die Weichen habe ich gestellt, jetzt muB mur noch der Zug ins Rollen geraten ! 


Fröhliche Feiertage und ein geaundes, erfolgreiches 1982 
Oliver Rietnohel 


Postfach 3753 2420 kutin 1 


